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

2087788

哦～～～～

weigang1860

不错的帖子，顶起

157223157

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

vs2010

用Dictionary速度更快些{:soso_e100:}

1. Sub 方法New()
   
2. On Error Resume Next
   
3. Application.ScreenUpdating = False
   
4. Dim arr, arr1
   
5. t = Timer
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. [k:k].ClearContents
   
8. p = [a65536].End(xlUp).Row
   
9. arr = Application.Transpose(Range("a1:a" & p))
   
10. For j = 1 To p
    
11.     d.Add arr(j), arr(j)
    
12. Next
    
13. Range("k1:k" & d.Count) = Application.Transpose(d.keys)
    
14. t1 = Timer - t
    
15. MsgBox "用时：" & t1 & "秒"
    
16. Application.ScreenUpdating = True
    
17. End Sub

复制代码

movinger

厉害，对于筛选很有借鉴性，我之前曾经用 dictionary 类做相同的事情。
使用楼主的excel试了下，当面对巨型数据(>100万)时还是有点小bug，我试着去掉了定义时的 &，调整了一下[]中的数字，就ok了。
发现面对巨型数据时，速度的差异就被放大了。

试验内容：100万字
方法1：不敢尝试，怕死机
方法2：298 秒
方法3：12.7 秒
方法4：179.9 秒
方法5：2.74 秒
方法6(仿照5，用dictionary类做)：2.34 秒

卓朝晖

好东西。先收藏下，有时间认真学习下。。。

Excel2119

拜读神贴，期待下期！

haps_star

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. t = Timer
   
4. Dim Rowa&, i&
   
5. Dim Dict1 As Object
   
6. [L:L].ClearContents
   
7. Set Dict1 = CreateObject("scripting.dictionary")
   
8. Rowa = [a65536].End(xlUp).Row
   
9. For i = 1 To Rowa
   
10. Dict1(Cells(i, 1).Value) = ""
    
11.   Next
    
12.   
    
13. Cells(1, "L").Resize(Dict1.Count, 1) = Application.WorksheetFunction.Transpose(Dict1.keys)
    
14. 
    
15. t1 = Timer - t
    
16. MsgBox "用时：" & t1 & "秒"
    
17. Application.ScreenUpdating = True
    
18. End Sub

复制代码

wlztzz

收藏~学习~

jiangdong110

这个一定要学习的，前段时间还用到的呢！