[转载]VBA获取最后一个单元格行号的几种方法

[方法一]

ActiveSheet.Range(“A” & Rows.Count).End (xlUp).Row

[方法二]

ActiveSheet.Range(“a1048576”).End(xlUp).Row

ActiveSheet.Range(“a65536”).End(xlUp).Row

[方法三] ActiveSheet.Cells(Rows.Count,1).End(3).Row

[方法四] ActiveSheet.range(“A1”).CurrentRegion.Rows.Count

[方法五] ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

[方法六] ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

[方法七]

MaxRow =Application.Evaluate("=MAX((A1

:A1048576<>"""")*ROW(1:1048576))")