標題: [發問] 請教自動篩選的問題 [打印本頁]

---

作者: nightkiss    時間: 2012-4-11 23:38     標題: 請教自動篩選的問題

各位先進好，想請教一下A欄位設定自動篩選後，自動篩選的下拉表單可以看到
A欄位內全部不重複的資料項目，我可以利用VBA抓到這全部的內容嗎?

謝謝指導!!

---

作者: GBKEE    時間: 2012-4-12 07:13

回復 1# nightkiss
須用進階篩選
AdvancedFilter 方法    VBA 說明
請參閱套用至範例特定基於準則範圍從資料清單中篩選或複製資料。如果初始選定為單個儲存格，則使用儲存格目前的區域x為Variant。
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression      必選。該運算式會傳回 [套用於] 清單中的其中一個物件。
Action     必選的 XlFilterAction 資料類型。
XlFilterAction 可以是這些 XlFilterAction 常數之一。
xlFilterCopy
xlFilterInPlace
CriteriaRange     選擇性的 Variant。準則範圍。如果省略此引數則無準則。
CopyToRange     選擇性的 Variant。如果 Action 為 xlFilterCopy，此引數指定被複製列的目標範圍。否則忽略此引數。
Unique     選擇性的 Variant。若為 True，則僅篩選唯一的記錄；若為 False，則篩選出所有符合準則的記錄。預設值為 False。

1. Option Explicit
   
2. Sub Ex()
   
3.     Range("A1:A20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
   
4.     '複製於Range("J1")
   
5. End Sub
   
6. Sub Ex1()
   
7.     Range("A1:A20").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
   
8.     '在原範圍顯示
   
9. End Sub

複製代碼

---

作者: nightkiss    時間: 2012-4-13 08:25

回復 2# GBKEE

謝謝大大熱心的指導，受用良多!!

---

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