[發問] 請教關於vba進階篩選

sto3688

Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "T1:T250"), CopyToRange:=Columns("V:AK"), Unique:=False

請教上面的 T1:T250 如果是T1是固定,T250是變數,該如何修改?

kimbal

Columns("A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "T1:T250"), Cop ...
sto3688 發表於 2013-3-8 13:24

主要是看看你想如何變

1. rng = "T250"
   
2.     Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
   
3.         "T1:" & rng), CopyToRange:=Columns("V:AK"), Unique:=False

複製代碼

GBKEE

回復 1# sto3688

1. Option Explicit
   
2. Sub EX()
   
3.     Dim Rng As Range
   
4.     '*** CriteriaRange 準則範圍  ****
   
5.     '單欄的準則
   
6.     Set Rng = Range("T1", Range("T1").End(xlDown))  ' xlDown  向下
   
7.     '多欄的準則  (連續範圍)
   
8.     'Set Rng = Range("T1").CurrentRegion
   
9.     'CurrentRegion 屬性 傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍。唯讀。
   
10.     Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Rng, CopyToRange:=Columns("V:AK"), Unique:=False
    
11. End Sub

複製代碼

sto3688

感謝兩位大大回復,再試試囉~