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

qifenghome · 发表于 2009-7-1 19:22

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

arhujik · 发表于 2009-7-13 22:49

学习为主

gjj136138139 · 发表于 2009-8-8 14:10

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

xyh_bear · 发表于 2009-8-8 15:42

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

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

Sub Dic()
TT = Timer
Dim LineNumber As Long
Dim DR As New Dictionary
Dim DD()
LineNumber = Range("a65536").End(xlUp).Row
For i = 1 To LineNumber
If DR.Exists("K" & Cells(i, "a")) = False Then
DR.Add "K" & Cells(i, "a"), Cells(i, "a")
End If
Next
DD = DR.Items
Range("L1:L" & DR.Count) = Application.WorksheetFunction.Transpose(DD)
MsgBox Timer - TT
End Sub

复制代码

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

AVEL · 发表于 2009-8-18 22:26

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

还是挺不错的。。。

lbg555 · 发表于 2009-8-18 22:51

谢谢分享，下载学习

AVEL · 发表于 2009-8-18 23:24

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 · 发表于 2009-8-20 17:06

great job, thanks for sharing

wb861217 · 发表于 2009-8-22 23:03

太谢谢了，加油

Lighttools · 发表于 2009-9-4 04:33

我的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 进行比较），那位朋友说明一下，感激不尽。

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