エクセル 検索したデータを１行抽出するには

質問

よろしくお願いします。

シート１には

氏名　　　　　　　生年月日　　　コード　　　　コード　　　コード 　　　交付番号
安心太郎　　　　S20.12.20　　　　１　　　　　　２　　　　　　３　　　　　1234567890
安全花子　　　　S40.11.11　　　　１　　　　　　　　　　　　　　　　　　　2345678901
道路一郎　　　　S30.10.25　　　　２　　　　　　３　　　　　　　　　　　　3456789012
橋川理恵　　　　S25.12.17　　　　３　　　　　　　　　　　　　　　　　　　4567890123
天気良太　　　　S50.11.28　　　　１　　　　　　３　　　　　　　　　　　　5678901234

という具合に、社員一覧表があるとします。

そして、シート２には

コード番号　　　　　名前
　　１　　　　　　　普通自動車免許
　　２　　　　　　　原動機付自転車免許
　　３　　　　　　　大型自動車免許

というようにコード一覧表があるとします。

ここからなのですが、

シート３には「１．普通自動車免許取得者一覧」
シート４には「２．原動機付自転車免許取得者一覧」
シート５には「３．大型自動車免許取得者一覧」

というように、シート１にデータ入力をしたら、
自動的に、コード別に検索して、該当するコードに引っかかる者は、それぞれのコード別シート（シート３～５）に、該当者のデータ１行分（氏名・生年月日・コード・交付番号等）が丸々コピー（転記）されるにはどうしたらよろしいのでしょうか。

関数等を調べましたが、該当するものが見あたらず、
やはり、マクロで行う方法なのかと思ったのですが、
マクロが超初心者のため、やり方や命令文(?)などが全くわからず、困っております。

よろしくおねがいいたします。

回答No.4

fumufumu_2006 · ベストアンサー

ANo.3です。

>「持っている免許が１になる」ということは、
>やはり、ANo.1さんの上のデータのように、「コード」ではなく、「コード名」で「再度表を作り直す」か、または「別の表を作らないといけない（ダミー表）」ということでしょうか。
>シート１の表は形を崩したくありません。
>ということは、「ダミー表を作らないといけない」ということでしょうか。

回答に書いた通りにやってみてもらえれば、どうなるかわかると思いますが・・・
やってみてもらえないんでしょうか？

また、sheet1に手を加えない場合です。
まず、sheet2に、Sheet1のA1:F1（みだし）をコピーします。
sheet2の
A2:=IF(ISNA(MATCH(1,Sheet1!C2:E2,0)),"",Sheet1!A2)
これを人数分下へコピーしてください。
B2:=IF($A2="","",IF(Sheet1!B2="","",Sheet1!B2))
これをB:F列で人数分下へコピーしてください。
sheet3の
A2:=IF(ISNA(MATCH(2,Sheet1!C2:E2,0)),"",Sheet1!A2)
これを人数分下へコピーしてください。
B2:=IF($A2="","",IF(Sheet1!B2="","",Sheet1!B2))
これをB:F列で人数分下へコピーしてください。
sheet4の
A2:=IF(ISNA(MATCH(3,Sheet1!C2:E2,0)),"",Sheet1!A2)
これを人数分下へコピーしてください。
B2:=IF($A2="","",IF(Sheet1!B2="","",Sheet1!B2))
これをB:F列で人数分下へコピーしてください。

これは、各シートのA2のMATCH(?,Sheet1!C2:E2,0)の？の部分の値がsheet1のC2:E2の間にあるかないかで表示するかしないかが決まります。
B2:F2は、A2に表示がある場合に表示します。
これを下方向にコピーします。

どんな表示になるかは、やってもらえればわかると思います。

お礼

再度の回答、本当にありがとうございます。

その後、フィルタオプションの設定をマクロ化させる方法を教わり、行ったところ、
希望通りにスムーズに抽出処理をすることができました。

ここまで丁寧に解説までしていただき、ありがとうございます。
今回fumufumu_2006さんに教えていただいた方法は、習得し、使えるようになっていきたいと思います。
本当にありがとうございました。