如何统计Excel中应用VLOOKUP条件格式的列单元格数量？

嘿，这个需求我之前也碰到过——条件格式的动态规则确实没法直接用COUNTIF搞定，而且普通VBA取单元格颜色的方法对条件格式也不生效，毕竟条件格式的颜色是实时计算的，不是单元格本身的固定属性。不过咱们可以直接复用你条件格式里的逻辑，或者用VBA来判断规则是否触发，两种方法都能实现统计：

方法1：用公式直接复用条件格式逻辑（无需VBA） #

你的条件格式核心是判断当前单元格的值≠OrigTrackerData中对应行对应列的值，那我们可以把这个判断逻辑转换成统计公式，用SUMPRODUCT来求和（它能处理数组逻辑，Excel 365/2021也可以用SUM替代）。

统计整个Table710的符合条件单元格 #

=SUMPRODUCT(--(Table710[#All]<>VLOOKUP(Table710[#All],OrigTrackerData!$A:$L,COLUMN(Table710[#All]),FALSE)))

• --的作用是把TRUE/FALSE的布尔值转换成1/0，这样SUMPRODUCT就能统计所有为1的单元格数量
• Table710[#All]代表整个表格区域，COLUMN(Table710[#All])会返回每个单元格所在列的序号，对应VLOOKUP的第3参数，确保取到OrigTrackerData里的对应列

统计单个列（比如Table710的A列） #

如果只需要统计某一列，公式更简单，把COLUMN换成固定的列序号（A列是1，B列是2，以此类推）：

=SUMPRODUCT(--(Table710[ColumnA]<>VLOOKUP(Table710[ColumnA],OrigTrackerData!$A:$L,1,FALSE)))

方法2：用VBA遍历判断条件格式规则 #

如果你的条件格式规则比较复杂，或者需要自动化统计到Summary工作表，可以写个VBA宏来实现。这个方法会直接检查每个单元格是否满足你指定的条件格式规则：

Sub CountConditionalFormatMatches()
    Dim trackerWS As Worksheet
    Dim summaryWS As Worksheet
    Dim dataTable As ListObject
    Dim targetCell As Range
    Dim condRule As FormatCondition
    Dim matchCount As Long
    Dim targetFormula As String
    
    ' 初始化工作表和表格对象
    Set trackerWS = ThisWorkbook.Worksheets("Tracker")
    Set summaryWS = ThisWorkbook.Worksheets("Summary")
    Set dataTable = trackerWS.ListObjects("Table710")
    matchCount = 0
    
    ' 你的条件格式规则公式（注意和条件格式里的公式完全一致）
    targetFormula = "=A1<>VLOOKUP($A1,OrigTrackerData!$A:$L,COLUMN(),FALSE)"
    
    ' 遍历表格里的每个数据单元格
    For Each targetCell In dataTable.DataBodyRange
        ' 检查该单元格的所有条件格式规则
        For Each condRule In targetCell.FormatConditions
            ' 匹配到目标规则后，判断规则是否生效
            If condRule.Type = xlExpression And condRule.Formula1 = targetFormula Then
                ' 计算规则是否为真
                If Evaluate(Replace(condRule.Formula1, "A1", targetCell.Address)) Then
                    matchCount = matchCount + 1
                End If
                Exit For ' 找到匹配规则就跳出循环，提升效率
            End If
        Next condRule
    Next targetCell
    
    ' 把结果写入Summary工作表的指定单元格（比如A1）
    summaryWS.Range("A1").Value = "符合条件的单元格数量：" & matchCount
    MsgBox "统计完成！共找到 " & matchCount & " 个符合条件的单元格"
End Sub

• 这个宏会遍历Table710的所有数据单元格，检查是否有匹配的条件格式规则，并且判断规则是否生效
• Replace(condRule.Formula1, "A1", targetCell.Address)是把规则里的相对引用A1替换成当前单元格的地址，确保Evaluate能正确计算

为什么之前的方法不行？ #

• COUNTIF的条件参数只支持简单的文本、数字或通配符，无法嵌套VLOOKUP这类函数，也不能处理动态的单元格引用，所以没法直接用
• 普通VBA的targetCell.Interior.Color只能读取单元格本身的填充色，而条件格式的颜色是临时应用的，不会改变单元格的固有属性，所以取到的是默认颜色，不是条件格式的颜色

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