[已解决]VBA代码标记重复数据

chenrh007 · 发表于 2013-7-13 13:00

Sub cz()
Dim d, i%
Columns("G:G").ClearContents
r = [d65536].End(3).Row
arr = Range("d2:d" & r)
Set d = CreateObject("Scripting.dictionary")
For i = 1 To UBound(arr)
If d.exists(arr(i, 1)) Then
   Range("g" & i + 1) = "重复号码"
   n = d(arr(i, 1))
   Range("g" & n + 1) = "重复号码"
Else
   m = m + 1
   d.Add arr(i, 1), m
End If
Next
Set d = Nothing
End Sub
请问下大家，上面的代码是对重复的数据进行标记“重复号码”字样，在数据源D列进行重复查找，但是对D列升序或降序排序后，这段代码重复标记就出现错误，就是说重复的号码在不连续的情况下，代码可以正常标记，排序后重复号码都挤到一起，代码就会标记错误。
求修改！！麻烦了

最佳答案

月排行榜 / 总排行榜

上清宫主

2013-7-13 13:14

把m = m + 1
d.Add arr(i, 1), m
两行改成 d(arr(i, 1)) = i

跳转到最佳答案楼层