Board logo

標題: [發問] 請教關於vba進階篩選 [打印本頁]
作者: sto3688    時間: 2013-3-8 13:24     標題: 請教關於vba進階篩選

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

請教上面的 T1:T250 如果是T1是固定,T250是變數,該如何修改?
作者: kimbal    時間: 2013-3-8 13:32

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    時間: 2013-3-8 13:51

回復 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    時間: 2013-3-9 11:58

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)