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

rrjg

Long_III 兄：

为什么运行到该句出错！

xx.Open "driver={microsoft excel driver (*.xls)};dbq=" & ThisWorkbook.FullName

vsvs619

请教大侠:

Sub 按钮1_单击() Application.ScreenUpdating = False t = Timer Dim i&, j&, k&, p&, rng, rng1, ary() Dim arr As Range [g:g].ClearContents p = [a65536].End(xlUp).Row Set arr = Range("a1:a" & p) ReDim ary(1 To p, 0) rng = arr arr.Sort Key1:=arr(1, 1), Order1:=xlAscending, Header:=xlNo rng1 = arr arr = rng '请问大侠,此句用意何在? 经我调试,好像是多余啊! ary(1, 0) = rng1(1, 1) For i = 2 To p If rng1(i, 1) <> rng1(i - 1, 1) Then ary(k + 2, 0) = rng1(i, 1) k = k + 1 End If Next i Range("g1:g" & p) = ary

t1 = Timer - t MsgBox "用时：" & t1 & "秒" Application.ScreenUpdating = True End Sub

vsvs619

另外 rng 变量的设定好像有点多余,根本用不到啊

Long_III

to rrjg，我不会ADO编程方法，故也不知道怎么处理

对于55楼的问题，可以这么理解

rng = arr arr.Sort Key1:=arr(1, 1), Order1:=xlAscending, Header:=xlNo rng1 = arr arr = rng '请问大侠,此句用意何在? 经我调试,好像是多余啊!

rng数组为排序之前的数据，

rng1数组为排序之后的数据，最后再设置单元格数据为rng，作用是不打乱原始数据的顺序

UNARTHUR

谢谢长三兄代劳解释。

chat163

每办法还是只能灌水一下了

lbw5

我觉得还漏掉了一种最快的方法,即使用"SQL"语句.对于非重复值的提取用"SQL"语句又简单又快捷.

Select distinct A form [筛选非重复值$] 一句搞定

UNARTHUR

以下是引用lbw5在2005-8-23 14:52:26的发言：

我觉得还漏掉了一种最快的方法,即使用"SQL"语句.对于非重复值的提取用"SQL"语句又简单又快捷.

Select distinct A form [筛选非重复值$] 一句搞定

也要视数据的具体情况而定。figfig兄在23搂为本贴提供了ADO方法，请楼上参阅

五十步

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

UNARTHUR

t五十步

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

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

谢谢补充！