請問AdvancedFilter裡的xlFilterInCopy

play9091

請教先進：進階篩選裡面的複製，有辦法跨Book或是Sheet嗎？

GBKEE

回復 1# play9091
可以的

1. Sub Ex()
   
2.     Sheet1.Range("a1:c10").AdvancedFilter xlFilterCopy, Sheet2.[a1:a2], Workbooks("Book1").Sheets(1).[a1:c1]
   
3. End Sub

複製代碼

play9091

回復 2# GBKEE


    所以應該進階篩選是下面這樣子嗎？

進階篩選：
被篩選範圍 . 進階篩選 純篩選或複製 , 準則 , 目的地

GBKEE

回復 3# play9091
請看 VBA  AdvancedFilter 方法
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
Action     必選的 XlFilterAction 資料類型。   XlFilterAction 可以是這些 XlFilterAction 常數之一。 xlFilterCopy    '複製到期他底放
                                                                                                                                                                             xlFilterInPlace  '顯示在原地方
CriteriaRange     選擇性的 Variant。準則範圍。如果省略此引數則無準則。
CopyToRange     選擇性的 Variant。如果 Action 為 xlFilterCopy，此引數指定被複製列的目標範圍。否則忽略此引數。
Unique     選擇性的 Variant。若為 True，則僅篩選唯一的記錄；若為 False，則篩選出所有符合準則的記錄。預設值為 False。

play9091

回復 4# GBKEE

嗯～

後來我找到用F1看了……一直忘記還有F1，哈！

等一下實做看看……有問題的話再請教您！！

play9091

回復 4# GBKEE

請問一下，下面這語句有沒有錯……它又跳找不到位置了……

1. Workbooks(Clu).Sheets("Sheet1").Range("A10:EQ8000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= Workbooks(Clu).Sheets("Sheet1").Range("E3:E4"), copytorange:=Workbooks(KPI). Sheets("M2000 BSC KPI Report (2)").Range("A3:EQ3"), Unique:=False

複製代碼

luhpro

回復  GBKEE

請問一下，下面這語句有沒有錯……它又跳找不到位置了……
play9091 發表於 2011-8-1 21:29

在 ...(KPI). Sheets("M2000... 中
KPI). 後面多了一個空格.

GBKEE

回復 6# play9091
Sheets("M2000 BSC KPI Report (2)"). 檢查一下工作表名稱

play9091

回復 8# GBKEE

經過多次測試後，可以了！沒有問題……但，我又有另外一個問題，如何不把第一列複製過去呢？？

GBKEE

回復 9# play9091
進階篩選  將資料顯示於指定的位置一定會顯示欄位的,你可事後將欄位刪掉