Excel中如何统计未隐藏且填充为红色的条件格式单元格？

你的核心问题是DisplayFormat会读取隐藏行的单元格格式，导致统计结果包含隐藏的红色单元格，以下是两种可行的解决思路：

方法一：遍历单元格时先校验行可见性 #

直接遍历目标区域的每个单元格，先判断单元格所在行是否未隐藏，再检查单元格的显示颜色是否为红色。这种逻辑简单直观，适合小范围区域：

Dim targetRng As Range
Dim singleCell As Range
Dim redCellCount As Integer

'替换为你的目标数据区域
Set targetRng = ThisWorkbook.Worksheets("Sheet1").Range("A1:D200")
redCellCount = 0

For Each singleCell In targetRng
    '先判断行是否可见，再校验单元格颜色
    If Not singleCell.EntireRow.Hidden And singleCell.DisplayFormat.Interior.Color = vbRed Then
        redCellCount = redCellCount + 1
    End If
Next singleCell

MsgBox "未隐藏的红色单元格总数：" & redCellCount

方法二：先筛选可见单元格再统计 #

先通过SpecialCells提取区域内的所有可见单元格，再在这个子集里统计红色单元格，效率更高，适合大数据区域：

Dim visibleCellsRng As Range
Dim singleCell As Range
Dim redCellCount As Integer

'替换为你的目标数据区域
On Error Resume Next '处理区域全隐藏的报错情况
Set visibleCellsRng = ThisWorkbook.Worksheets("Sheet1").Range("A1:D200").SpecialCells(xlCellTypeVisible)
On Error GoTo 0

redCellCount = 0
If Not visibleCellsRng Is Nothing Then
    For Each singleCell In visibleCellsRng
        If singleCell.DisplayFormat.Interior.Color = vbRed Then
            redCellCount = redCellCount + 1
        End If
    Next singleCell
End If

MsgBox "未隐藏的红色单元格总数：" & redCellCount

关键注意事项 #

• 必须使用DisplayFormat.Interior.Color而非Interior.Color，因为条件格式设置的红色不会同步到单元格的原生Interior.Color属性中
• 方法二中的错误处理不可省略，当目标区域所有行都被隐藏时，SpecialCells会抛出运行时错误

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