用这个对象的值可以获得(ThisWorkbook就是指当前EXCEL文件):
复制内容到剪贴板
代码:
ThisWorkbook.Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row如果你要对所有Sheet进行处理,可以遍历整个EXCEL文件的所有Sheet。
复制内容到剪贴板
代码:
for i = 1 to ThisWorkbook.Sheets.Count
Debug.Print "Sheet" & i & "有" & ThisWorkbook.Sheets(i).Cells.SpecialCells(xlCellTypeLastCell).Row & "条记录。"
next