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

UNARTHUR · 发表于 2005-6-20 17:34

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

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

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

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

[2006-06-20] 经研究，发现方法5(collection)的代码尚可进一步优化，优化后与其他所有方法相比综合表现最优！暂时不公布答案，感兴趣的朋友不妨先思考一下？

[此贴子已经被作者于2006-6-20 9:36:28编辑过]

plxmm · 发表于 2005-6-20 17:47

哈，活过来啦。先瞧瞧再讲一剑。

布衣铁剑 · 发表于 2005-6-20 18:15

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

zz5151353 · 发表于 2005-6-20 20:19

真是好東西謝謝 UNARTHUR 兄無私提供分享 !!![em17]

青山依旧 · 发表于 2005-6-20 22:54

好东西呀!非常感谢![em17][em17][em17]

button · 发表于 2005-6-20 23:17

总结的好，期待继续...

ab007 · 发表于 2005-6-21 08:48

谢谢UNARTHUR，总结的很好，试了一下其中的方法一的结果，上海与无锡好像还是重复了，劳请看看

Long_III · 发表于 2005-6-21 09:15

很不错！！！

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

我一直推崇第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

foshan · 发表于 2005-6-21 09:15

谢谢楼主分享! 收藏! 我更喜欢用自定义集合的方法![em22][em23][em24]

foshan · 发表于 2005-6-21 09:29

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

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

		自动登录	找回密码
密码			免费注册

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

评分