获取包含数据的最小/最大行号的行号？

Question

可能重复：
How can I find last row that contains data in the excel sheet with a macro?
Error Finding Last Used cell In VBA

如果我有一个电子表格，其中有数据为10434的最大行数是存在的，这将给我行号10434的功能？

谢谢

Answer 1

Sub largestrow() 
Dim largestrowNum As Long 
Dim col As Integer 
For col = 1 To Columns.Count 
lastrow = Application.WorksheetFunction.Max(Cells(65536, col).End(xlUp).Row, largestrowNum) 
Next col 
MsgBox "Largest row number =" & largestrowNum 
End Sub

（将工作，只要您有少于65536行）