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

qifenghome

真是个好东西，收藏了  期待楼主下一贴  

arhujik

学习为主

gjj136138139

个人认为用dictionary对象（字典）应该快一些，经常用。再就是sql语句了。再下来是collection对象了。

xyh_bear

没错字典法速度较Collection都快（但重复值较少Collection还是比较快的）。
楼主一万行，重复较少时0.2秒左右（Collection：0.05左右），重复较多时需 0.8 秒左右（Collection：1.4秒左右）。

VBA筛选非重复值方法第7法：字典法 （利用字典主键唯一性 ）

1. Sub Dic()
   
2.     TT = Timer
   
3.     Dim LineNumber As Long
   
4.     Dim DR As New Dictionary
   
5.     Dim DD()
   
6.    
   
7.     LineNumber = Range("a65536").End(xlUp).Row
   
8. 
   
9.     For i = 1 To LineNumber
   
10.         If DR.Exists("K" & Cells(i, "a")) = False Then
    
11.             DR.Add "K" & Cells(i, "a"), Cells(i, "a")
    
12.         End If
    
13.     Next
    
14.    
    
15.     DD = DR.Items
    
16.    
    
17.     Range("L1:L" & DR.Count) = Application.WorksheetFunction.Transpose(DD)
    
18.     MsgBox Timer - TT
    
19. End Sub

复制代码

[ 本帖最后由 xyh_bear 于 2009-8-8 15:44 编辑 ]

AVEL

刚学了字典的用法，实验了一下，稍逊于 排序后筛选。。。

还是挺不错的。。。

lbg555

谢谢分享，下载学习

AVEL

Sub test1()
    T = Timer
    Dim C As Range, a, i%
    Set d = CreateObject("Scripting.Dictionary")
    i = Sheet1.[A65536].End(3).Row
    For Each C In Range("A1:A" & i)
        If C.Value <> "" Then
            If Not d.Exists(C.Value) Then d(C.Value) = ""
        End If
    Next
    Range("Q1:Q" & d.Count) = WorksheetFunction.Transpose(d.KEYS)
    MsgBox Timer - T
End Sub
=================================================================================

以上是小弟写的字典用法，速度仅次于该帖附件中的方法3.

theparadise

great job, thanks for sharing

wb861217

太谢谢了，加油

Lighttools

我的Excel一直用的是公式（从ExcelHome引用的）：
={INDEX(Data_T,SMALL(IF((MATCH(CONCATENATE(Data_T,""),CONCATENATE(Data_T,""),0)=ROW(INDIRECT("1:"&ROWS(Data_T)))),MATCH(CONCATENATE(Data_T,""),CONCATENATE(Data_T,""),0),ROWS(Data_T)),ROW(INDIRECT("1:"&ROWS(Data_T)))))}
这是哪一种方法，相比是快还是慢（由于我还不会把它变成VBA 进行比较） ，那位朋友说明一下，感激不尽。