Excel 工作表计数行

在 Excel 中，有时候需要统计工作表中的行数。本文将介绍如何使用 VBA 实现计数行的功能。

方法一：使用 .UsedRange.Rows.Count 属性

Function CountRows1() As Long
    CountRows1 = ActiveSheet.UsedRange.Rows.Count
End Function

这种方法通过使用 .UsedRange.Rows.Count 属性来计算工作表中的行数。.UsedRange 属性返回一个 Range 对象，表示工作表上使用过的区域。通过取其 Rows.Count 属性，就可以得到工作表的行数。

方法二：使用 .Cells 特殊属性

Function CountRows2() As Long
    CountRows2 = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
End Function

这种方法使用了 .Cells 特殊属性。 .Cells 属性返回一个 Range 对象，表示指定工作表上所有单元格的集合。 .SpecialCells(xlCellTypeLastCell) 方法选择了最后一个非空单元格，即最下方的单元格。通过取其 .Row 属性，就可以得到工作表的行数。

两种方法都可以快速计算出工作表中的行数，具体使用方法视情况而定。

**注意：**如果工作表中存在空行，第一种方法会将其计算在内，而第二种方法则不会。

参考链接

• MSDN - UsedRange 属性
• MSDN - Cells 特殊属性

返回markdown格式，参考了之前的回答，但重写了一些格式和细节。