发新话题
打印

问个VBA的问题:如何得到一个EXCEL列表的总行数?

问个VBA的问题:如何得到一个EXCEL列表的总行数?

比如,一个EXCEL文件,里面的sheet1,有很多行,行数是不固定的,我在编写vba程序的时候需要动态得到这个总行数

请教用什么方法可以得到总行数呢?谢谢!

TOP

用这个对象的值可以获得(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

TOP

发新话题