VBA统计列非空单元格：无数据返回0不报错的替代方法

问题背景 #

原有通过SpecialCells(xlCellTypeConstants)统计列中非空常量单元格的代码，在目标范围无任何符合条件的单元格时，会触发No Cells Were Found Error运行时错误，需要实现无符合条件数据时直接返回0、不抛出错误的逻辑。
原有问题代码：
Worksheets("Sheet1").Range("A2:A30000").Cells.SpecialCells(xlCellTypeConstants).Count

可选实现方案 #

• 错误捕获兼容方案（完全对齐原有统计逻辑）
  利用VBA错误捕获机制提前接收无匹配单元格的报错，无匹配时计数默认返回0，性能和原有代码完全一致，是改动最小的方案：

Dim nonEmptyCount As Long
nonEmptyCount = 0
On Error Resume Next
nonEmptyCount = Worksheets("Sheet1").Range("A2:A30000").Cells.SpecialCells(xlCellTypeConstants).Count
On Error GoTo 0
' 后续调用nonEmptyCount即可，无数据时自动返回0

注意：SpecialCells方法的原生设计就是无匹配结果时必然抛出错误，没有内置参数可以关闭该报错，所有沿用SpecialCells逻辑的方案都必须搭配错误捕获使用。

• CountA工作表函数方案（写法最简洁）
  直接调用Excel内置的COUNTA函数统计非空单元格，空范围会直接返回0，不需要额外写错误处理：

Dim nonEmptyCount As Long
nonEmptyCount = Application.WorksheetFunction.CountA(Worksheets("Sheet1").Range("A2:A30000"))

注意：该方法会统计所有非空单元格，包含公式计算返回值、输入的空文本等内容，和原代码仅统计常量的逻辑有差异，如果需要排除公式单元格，不适合用该方案。

• 常量+公式分别统计方案（适配更复杂的统计需求）
  如果需要分别统计常量、公式类型的非空单元格，同时避免报错，可以组合错误捕获分别统计两类单元格的数量，最后求和：

Dim constCount As Long, formulaCount As Long, totalCount As Long
constCount = 0
formulaCount = 0
On Error Resume Next
constCount = Worksheets("Sheet1").Range("A2:A30000").Cells.SpecialCells(xlCellTypeConstants).Count
formulaCount = Worksheets("Sheet1").Range("A2:A30000").Cells.SpecialCells(xlCellTypeFormulas).Count
On Error GoTo 0
totalCount = constCount + formulaCount

内容的提问来源于stack exchange，提问作者Finntech