[已解决]单列重复数据查询并显示求助

大灰狼1976

高版本打不开,你先试试以下代码,已根据你的说明作了修改

1. Private Sub CommandButton1_Click()
   
2. Dim arr, i&, j&, d As Object, c
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("b2:b" & [b65536].End(3).Row)
   
5. j = 1
   
6. For i = 2 To UBound(arr)
   
7.   d(arr(i, 1)) = d(arr(i, 1)) + 1
   
8. Next i
   
9. For Each c In d.KEYS
   
10.   If d(c) = 1 Then d.Remove (c)
    
11. Next c
    
12. MsgBox Join(d.KEYS, ",")
    
13. End Sub

复制代码

SMT-AOC

大灰狼1976 发表于 2013-7-27 12:25
高版本打不开,你先试试以下代码,已根据你的说明作了修改

非常感谢你的帮助, 和我想要的效果一样,而且速度很快.  多谢.{:091:}