1、窗口输入变量
W = Application.InputBox('输入股票代码:', '变量输入窗口',
600236, Type:=1)
If W = False Then Exit Sub
2、获取最后一行行号
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
aRow =
AK.Sheets(1).Range('C65536').End(xlUp).Row
' 设置源工作表和目标工作表
Set sourceSheet = ThisWorkbook.Sheets('年度跟踪')
' 确定源工作表中数据的最后一行
lastRow = sourceSheet.Cells(sourceSheet.Rows.Count,
'A').End(xlUp).Row
3、删除excel图表
Application.ScreenUpdating = False
Sheets('sheet0').Select
If ActiveSheet.ChartObjects.Count > 0 Then
ActiveSheet.ChartObjects.Delete '批量删除图表
Application.ScreenUpdating = True
4、vlookup查找最接近的值
例如在Y列查找最接近T9单元格值，并返回V列对应的值
=VLOOKUP(T9,IF({1,0},Y:Y,V:V),2,0)
