vba-记录一次自动填充公式的function

 Public Function nihao() As String
 Application.ScreenUpdating = False '防止宏运行时屏幕抖动
 Sheets("Sheet2").Activate
 Sheets("Sheet2").Select  '选择Sheet1
 Range("B1").Select '选择D2 首个含公式的单元格
 '对选择的单元格运行自动填充功能,范围是从D2到D列的最后一行,(这里参考的是C列的最后一行位置）
 Selection.AutoFill Destination:=Sheets("Sheet2").Range("B1:B" & Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row)
 nihao = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
 Debug.Print "sheet2行数" & nihao
 End Function