Excel VBA需求：按A列分组高亮D列重复数值单元格

我有一份大型数据集，A列指定分组名称，要求每组内D列的数值保持唯一，需要用VBA实现：对A列同一分组下，D列中存在重复值的单元格进行高亮标记。示例数据集中，Group 1中值为20的单元格、Group 2中值为33的单元格需被高亮，具体数据集如下：

VBA代码实现 #

Sub HighlightDuplicatesByGroup()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim groupDict As Object
    Dim i As Long
    Dim key As String
    
    ' 指定目标工作表，可根据实际修改
    Set ws = ThisWorkbook.ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清除之前的高亮格式
    ws.Range("D2:D" & lastRow).Interior.ColorIndex = xlNone
    
    ' 创建字典存储分组+D值的出现位置
    Set groupDict = CreateObject("Scripting.Dictionary")
    
    ' 遍历数据行（假设第1行是表头）
    For i = 2 To lastRow
        key = ws.Cells(i, "A").Value & "|" & ws.Cells(i, "D").Value
        If groupDict.Exists(key) Then
            ' 标记当前单元格和首次出现的单元格
            ws.Cells(i, "D").Interior.Color = RGB(255, 204, 204) ' 浅红色高亮
            ws.Cells(groupDict(key), "D").Interior.Color = RGB(255, 204, 204)
            ' 更新字典中该键的行号为当前行，后续重复时继续标记
            groupDict(key) = i
        Else
            ' 首次出现，记录行号
            groupDict(key) = i
        End If
    Next i
    
    Set groupDict = Nothing
    MsgBox "重复值高亮完成！", vbInformation
End Sub

使用说明 #

• 打开目标Excel文件，按下Alt + F11打开VBA编辑器
• 插入模块：右键点击左侧工作簿名称 → 插入 → 模块
• 将上述代码粘贴到模块窗口中
• 运行宏：按下F5执行，或回到Excel界面通过「开发工具」→「宏」选择HighlightDuplicatesByGroup运行
• 若需指定非活动工作表，修改Set ws = ThisWorkbook.ActiveSheet为Set ws = ThisWorkbook.Sheets("你的工作表名称")
• 高亮颜色可自定义，比如替换RGB(255, 204, 204)为黄色RGB(255, 255, 153)

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