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

来源：互联网发布：功夫全球票房知乎编辑：程序博客网时间：2024/05/16 12:49

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

0 0