Excel按列分组自动对比行数据并高亮标记差异单元格实现方法

方案1：无需VBA，用条件格式实现（推荐新手使用） #

• 选中所有需要校验的评分单元格（示例数据中对应B2:D7区域，假设表头在第1行，日期列是A列）
• 依次点击「开始」选项卡 → 「条件格式」 → 「新建规则」 → 选择规则类型为「使用公式确定要设置格式的单元格」
• 在公式输入框中填入：=COUNTIFS($A:$A,$A2,B:B,"<>"&B2)>0

  公式说明：$A:$A是你的分组列（日期列），如果你的分组列不是A列，替换成对应列即可；$A2是取当前行的分组值，注意保留$锁死列号

• 点击「格式」按钮，在填充选项卡选择琥珀色，确认后保存规则即可自动生效

  效果说明：只要同一日期下同一站点的评分存在不一致，所有相关单元格都会自动高亮，新增数据也会自动校验

方案2：通用VBA脚本（支持自定义分组列，批量处理） #

如果你需要经常处理这类数据，可以用下面的通用脚本，支持任意指定分组列：

1. 打开你的Excel表格，按Alt+F11打开VBA编辑器
2. 右键点击当前工作簿名称 → 「插入」 → 「模块」
3. 将下面的代码粘贴到模块中：

Sub 按分组高亮差异值()
    Dim groupCol As Integer
    Dim lastRow As Long, lastCol As Long
    Dim dataRng As Range, cell As Range
    Dim groupDict As Object
    ' 让用户输入分组列的列号，比如日期在A列就输入1
    groupCol = InputBox("请输入分组列的列号（如A列输入1，B列输入2）：", "指定分组列")
    If groupCol < 1 Then Exit Sub
    
    ' 获取当前工作表的有效数据范围
    lastRow = Cells(Rows.Count, groupCol).End(xlUp).Row
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    Set dataRng = Range(Cells(2, groupCol + 1), Cells(lastRow, lastCol))
    ' 先清除原有格式
    dataRng.Interior.ColorIndex = xlNone
    
    Set groupDict = CreateObject("Scripting.Dictionary")
    ' 按分组列的值归集所有行号
    For i = 2 To lastRow
        groupKey = Cells(i, groupCol).Value
        If Not groupDict.exists(groupKey) Then
            Set groupDict(groupKey) = New Collection
        End If
        groupDict(groupKey).Add i
    Next i
    
    ' 遍历每个分组，对比每列的数值
    For Each key In groupDict.keys
        rowList = groupDict(key)
        ' 遍历每个需要校验的列
        For col = groupCol + 1 To lastCol
            ' 取当前列第一个值作为基准
            baseVal = Cells(rowList(1), col).Value
            ' 对比分组内所有行的当前列值
            hasDiff = False
            For j = 2 To rowList.Count
                If Cells(rowList(j), col).Value <> baseVal Then
                    hasDiff = True
                    Exit For
                End If
            Next j
            ' 如果有差异，高亮当前分组当前列的所有单元格
            If hasDiff Then
                For j = 1 To rowList.Count
                    Cells(rowList(j), col).Interior.Color = RGB(255, 191, 0) ' 琥珀色
                Next j
            End If
        Next col
    Next key
    MsgBox "差异值高亮完成！", vbInformation
End Sub

4. 按F5运行脚本，按照弹框提示输入分组列的列号（示例中日期在A列，输入1即可），等待执行完成即可。

说明：脚本会自动清除原有单元格的填充色，再识别所有分组，对比同一分组内每一列的数值，只要存在不一致就整列对应单元格高亮为琥珀色。

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