比较不同的单元格的值,设置不同的颜色

Sub SetDifferentColor()
'
' 比较不同的单元格的值,设置不同的颜色
'

   Dim colors  As Variant
   
   colors = Array(21, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
  
    Dim colname As String
    
    Dim lastindex As Integer
   
    Dim i As Integer
    Dim target As String
    Dim model As String
    Dim colorindex As Integer
    
    colname = InputBox("请输入需要比较的列")
    If Len(colname) = 0 Then
        Exit Sub
    End If
    
    lastindex = Range(colname & 65536).End(xlUp).Row
    For i = lastindex To 1 Step -1
        model = Range(colname & i).Value
        colorindex = Range(colname & i).Interior.colorindex
        If colorindex = xlNone Then
            For ii = i - 1 To 1 Step -1
                target = Range(colname & ii).Value
                If model = target Then
                    Range(colname & i).Interior.colorindex = colors(i Mod 20)
                    Range(colname & ii).Interior.colorindex = colors(i Mod 20)
                End If
            Next
        End If

    Next
    
End Sub