雖然在此發表VBA的主題似乎不怎麼恰當... 但小弟想學習是不該畫地自限的... 又加上本論壇臥虎藏龍...因此還是希望有前輩能不吝指教... 最近剛接觸VBA，想利用VBA寫一個自動篩選的巨集 巨集的做法是，篩選某一欄位的特地值... 然後將篩選出來的值COPY到另一檔案... 小弟有想過利用回圈來寫... 但是不知道該怎麼取得篩選的值... 例如有:A...B...C....D...等 便需要取得4個變數，然後回圈分別篩選A.B.C.D 依此類推... 再者，當篩選出值之後，開怎麼知道起始與結束的RANGE呢？ 還請各位前輩不吝賜教！

看不懂 麻煩再描述清楚些， >

謝謝大大的回應... 不是貼錯文章啦～只是真的很需要有人幫忙^^" 我是要再excel作滴... 舉例： 現在有A B C D欄位 我想以A欄位的值作篩選... 例如有a.b.c 故需要三次回圈去做篩選... 第一次篩"a"...然後將篩出來的值複製貼上存成另一個檔 第二次篩"b"...第三次篩"c"...依此類推... 因為無法確定有幾個值...所以必須先能取得篩選的變數值以及個數 (有點像是GROUP BY)的感覺... 再來，因為之前試著寫VBA... 可是不知道該怎麼抓資料的起始值與結束值... 所以在此一並請教！

S SIR:    鬖考看看   Range("A1").Select     Selection.AutoFilter     Selection.AutoFilter Field:=1, Criteria1:="a"    ddy 兄 你的簽名 可能要加註解囉 < >< >

------
︿︿

ㄜ...不是降低... 肯定的用法我會寫... 我想請教的是如果不知道有那些值... 即並非是"a b c d" 也可能是"e f g h"... 該怎麼寫呢？ 請教^^"

S SIR:    "ㄜ...不是降低..."   這一句 看不懂    Range("A1").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=Range("A2").TEXT        

------
︿︿

1." "ㄜ...不是降低..." 這一句 看不懂" 這句話是說...我的意思不是想篩選固定值 2.Selection.AutoFilter Field:=1, Criteria1:=Range("A2").TEXT 請教一下以上的語法，是指定A2這個欄位作為篩選值嗎？ 3.當EXCEL選擇自動篩選時...會出現一個下拉式的選單... 是否有辦法能取得這個下拉式選單的值呢？ (例如那個選單是一個物件...然後能根據INDEX值傳回內容...以及COUNTER數) 這是我假設的...不知道是否真的有... 跑遍各大書局，翻濫了每本講VBA的書都沒找到相關資料... 還是要靠寫程式來克服呢？ 又...該怎麼寫才能去克服這樣的問題呢？ 因為事情繞來繞去又回到原點...EXCEL的物件怎麼用@@?

2.Selection.AutoFilter Field:=1, Criteria1:=Range("A2").TEXT 請教一下以上的語法，是指定A2這個欄位作為篩選值嗎？    YES 3.當EXCEL選擇自動篩選時...會出現一個下拉式的選單... 是否有辦法能取得這個下拉式選單的值呢？ (例如那個選單是一個物件...然後能根據INDEX值傳回內容...以及COUNTER數) 這是我假設的...不知道是否真的有... sorry,我沒試過 跑遍各大書局，翻濫了每本講VBA的書都沒找到相關資料... 還是要靠寫程式來克服呢？ EXCEL VBA 巨集 的書 相當多 你可以找找看

------
︿︿

CMF大，還是很感謝您的回應... 我會再多找些資料看看的... 如果有任何蛛絲馬跡或心得... 會再分享我的成果～謝謝！

引言: 不是貼錯文章啦～只是真的很需要有人幫忙^^" …… … ddy 兄 你的簽名 可能要加註解囉

嗚~~我又被誤會了< > =============================================================================== 提醒您，貼錯文章可立即傳訊通知該版版主/站長/副站長協助處理，不要放著不管喔< >

ㄜ...原來是誤會一場啊^^"