是否可以用唯一的颜色为每组重复值着色？

Question

我有一个 Excel 表，在 C 列中有大量条目，其中有一些是重复值。 我有这段代码，它基本上遍历整个 C 列，检查每组重复值并用特定颜色为它们着色。

Sub ColorCompanyDuplicates()

Worksheets("Master Filtered").Activate

    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

    Dim lastrow As Long
lastrow = Cells(Rows.Count, 1).End(xlUp).Row


    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = ThisWorkbook.Worksheets("Master Filtered").Range("C4:C" & lastrow)

    If xRg Is Nothing Then Exit Sub
    xCIndex = 2
    Set xCol = New Collection
    For Each xCell In xRg
      On Error Resume Next
      xCol.Add xCell, xCell.Text
      If Err.Number = 457 Then
        xCIndex = xCIndex + 1
        Set xCellPre = xCol(xCell.Text)
        If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
        xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
      ElseIf Err.Number = 9 Then
        MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
        Exit Sub
      End If
      On Error GoTo 0
    Next
End Sub

从某种意义上说，它实际上是在用相同的颜色为 C 列中的相同值着色。

但是，我的问题是我实际上希望这段代码用 UNIQUE 颜色为每组重复值着色。我的代码没有这样做。它为不同的重复值组重复相同的颜色。

您是否知道如何修改此代码以使 C 列中的每组重复值具有唯一的不同颜色？

谢谢你:)

Answer 1

不使用 colorIndex，而是按照 Cyril 在 cmets 中的建议旋转 RGB 值。

if If xCellPre.Interior.Pattern = xlNone then xcell.interior.color = RGB((xCIndex * 159) Mod 256, (xCIndex * 68) Mod 256, (xCIndex * 47) Mod 256)

值 159、68 和 47 会给你一个很好的随机感觉，让你在一段时间内不会看到相似的颜色。 mod 256 部分确保值在允许的 0-255 范围内。