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

lipton

以下是引用[I]UNARTHUR[/I]在2005-9-2 11:30:26的发言：

t五十步

一种不错的方法！和collection方法异曲同工！[em17]

可惜最后赋值不能直接赋值，需要循环，另外中间一个if判断可以取消

谢谢补充！

可以直接赋值的，请看代码 另在我的机子上用错误开关比用Exists快 借用五十步的代码 Sub Uniquedata() Dim d As New Dictionary Dim Arr, c, t Application.ScreenUpdating = False t = Timer p = [a65536].End(xlUp).Row 'Set d = CreateObject("Scripting.Dictionary") Arr = Range("a2:a" & p) For Each c In Arr If Not d.Exists(CStr(c)) Then d.Add CStr(c), c End If Next Sheet1.Range("d2:d" & d.Count - 1) = Application.Transpose(d.Items) t = Timer - t Application.ScreenUpdating = True MsgBox t '0.146秒 End Sub Sub Uniquedata_a() Dim d As New Dictionary Dim Arr, c, t Application.ScreenUpdating = False t = Timer p = [a65536].End(xlUp).Row 'Set d = CreateObject("Scripting.Dictionary") Arr = Range("a2:a" & p) For Each c In Arr On Error Resume Next d.Add CStr(c), c If Not Err.Number = 0 Then Err.Clear On Error GoTo 0 End If Next Sheet1.Range("d2:d" & d.Count - 1) = Application.Transpose(d.Items) t = Timer - t Application.ScreenUpdating = True MsgBox t '0.125秒 End Sub

[此贴子已经被作者于2006-5-29 13:55:23编辑过]

xbbao

谢谢楼主，受益匪浅

UNARTHUR

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

plxmm

喜欢买关子嘛。

ldy888

http://club.excelhome.net/dispbbs.asp?boardid=102&replyid=410633&id=170109&page=1&skin=0&Star=2 楼主早有答案了,看了楼主的出手当时就想到这一帖.试做如下,好在没有多余的代码. Sub 按钮3_单击() t = Timer Dim col As New Collection On Error Resume Next arr = Range("a1:a65536") '目标列转到数组,跑得快 ar = Range("z1:z65536") '随便找个空列,建个数组 For a = 1 To [a65536].End(xlUp).Row col.Add arr(a, 1) & "", arr(a, 1) & "" '处理数值必须要"" Next a For Each xxx In col '集合转到数组 ar(i + 1, 1) = xxx i = i + 1 Next Range("c1:c" & col.Count) = ar '填写表格 MsgBox Timer - t End Sub

[此贴子已经被作者于2006-6-20 12:38:53编辑过]

plxmm

仔细看了一下1楼的帖子。呵呵，应该是一个1周年贴嘛。

ldy888

又仔细比较了一下,

For a = 1 To [a65536].End(xlUp).Row
col.Add arr(a, 1) & "", arr(a, 1) & "" '处理数值必须要""
Next a
改成

For a = 1 To [a65536].End(xlUp).Row aa = arr(a, 1) & "" '处理数值必须要"" col.Add aa, aa Next a 虽说多了一句代码,但要快一点,10%左右.

[此贴子已经被作者于2006-6-20 12:47:24编辑过]

UNARTHUR

ldy888朋友好仔细！被你言中了！奖一朵鲜花，呵呵！[em23]

UNARTHUR

col.Add arr(a, 1), cstr(arr(a, 1))

如何？

ldy888

cstr可以强制将一个表达式转换成某种特定数据类型

楼主功力深厚! 比我的方法又快10%.PFPF

这是学费请笑纳![em24]