Excel VBA | Count() 函数

在 Excel VBA 中，Count() 函数用于计算数据中非空单元格的数量。本文将介绍 Count() 函数的语法、用法和示例。

语法

Count(range)

参数说明：

• range：必选，要计算非空单元格的范围。

返回值

Count() 函数返回数据中所有包含数字、日期、逻辑值或字符串的单元格数量。

使用示例

下面是一个使用 Count() 函数的基本示例：

Sub ExampleCount()
    Dim count As Long
    count = Application.WorksheetFunction.Count(Range("A1:A10"))
    MsgBox "非空单元格数量为：" & count
End Sub

在上面的示例中，我们使用了 Application.WorksheetFunction 对象调用了 Count() 函数，计算了 A1 到 A10 单元格中的非空单元格数量。我们将计算结果弹出消息框中。

除了基本示例外，我们还可以使用 Count() 函数结合其他函数实现更加复杂的功能。下面是一个计算某个范围内数字的和的示例：

Sub ExampleSum()
    Dim range As Range
    Set range = Range("A1:A10")
    Dim count As Long
    count = Application.WorksheetFunction.Count(range)
    If count > 0 Then
        Dim sum As Double
        sum = Application.WorksheetFunction.Sum(range)
        MsgBox "数字和为：" & sum
    Else
        MsgBox "范围内没有数字"
    End If
End Sub

在上面的示例中，我们首先计算了 A1 到 A10 单元格中的非空单元格数量。如果数量大于 0，就调用 Sum() 函数计算数字的和并将结果弹出消息框中。如果数量为 0，就弹出 “范围内没有数字” 的消息框。

总结

Count() 函数是 Excel VBA 中一个非常实用的函数，它能够很方便地计算数据中非空单元格的数量。在实际开发中，我们可以将 Count() 函数和其他函数结合使用，实现更加复杂的功能。