Application.CountA

`Application.CountA` 是一个 Excel VBA 函数，用于计算指定区域中不为空的单元格的数量。它可以用于统计包含数据和空格的范围中的单元格数量，而不用手动计算。该函数接受一个参数，即要计算数量的区域对象。例如，可以使用以下代码计算 A1:B5 范围中不为空的单元格数量：

Dim count As Long
count = Application.CountA(Range("A1:B5"))

在这个例子中，`count` 变量将包含 A1:B5 范围中不为空的单元格数量。如果 A1:B5 范围中的所有单元格都是空的，则 `count` 的值将为 0。这个函数也可以用于计算单个单元格是否为空。例如，可以使用以下代码检查 A1 单元格是否为空：

Dim isBlank As Boolean
isBlank = Application.CountA(Range("A1")) = 0

在这个例子中，`isBlank` 变量将包含 True 或 False，取决于 A1 单元格是否为空。如果 A1 单元格是空的，则 `isBlank` 的值将为 True。