【Excel】通过宏方式,用颜色标识一列数据的重复值(蓝色底纹),备注:office2007
展开全部
Sub t()
r0 = Range("A65536").End(xlUp).Row
If r0 < 2 Then Exit Sub
For r = 1 To r0
Range("A" & r).Interior.Pattern = xlNone
Next
For r = 1 To r0 - 1
For i = r + 1 To r0
If Range("A" & r) = Range("A" & i) Then
Range("A" & r).Interior.Color = RGB(0, 0, 255)
End If
Next
Next
End Sub
这段代码能实现功能,但效率不高,仅供参考。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询