如何在 vba 中使用 counta 函数（附示例）

您可以使用 VBA 中的CountA方法来计算特定范围内非空白单元格的数量。

以下是在实践中使用此方法的常见方法：

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

此特定示例计算A1:A10范围内非空单元格的数量，并将结果显示在单元格C1中。

如果您想在消息框中显示非空白单元格的数量，可以使用以下语法：

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

以下示例展示了如何在 Excel 中以下列值的实践中使用每种方法：

示例 1：计算范围内的非空白单元格数量并在单元格中显示结果

假设我们要计算区域A1:A10中非空白单元格的数量，并将结果显示在特定单元格中。

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

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

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

请注意，单元格C1包含值7 。

这告诉我们A1:A10范围内有 7 个非空单元格。

示例 2：计算范围内的非空白单元格数量并将结果显示在消息框中

假设我们想要计算A1:A10范围内非空白单元格的数量，并将结果显示在消息框中。

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

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

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

消息框告诉我们A1:A10范围内有7 个非空白单元格。

请注意，如果您想计算整列中非空白单元格的数量，则可以键入A:A 。

这将计算 A 列中所有非空单元格的数量。

注意：您可以在此处找到 VBA CountA方法的完整文档。

其他资源

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

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