VBA语句补充_小桂冠

个人资料

微博

正文字体大小：大中小

VBA语句补充

(2025-02-22 16:06:45)

标签：

分类： office技巧

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)

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report