Vba：如何计算范围内的行数

您可以使用以下基本语法来使用 VBA 计算 Excel 中某个范围内的行数：

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

此特定示例计算 A 列中的行数，然后将结果分配给单元格E2 。

如果您想在消息框中显示行数，可以使用以下语法：

 SubCountRows ()
    'Create variable to store number of rows
    Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

以下示例展示了如何在 Excel 中的以下数据集（包含来自三个不同球队的篮球运动员的姓名）中实际使用这些方法：

示例 1：使用 VBA 计算范围内的行数并在单元格中显示结果

假设我们要计算 A 列中的行数并将结果显示在特定单元格中。

我们可以创建以下宏来执行此操作：

 SubCountRows ()
    Range(" E2 ") = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格E2包含值9 。

这告诉我们 A 列中有 9 行有值。

示例 2：使用 VBA 计算范围内的行数并在消息框中显示结果

假设我们想要计算 A 列中的行数并将结果显示在消息框中。

我们可以创建以下宏来执行此操作：

 SubCountRows ()
    'Create variable to store number of rows
Dim row_count As Integer
    
    'Calculate number of rows in range
    row_count = Range(" A:A ").Cells.SpecialCells(xlCellTypeConstants).Count
    
    'Display the result
    MsgBox " Rows in Column A: " & row_count
End Sub

当我们运行这个宏时，我们会收到以下输出：

消息框告诉我们 A 列中有9行有值。

请注意，在此示例中，我们使用A:A作为范围来计算 A 列所有行数。

但是，如果您想计算特定范围内的值的行数，则可以键入A2:A9 （或您感兴趣的任何其他范围）。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何编写 AVERAGEIF 和 AVERAGEIFS 函数
VBA：如何编写 SUMIF 和 SUMIFS 函数
VBA：如何编写 COUNTIF 和 COUNTIFS 函数