第一种方法：A罕铞泱殳ctiveSheet.Range("A"&Ro臃扮哀坷ws.Count).End(xlUp).Row
第二种方法：ActiveSheet.Range("a1048576").End(xlUp).Row
如果是低版本的OFFICE用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))")
