VBA如何計算行數？

Question

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但keep the same column (0)下一個move up to first not empty cell in column 0（假設最後一個單元格是空的），並得到你一直在移動的單元格的行。

因此，此代碼未返回行數，而是您已移動的單行的數量。但是，如果這樣的表在單元格A1中開始並且是向下連續的，它似乎與數據表的行數相同。

順便說一句，你的代碼中比較流行的版本是這樣一個：

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

，你得到同樣的結果。