求助：如何通过Excel识别单元格底色并跨工作表高亮指定行

方式一：VBA宏批量处理 #

步骤1：打开VBA编辑器 #

按Alt + F11打开VBA编辑器，在左侧工程窗口右键点击你的工作簿，选择「插入」→「模块」。

步骤2：粘贴宏代码 #

把下面的代码粘贴到模块中：

Sub HighlightMatchingRows()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    Dim targetValue As Variant
    
    ' 定义工作表，可根据实际修改名称
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 先清除Sheet2已有的高亮
    ws2.Cells.Interior.ColorIndex = xlColorIndexNone
    
    ' 获取Sheet1和Sheet2的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "F").End(xlUp).Row
    
    ' 遍历Sheet1的B列
    For i = 1 To lastRow1
        ' 判断当前单元格是否有填充色（排除默认无填充的情况）
        If ws1.Cells(i, "B").Interior.ColorIndex <> xlColorIndexNone Then
            targetValue = ws1.Cells(i, "F").Value
            ' 跳过空值
            If Not IsEmpty(targetValue) Then
                ' 遍历Sheet2的F列找匹配值
                For j = 1 To lastRow2
                    If ws2.Cells(j, "F").Value = targetValue Then
                        ' 高亮整行，这里用黄色，可修改ColorIndex换颜色
                        ws2.Rows(j).Interior.ColorIndex = 6
                        Exit For ' 找到第一个匹配就退出循环，若要匹配所有重复值则删除此行
                    End If
                Next j
            End If
        End If
    Next i
End Sub

步骤3：运行宏 #

回到Excel界面，按Alt + F8，选择HighlightMatchingRows点击「执行」即可。

代码说明 #

• 可修改ws1和ws2的名称匹配你的实际工作表
• ColorIndex = 6对应黄色，可替换为其他索引值（比如3是红色，4是绿色）
• 若Sheet2的F列存在重复值且需要全部高亮，删除Exit For行即可

方式二：自定义函数+条件格式（实时更新） #

如果需要Sheet1底色变化时，Sheet2自动同步高亮状态，可采用此方式：

步骤1：创建自定义函数 #

按Alt + F11插入模块，粘贴以下函数：

Function HasFillColor(rng As Range) As Boolean
    ' 判断单元格是否有填充色
    HasFillColor = (rng.Interior.ColorIndex <> xlColorIndexNone)
End Function

步骤2：在Sheet1添加辅助列 #

在Sheet1的空白列（比如G列），G1单元格输入公式：=HasFillColor(B1)，下拉填充至所有行。公式会返回TRUE（B列单元格有底色）或FALSE（无底色）。

步骤3：Sheet2设置条件格式 #

1. 选中Sheet2需要高亮的区域（比如A1:Z1000，或目标整行范围）
2. 点击「开始」→「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
3. 输入公式：=COUNTIFS(Sheet1!$G:$G, TRUE, Sheet1!$F:$F, $F1)>0
4. 点击「格式」设置填充颜色，确认即可

说明 #

• Sheet1的B列底色变化时，辅助列会自动更新，Sheet2的高亮状态也会实时刷新
• 数据量较大时，建议限制条件格式的应用范围（避免选整列），减少卡顿

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