发布网友 发布时间:2022-05-10 18:33
共1个回答
热心网友 时间:2023-10-22 00:53
Sub test() '重复的数据或文字清除整行的宏 已验证追答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个,留一个。正在修改,还没找到办法。