动态的获取excel中最后一条数据所在的行数
Sub Test ()
Dim totalRow As Integer
'获取含有数据的最后一行行号
totalRow = Worksheets("sheet1").UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End Sub
动态的获取excel中最后一条数据所在的行数
Sub Test ()
Dim totalRow As Integer
'获取含有数据的最后一行行号
totalRow = Worksheets("sheet1").UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End Sub