求助：VBA中WorksheetFunction.Count函数对部分单元格计数返回0

问题描述 #

使用VBA的WorksheetFunction.Count统计单元格区域时，明明目标区域存在数据，计数结果却返回0；更换不同区域测试后，发现部分区域统计正常、部分异常，涉及的单元格有的包含下拉选项，有的没有。

原代码 #

Sub AssignCount()
   Dim result As Integer
'为变量赋值
   result = WorksheetFunction.Count(Range("C11:C18"))
'显示结果
   MsgBox "The number of cells populated with values is " & result
   
End Sub

问题根源 #

WorksheetFunction.Count仅统计数值类型数据，以下场景都会被判定为“无有效数值”，导致计数为0：

• 单元格内容是文本格式（哪怕视觉上是数字，比如带前导零的编号、手动输入的文本型数字）
• 下拉选项对应的是文本值（比如数据验证下拉菜单的选项为文本内容）
• 单元格是公式返回的空文本（=""），或存在不可见空白字符

解决方案 #

1. 统计所有非空单元格（含文本/数值）
   改用WorksheetFunction.CountA，它会统计所有非空单元格，不受内容类型限制：

   Sub AssignCount()
      Dim result As Integer
      result = WorksheetFunction.CountA(Range("C11:C18"))
      MsgBox "非空单元格数量为: " & result
   End Sub
   

2. 仅统计文本型数据
   如果需要单独统计文本类非空单元格，使用WorksheetFunction.CountIf配合通配符：

   Sub AssignCountText()
      Dim result As Integer
      result = WorksheetFunction.CountIf(Range("C11:C18"), "*")
      MsgBox "文本型非空单元格数量为: " & result
   End Sub
   

3. 统计含文本型数字的有效数值
   如果是文本格式的数字导致不计数，可以通过遍历单元格并识别数值的方式统计：

   Sub CountTextNumbers()
      Dim result As Integer
      Dim cell As Range
      result = 0
      For Each cell In Range("C11:C18")
          If IsNumeric(cell.Value) And cell.Value <> "" Then
              result = result + 1
          End If
      Next cell
      MsgBox "有效数值（含文本型数字）数量为: " & result
   End Sub
   

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