Excel跨工作表匹配不一致时自动高亮单元格的VBA代码求助

方案1：一次性批量处理代码 #

运行这段代码可一次性完成检查：遍历Sheet1的L2:L1001区域，与Sheet2对应行的C列单元格对比，将值不一致的单元格填充红色：

Sub HighlightMismatchedCells()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim i As Long
    
    ' 绑定目标工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 清除原有高亮格式（可选，按需保留）
    ws1.Range("L2:L1001").Interior.ColorIndex = xlColorIndexNone
    
    ' 逐行对比并高亮
    For i = 2 To 1001
        If ws1.Cells(i, "L").Value <> ws2.Cells(i, "C").Value Then
            ws1.Cells(i, "L").Interior.Color = RGB(255, 0, 0)
        End If
    Next i
End Sub

方案2：实时自动触发（值变化时自动更新） #

如果需要在Sheet1的L列、或Sheet2的C列对应单元格值改变时，自动同步高亮状态，可使用工作表事件代码：

1. 按Alt+F11打开VBA编辑器
2. 双击左侧工程窗口中的Sheet1，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws2 As Worksheet
    Dim targetRow As Long
    
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 仅处理L2:L1001区域的修改
    If Not Intersect(Target, Me.Range("L2:L1001")) Is Nothing Then
        targetRow = Target.Row
        Me.Cells(targetRow, "L").Interior.ColorIndex = xlColorIndexNone
        If Me.Cells(targetRow, "L").Value <> ws2.Cells(targetRow, "C").Value Then
            Me.Cells(targetRow, "L").Interior.Color = RGB(255, 0, 0)
        End If
    End If
End Sub

3. 再双击左侧的Sheet2，粘贴以下代码，确保Sheet2的C列值变化时同步更新Sheet1的高亮：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet
    Dim targetRow As Long
    
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    
    ' 仅处理C2:C1001区域的修改（匹配Sheet1的行范围）
    If Not Intersect(Target, Me.Range("C2:C1001")) Is Nothing Then
        targetRow = Target.Row
        ws1.Cells(targetRow, "L").Interior.ColorIndex = xlColorIndexNone
        If ws1.Cells(targetRow, "L").Value <> Me.Cells(targetRow, "C").Value Then
            ws1.Cells(targetRow, "L").Interior.Color = RGB(255, 0, 0)
        End If
    End If
End Sub

注意事项 #

• 确保代码中的工作表名称Sheet1、Sheet2与实际文件中的表名一致，不一致时需同步修改
• 若需区分空值场景，可在判断条件中加入Not IsEmpty(ws1.Cells(i, "L"))这类逻辑
• 批量处理代码可绑定快捷键，方便快速执行

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