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

Kelidai · 发表于 2006-3-26 09:11

全下载好好研究,谢谢楼主.

jacksonzeng · 发表于 2006-3-26 10:47

我也支持ADO技术，毕竟ADO技术在筛选方面速度上确实有一定的优势

dongzhong · 发表于 2006-3-29 12:57

　　　要是数据不是在一列或一行，比如，源数据在N行M列的矩形范围内！怎么查找非重复值呢？

yqg · 发表于 2006-4-9 14:32

好东东,谢谢楼主,继续期待你的作品

zhaxinbo · 发表于 2006-4-9 15:38

以下是引用[I]五十步[/I]在2005-9-2 11:08:36的发言：[BR]
Sub Uniquedata() p = [a65536].End(xlUp).Row Set d = CreateObject("Scripting.Dictionary") For Each cell In Range("a1:a" & p) If cell <> "" Then If Not d.exists(cell.Value) Then d.Add cell.Value, cell.Value End If End If Next a = d.Items For i = 0 To d.Count - 1 Cells(i + 1, 11) = a(i) Next i Columns("K:K").Sort Key1:=[K1], Header:=xlNo End Sub

在前辈的基础上续一个！呵呵。速度不亚于集合

fDOTvVFG.rar (247.31 KB, 下载次数: 149)

fokus · 发表于 2006-4-9 16:33

顶

好是好，看不懂，要学的太多啦！！！

ly.liang · 发表于 2006-4-13 16:08

太实用了，喜欢第三种方法，完成后还能马上得到个数，而且速度也很快。

[em02]

hao182 · 发表于 2006-4-15 00:18

如果不是复制,是标记重复数据其中的一个,比如在重复数据旁边的单元格标记"Y",怎么写呢?

2tExoNFq.rar (6.57 KB, 下载次数: 20)

[此贴子已经被作者于2006-4-17 22:40:46编辑过]

kechxx · 发表于 2006-4-27 11:08

好贴学习中……

mancangmaizi · 发表于 2006-5-17 16:30

好帖，受益匪浅......

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

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

狗尾续貂之作