返回列表 上一主題 發帖

[發問] 進階篩選

fashionable3000

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-8-5 
最後登錄
2016-4-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-8-26 19:27 | 顯示全部帖子

[發問] 進階篩選


Range("A2:A6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("B2:B3"), CopyToRange:=Range("C2:C2"), Unique:=False

vba用這條，裡面的結果都有我不要的，請問要如何修改才能完全相符？

也就是上面只找到A0020,下面只找到20。

用一般篩選是可以做到，可是速度有點緩慢，欣賞進階篩選的速度，但是這結果不太好。

題外話:常常第一次執行vba(xx.show)，剛顯示出來就掛了，只要重開就能正常執行，請問可能的原因是?
收藏 分享

fashionable3000

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-8-5 
最後登錄
2016-4-13 
2#
發表於 2015-8-26 23:18 | 顯示全部帖子
您好，我的那條語法就是從那個視窗錄製的

不過那個視窗沒有"完全符合"或是"部分符合"這種選項

所以會找到比預期還多的資料。

TOP

fashionable3000

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-8-5 
最後登錄
2016-4-13 
3#
發表於 2015-8-27 12:19 | 顯示全部帖子
回復 4# Scott090

結果好像還是一樣:(

或是可以問進階篩選的原理嗎?

Dim i%, j%
i = 3
j = 3
Do Until Range("a" & i) = ""
    If Range("a" & i) = Range("b" & 3) Then
    Range("c" & j) = Range("a" & i)
    j = j + 1
    End If
i = i + 1
Loop

雖然這樣也是可以達成，不過當10000筆以上，速度跟進階篩選完全不能比。

TOP

fashionable3000

帖子
7 
主題
3 
精華
0 
積分
10 
點名
0  
作業系統
win7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2014-8-5 
最後登錄
2016-4-13 
4#
發表於 2015-8-28 08:34 | 顯示全部帖子
回復 6# Scott090

謝謝指導，這樣我會了，感激不盡!!

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題