VBA如何计算行数？

NumOfRows = ActiveSheet.Range("A1").Offset(ActiveSheet.Rows.Count - 1, 0).End(xlUp).Row

我想知道这个命令如何计算行数？ 我想了解逐行代码。

Answer 1

翻译可能如下：

在Activesheet转到cell A1接下来向下移动的number of all rows in sheet minus 1的number of all rows in sheet minus 1但keep the same column (0)接下来move up to first not empty cell in column 0 （假设最后一个单元格为空）并获取你已经被移动的单元格。

结果这个代码不是返回ROWS的数目，而是你移动的单行的数目。 但是如果这样的表开始于单元格A1并且是向下连续的，那么它似乎与数据表的行数相同。

顺便说一句，你的代码更stream行的版本是这样的：

 NumOfRows = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 

你在哪里得到相同的结果。