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
比较不同的单元格的值,设置不同的颜色
最新推荐文章于 2024-01-09 13:56:17 发布