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

wx-x

谢谢

lidning

谢谢！非常感谢！

正在为速度发愁呢，到了这里看到这么好的帖子，谢谢楼主！谢谢斑竹！

ch305

真系好野来,多谢楼主啊...让我们受益不少!

shizx98

谢谢大师的努力！学习了很多。其中ADO法与高级筛选法一样需要有字段作表头的。

热浪2006

支持一下

三戒

收藏研究下，谢谢楼主！

zj_xx

经典！认真学习。

lizhigang160

谢谢分享！学习了！！！

YD1970121001

Sub 按钮1_单击()
Application.ScreenUpdating = False
t = Timer
'Dim i&, j&, k&, p&, rng, rng1, ary()
Dim I As Long, J As Long, K As Long, P As Long
Dim RNG, RNG1, ARY()
Dim ARR As Range
Range("g:g").ClearContents
P = Range("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
=================

抄来了一段代码:

我想问一问,红色字体的语句是什么意思?

shing32356

有没有相关dao 跟ado 的相关解释的贴子呀,这些东西不是很懂,[em04]