怎样快速在excel查找重复数据并标出颜色

发布网友发布时间：2022-05-10 18:33

共1个回答

热心网友时间：2023-10-22 00:53

Sub test() '重复的数据或文字清除整行的宏已验证
'
Dim j As Integer
i = Range("a30000").End(xlUp).Row
For j = i To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("a:a"), Cells(j, 1)) > 1 Then Cells(j, 1).EntireRow.Delete
Next
End Sub
转载高手制作的，可惜没记住高手的姓名。请高手原谅。
这是个查找在A列重复数据后直接删除整行的VBA，最多是30000行。使用前最好先排序，另最好先备份文件。2003版追问谢谢但不是要删除哦，只是整出重复的用颜色标出来。

追答Sub 查找重复新件() '重复的数据或文字的单元格填充*的宏已验证
'
Dim a, b, c, d, abcd, i As Variant
b = Cells(1, 2)
c = Cells(1, 3)
Cells(1, 2) = "=COUNTA(C[-1])"
i = Cells(1, 2)
a = 1
For abcd = i To 1 Step -1
a = a + 1
d = "A" & (a + 1)
Cells(1, 3) = "=COUNTIF(A:A," & d & ")"
Cells(a + 1, 1).Select
If Cells(1, 3) > 1 Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next
Cells(1, 2) = b
Cells(1, 3) = c
End Sub
感觉有点笨，并且重复的单元格全部涂上颜色了，没留下一个。比如有3个重复的，应该涂2个，留一个。正在修改，还没找到办法。