如何查找并定位/着色同时满足6列条件格式规则的行？

如果你的工作表里6列各有独立的条件格式规则，要定位出整行6列都触发规则显示颜色的行，可以用以下两种实用方法：

方法一：用VBA宏批量定位（无需知道原规则公式） #

这种方法直接读取单元格是否触发了条件格式，通用性最强：

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 将下面的代码粘贴到模块窗口：

Sub FindAllConditionalFormatRows()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Long
    Dim isAllFormatted As Boolean
    
    Set ws = ActiveSheet ' 可改成指定工作表，比如Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设数据从A列开始，按需修改
    
    ' 先清除之前的标记（比如黄色填充）
    ws.Cells.Interior.ColorIndex = xlNone
    
    For i = 2 To lastRow ' 假设第一行是表头，从第2行开始检查，按需修改
        isAllFormatted = True
        ' 检查当前行的第1到第6列（可根据实际列范围修改，比如Columns("A:F")对应A到F列）
        For j = 1 To 6
            If ws.Cells(i, j).DisplayFormat.Interior.ColorIndex = xlNone Then
                isAllFormatted = False
                Exit For
            End If
        Next j
        
        ' 如果整行6列都触发了条件格式，就给该行填充黄色标记
        If isAllFormatted Then
            ws.Rows(i).Interior.Color = RGB(255, 255, 0)
            ' 也可以直接选中该行：ws.Rows(i).Select
        End If
    Next i
    
    MsgBox "检查完成！符合条件的行已标记为黄色。"
End Sub

4. 按F5运行宏，符合条件的行会自动被黄色填充（你也可以修改代码里的颜色或改成选中该行）

方法二：用辅助列手动判断（需知道原条件格式的公式） #

如果你清楚每列条件格式的规则公式，可以用辅助列来判断：

1. 在数据右侧插入一个新列（比如G列）
2. 在G2单元格输入公式，假设A到F列的条件格式公式分别是=A2>100、=B2="达标"、=C2<50……（替换成你实际的规则），那么G2的公式为：

=AND(A2>100, B2="达标", C2<50, D2>DATE(2024,1,1), E2="是", F2<>0)

3. 下拉填充公式到所有行，公式返回TRUE的行就是6列都触发条件格式的行
4. 给G列值为TRUE的行设置条件格式（比如填充颜色），就能快速定位

注意：如果条件格式用的是单元格值之外的规则（比如基于其他单元格），要确保辅助列的公式和原规则完全一致。

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