請問AdvancedFilter裡的xlFilterInCopy

返回列表下一主題上一主題發帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-8-1 16:45 | 顯示全部帖子

回復 1# play9091
可以的

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

複製代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-8-1 17:16 | 顯示全部帖子

回復 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。

TOP

GBKEE