MsgBox Val(Workbooks().Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).Row)'查找最大行号
MsgBox Val(Workbooks().Worksheets(1).Range("b:b").Find("*", , , , , xlPrevious).column)'查找最大列号
存在数据的最大行列号:
Sub 查找数据单元格的最大行列号()
MsgBox "数据单元格的最大行号： " & Cells.Find("*", , , , 1, 2).Row
MsgBox "数据单元格的最大列号： " & Cells.Find("*", , , , 2, 2).Column
End Sub
' ---------计算程序运行所用时间:----------
Sub GetRunTime()
Dim i As Long
Dim dteStart As Date
Dim strTime As String
'关闭屏幕刷新
'Application.ScreenUpdating = False
dteStart = Timer
'---------运行过程主体-------
strTime = Format((Timer - dteStart), "0.00000")
Msgbox "运行过程: " & strTime & "秒"
‘打开屏幕刷新
'Application.ScreenUpdating = True
End Sub
————————————————
版权声明：本文为CSDN博主「一个摩羯座的工匠」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/m0_60646395/article/details/119380743
标签：Dim,vba,Sub,记录,方法,strTime,dteStart,MsgBox,Find From： https://www.cnblogs.com/Insist-Y/p/17039804.html