1、第一种方法： ActiveSheet.Range("A" & Rows.Count).End (xlUp).Row
2、第二种方法：ActiveSheet.Range("a1048576").End(xlUp).Row
如果是低版本的OFFICE用ActiveSheet.Range("a65536").End(xlUp).Row
3、第三种方法：ActiveSheet.Cells(Rows.Count,1).End(3).Row
4、第四种方法：ActiveSheet.range("A1").CurrentRegion.Rows.Count
5、第五种方法：ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
6、第六种方法：ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
7、第七种方法：MaxRow =Application.Evaluate("=MAX((A1:A1048576<>"""")*ROW(1:1048576))")
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。