如何编写VBA代码统计指定区域内隐藏且含特定值的单元格数量

嗨，我来帮你搞定这个需求！你之前写的两段代码都有小问题，咱们先说说问题出在哪，再给你靠谱的解决方案：

先分析你之前代码的问题 #

• 第一段用CountIfs的写法：CountIfs没办法直接判断单元格的隐藏状态，它只能针对单元格的值、部分格式（比如单元格颜色）设置条件，你用的SpecialValues(12)根本不是CountIfs支持的参数，所以肯定运行不了。
• 第二段代码：Rg.SpecialCells(12)对应的是xlCellTypeVisible（可见单元格），而且你后续用CountIf的范围还是整个Rg，相当于统计了整个区域里的"ABC"数量，完全没关联到隐藏单元格，逻辑就错了。

正确的实现方法 #

这里分两种场景，对应不同的隐藏类型，你可以根据自己的需求选：

场景1：统计行隐藏且值为"ABC"的单元格

如果你的隐藏是指单元格所在的行被隐藏，推荐两种写法：

写法1：遍历单元格（简单直观，适合小区域）

Sub Count_hidden_ABC()
    Dim count As Long
    Dim cell As Range
    Dim targetRng As Range
    
    ' 设置目标区域
    Set targetRng = Worksheets("Sheet1").Range("G8:G255")
    
    count = 0
    ' 遍历每个单元格
    For Each cell In targetRng
        ' 判断值为"ABC"且所在行隐藏
        If cell.Value = "ABC" And cell.EntireRow.Hidden Then
            count = count + 1
        End If
    Next cell
    
    ' 输出结果（这里用弹窗，你也可以写到指定单元格里）
    MsgBox "符合条件的隐藏单元格数量：" & count
End Sub

写法2：用SUMPRODUCT+Evaluate（效率更高，适合大区域）

这种方法不用遍历，直接用工作表函数的逻辑计算：

Sub Count_hidden_ABC()
    Dim count As Long
    Dim targetRng As Range
    
    Set targetRng = Worksheets("Sheet1").Range("G8:G255")
    
    ' 通过Evaluate执行SUMPRODUCT，同时判断两个条件
    count = Evaluate("SUMPRODUCT(--(" & targetRng.Address & "=""ABC""),--(" & targetRng.Address & ".EntireRow.Hidden))")
    
    MsgBox "符合条件的数量：" & count
End Sub

场景2：统计单元格本身隐藏（比如列隐藏、单元格格式设置隐藏）

如果是单元格所在列隐藏，只要把上面代码里的cell.EntireRow.Hidden改成cell.EntireColumn.Hidden即可；如果是单元格通过格式设置为隐藏（比如设置单元格格式的"隐藏"选项），就改成cell.Hidden。

小提示 #

• 如果你的目标区域里可能有空白单元格，记得可以加个判断Not IsEmpty(cell)避免误统计；
• 用Evaluate的时候，要确保工作表名称没有特殊字符，如果有，需要用单引号包裹，比如Worksheets("我的表").Range(...)要写成'我的表'!G8:G255。

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