自动用多色高亮重复值：Excel逾期付款人表格VBA实现问询

我明白你每月要处理20多份逾期付款人的电子表格，想自动给重复值设置不同颜色来区分——这确实能帮你快速识别重复出现的付款人，大大提升整理效率。你提供的这段VBA代码是个不错的起点，不过看起来没贴完整，我先帮你补全并优化这段代码，再一步步教你怎么用：

Sub ColorCompanyDuplicates()
    'Updateby Extendoffice 20160704
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xChar As String
    Dim xCellPre As Range
    Dim xCIndex As Long
    Dim xCol As Collection
    Dim I As Long
    On Error Resume Next
    ' 自动获取选中范围，或弹出窗口让用户选择
    If ActiveWindow.RangeSelection.Count > 1 Then
        xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
        xTxt = Application.InputBox("请选择需要处理的数据范围：", "选择范围", ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    End If
    Set xRg = Range(xTxt)
    If xRg Is Nothing Then Exit Sub ' 如果用户取消选择，直接退出
    
    Set xCol = New Collection
    xCIndex = 2 ' 从颜色索引2开始（跳过默认的无颜色）
    xRg.Interior.ColorIndex = xlNone ' 先清除原有颜色
    
    For Each xCell In xRg
        On Error Resume Next
        ' 尝试将单元格文本加入集合，重复值会触发错误457
        xCol.Add xCell.Text, Key:=xCell.Text
        
        If Err.Number = 457 Then
            ' 找到已存在的重复值，分配相同颜色
            For I = 1 To xCol.Count
                If xCol(I) = xCell.Text Then
                    Set xCellPre = xRg.Find(xCol(I), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
                    If xCellPre.Interior.ColorIndex = xlNone Then
                        xCellPre.Interior.ColorIndex = xCIndex
                        xCell.Interior.ColorIndex = xCIndex
                    Else
                        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
                    End If
                End If
            Next I
        ElseIf Err.Number = 0 Then
            ' 首次出现的值，保持无颜色（也可以改成分配新颜色，看需求）
            xCell.Interior.ColorIndex = xlNone
        End If
        
        ' 循环切换颜色索引，避免颜色耗尽
        If xCIndex = 56 Then
            xCIndex = 2
        Else
            xCIndex = xCIndex + 1
        End If
    Next
End Sub

• 自动识别选中的数据范围，若未选中则弹出窗口让你选择目标列（比如付款人名称列）
• 用集合记录已出现的付款人名称，确保同一付款人用相同颜色标记，不同付款人用不同颜色区分
• 颜色会循环使用（从颜色索引2到56，覆盖Excel内置的大部分标准颜色），避免颜色不够用
• 处理前会清除目标范围的原有颜色，避免格式混乱

1. 打开你的逾期付款人表格
2. 按下Alt + F11打开VBA编辑器
3. 右键点击左侧的工作簿名称，选择「插入」→「模块」
4. 将上面的完整代码粘贴到模块窗口中
5. 回到Excel界面，按下Alt + F8，选择ColorCompanyDuplicates宏并执行
6. 按照提示选择要处理的列（比如A列的付款人名称），确认后就能自动给重复值上色了

• 如果想固定处理某一列（比如A列，表头在A1），可以把代码中获取范围的部分改成：

  Set xRg = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
  

  这样每次运行宏就会自动处理A列的所有数据，不用手动选范围
• 如果觉得内置颜色不够区分，可以把ColorIndex改成Color，用RGB随机颜色：

  xCellPre.Interior.Color = RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)
  

  这样每个重复组会得到随机的独特颜色，辨识度更高

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