VBA 複数条件で抽出するには？

複数条件で抽出するには？

detail.chiebukuro.yahoo.co.jp/qa/question_detail.php;_ylt=A7YWPReHKqhT1A0A39YR_fN7?qid=13130684403&sort=1#sort

質問者

diogenes412323さん

2014/6/1702:04:48

複数条件で抽出するには？

Ｂ列でＮを選び、Ｃ列でaとbとcを選び、D列であを選んで
その選んだ行だけを書きだすにはどうしたらいいでしょうか？
シートをたくさんコピーしておいてそれを加工してますが、もっといい方法はありますか？
申し訳ありませんがすぐ試せるよう
Sub ()
End Sub
付きで教えてください。

http://ks.c.yimg.jp/res/chie-que-13130/13/130/684/403/i320

閲覧数：

19

回答数：

2

お礼：

100枚

 

mitokuboさん

2014/6/1707:06:48

マクロで行うような内容ではありませんね。関数を使って十分対応することができます。

例えばお示しの表がシート１のＡ列からＥ列の２行目から下方に有るとしてＧ２セルには次の式を入力して下方にドラッグコピーします。

=IF(AND(B2="N",OR(C2="a",C2="b",C2="c"),D2="あ"),MAX(G$1:G1)+1,"")

その後に該当する行をシート２に表示させるとしたらシート２のＡ２セルには次の式を入力してＥ２セルまで横にドラッグコピーしたのちに下方にもドラッグコピーすればよいでしょう。

=IFERROR(INDEX(Sheet1!$A:$E,MATCH(ROW(A1),Sheet1!$G:$G,0),COLUMN(A1)),"")

なおシート１の作業列が目障りでしたらその列を選択して右クリックし「非表示」を選択すればよいでしょう。

http://ks.c.yimg.jp/res/chie-qaprof-12/12/515/229/i48

chiquilin_siteさん

2014/6/1711:33:47

> Sub ()
> End Sub
> 付きで教えてください。
マクロの知識がさっぱりないならマクロは止めときましょう。この
くらいの抽出ができないってことは 基礎知識ゼロってことでしょ？

フィルタの詳細設定で抽出できます。どうしてもマクロがいいなら
それを記録マクロにすればいいです。