比如像下面的某列数据,我想从第一个数据开始查,查到不重复为止,并用一种颜色将几个重复的数据正行填充颜色,然后继续往下找,用另一种颜色标注下一组重复的。两种颜色就可以了;事例如下:
1
1
1
2
2
3
3
3
打开代码编辑器,复制如下代码即可:
Private Sub Worksheet_Activate()
r = Application.CountA(Range("E:E")) '其中E表示第五列
For i = 1 To r - 1
Color1 = Int(57 - 56 * Rnd) ‘重复的项目颜色随机
For j = 1 To r
If i <> j And Cells(i, 5) = Cells(j, 5) Then '5表示E第五列
Cells(i, 5).Interior.ColorIndex = Color1
Cells(j, 5).Interior.ColorIndex = Color1
End If
Next
Next
End Sub