[原创]VBA筛选非重复值方法比较

网上经常有朋友遇到关于非重复值的问题，诸如：删除重复记录，删除重复行，筛选非重复记录，分类汇总等。此类问题回答多了，感觉万变不离其宗，关键是筛选出非重复值。用vba来实现的方法很多，这里就对各种方法进行比较分析，旨在提高各位朋友代码的应用水平，同时对编程好坏判断标准做一个总结。希望各位网友提出宝贵意见。

mkpE7gCQ.rar (197.04 KB, 下载次数: 7756)

[em12]望各位老友捧下场哈，下一主题：VBA各种查询代码比较 感谢figfig兄为本贴提供的第六种解法(即ADO方法)，感兴趣的朋友可到23楼参阅。

同时感谢版主为本贴送精！

很好,对于筛选重复值,确实是比较实际的问题.学习了．渴望拜读下一贴．

很不错！！！

第一种方法好像是有点问题，上海、无锡好像是重复了，原因未查

我一直推崇第5种方法，对于错误处理，可以加两行代码处理

另外，运行中最好关闭屏幕更新，速度会更快一点点，关闭之前速度是0.0625，关闭之后是0.0469，运行多次数据也大致要少0.02秒左右

Sub aaa() t = Timer Dim i&, j&, k&, p&, arr, arr1() Dim h As New Collection

Application.ScreenUpdating = False 'UNARTHUR兄可以试试，看看关闭之后的速度 [k:k].ClearContents p = [a65536].End(xlUp).Row arr = Range("a1:a" & p)

On Error Resume Next For i = 1 To p h.Add arr(i, 1), CStr(arr(i, 1)) Next i Err.Clear On Error GoTo 0 '清除错误处理，以后出现错误时还是有显示

c = h.Count ReDim arr1(1 To c, 0) For i = 1 To c arr1(i, 0) = h(i) Next i Range("k1:k" & c) = arr1 t1 = Timer - t MsgBox "用时：" & t1 & "秒"

Application.ScreenUpdating = True End Sub

Long_III 兄， 向您学习了一招 清除错误处理的方法。(随便提一句：咱俩同时回复帖子的事情我估计也不少于5次了，呵呵!)

Err.Clear On Error GoTo 0 '清除错误处理，以后出现错误时还是有显示