Vba：如何计算选择中的行数

您可以使用以下方法来使用 VBA 计算所选内容中的行数：

方法1：计算所选内容的行数并在消息框中显示数字

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

此特定示例计算当前选择中的行数，然后在消息框中显示该数字。

方法 2：计算所选内容的行数并在特定单元格中显示数字

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

此特定示例计算当前选择中的行数，然后在单元格E1中显示该数字。

以下示例展示了如何在实践中使用每种方法。

示例 1：计算所选内容的行数并在消息框中显示数字

假设我们在电子表格中选择单元格区域A1:C17 ：

我们可以创建以下宏来计算选择中的行数并将结果显示在消息框中：

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

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

消息框告诉我们当前选择有17行。

示例 2：计算所选内容的行数并在特定单元格中显示数字

假设我们在电子表格中选择单元格区域A4:D9 ：

我们可以创建以下宏来计算所选内容中的行数并将结果显示在单元格E1中：

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

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

单元格E1告诉我们当前选择有6行。

其他资源

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

如何使用VBA计算表中的行数
如何使用 VBA 对包含特定文本的单元格进行计数
如何使用VBA计算范围内的唯一值