[[20140805103437]]　『オートフィルタ』（まりりん）　ページの最後に飛ぶ

『オートフィルタ』（まりりん）

別のシートの値を検索してそれと一致する列のオートフィルタは可能でしょうか。

抽出条件とデータという2つのシートがあります。
抽出条件には

A　　　　　B　　　　　C
担当者　　予算区分　　年月
Aさん　　　001　　　　2014年7月
Bさん　　　002
Cさん

と入っており、
データには

A　　　　　B　　　　　　　C　　　　　　　D
担当者　　予算区分　　2014年6月　　　2014年7月
Aさん　　　001　　　　　　　　　　　　　　　500　
Aさん　　　002　　　　　　　100　　　　　　
Bさん　　　001　　　　　　　2000　　　　　　2000　

と入っています。（データ数は変動します）

まずA列とB列の中身でオートフィルタをします。
そのあとC列の【2014年7月】の【列名】を探して、その列の空白以外をオートフィルタしたいです。

一致する列名を探し、その列をさらにオートフィルタすることは可能でしょうか。
また、前作業としてA、B列ですでにオートフィルタしますので、それと組み合わせることができますでしょうか。

A、Bのオートフィルタは以下で行っています

  Worksheets("データ").Range("A1").AutoFilter Field:=1, Criteria1:=Array((Worksheets("抽出条件").Range("A2")), (Worksheets("抽出条件").Range("A3")), (Worksheets("抽出条件").Range("A4"))), _
  Operator:=xlFilterValues

  Worksheets("データ").Range("A1").AutoFilter Field:=2, Criteria1:=Array((Worksheets("抽出条件").Range("B2")), (Worksheets("抽出条件").Range("B3"))), Operator:=xlFilterValues

見にくい上にわかりにくいかもしれませんが、よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 たとえば、MATCH関数を使って
 抽出条件シートのC2セルと同じ値を
 データシートのA1:D1の範囲で探すと
 ご呈示の例では「4」が返されると思います。

 オートフィルタの Fieldの所にその値を入れるのはどうでしょう？
 　
（HANA） 2014/08/05(火) 14:30

HANAさん

ありがとうございます！
無事解決できました！
（まりりん） 2014/08/06(水) 14:02

コメント返信：

[ 一覧(最新更新順) ]

[[20140805103437]] 『オートフィルタ』（まりりん） ページの最後に飛ぶ

[[20140805103437]]　『オートフィルタ』（まりりん）　ページの最後に飛ぶ