Excelで行の抽出方法

質問

• Excelの特定の条件に基づいて行を抽出する方法を紹介します。
• 具体的には、指定したコードと一致する行を別のシートに表示する方法です。
• この方法は計算式やマクロを使用して実現することができます。

回答No.3

noname#1523 · ベストアンサー

マクロでの回答が出ている様ですので、関数のみで行う方法を紹介します

【考え方】
１）Sheet1の最左端に作業用の列を１つ設けます
２）作業用列に、Sheet2のA1と同じ値がE列（質問例示のD列：コード）が
　　同じであれば、E列にその行まで出てきたコードの数をセットします
　　==>Sheet2A1と同じコードのデータのみ
　　　　1・2・3・4・・と連番がセットされます
３）あとは、Sheet1上で連番を元にVLOOKUP関数で参照します

【設定手順】
１）Sheet1のA列名を右クリックして"挿入"を選択し、作業列を挿入
２）Sheet1のA2セルに以下の式を入力してA3～Anにコピーします
　　　=IF(E2="","",IF(E2=Sheet2!$A$1,COUNTIF($E$2:E2,E2),""))

　　　　　・E2(コード)が空白の時は空白をセット
　　　　　・E2がSheet1のA1と同じであれば、E2から現在行のE列までの
　　　　　　E2と同じコードの数をセットします
　　　　　・コードが異なる場合は空白をセットします

３）Sheet2のA3セルに以下の式を入力してA3～Dnにコピーします
　　　=IF(ISNA(VLOOKUP(ROW()-2,Sheet1!$A:$E,COLUMN()+1,FALSE)),"",VLOOKUP(ROW()-2,Sheet1!$A:$E,COLUMN()+1,FALSE))

　　　　　・VLOOKUPで検索がエラーになった場合空白をセットする為に
　　　　　　ISNA関数でVLOOKUPを試行してチェックします
　　　　　・エラーでない時改めてVLOOKUPで検索し値をセットします
　　　　　　　VLOOKUP(検索値,検索範囲,参照列,検索の型)
　　　　　　　　●検索値：ROW()-2　現在行番号から表示行まで行数を減算し
　　　　　　　　　　　　　　　　　　１・２・３・・・と変化させます
　　　　　　　　●検索範囲：Sheet1!$A:$E　（絶対参照でA～E列とします）
　　　　　　　　●参照列：COLUMN()+1
　　　　　　　　　　　　　Sheet2のA列に検索範囲の2列目
　　　　　　　　　　　　　Sheet2のB列に検索範囲の3列目・・と表示するので
　　　　　　　　　　　　　現在列番号-1とする事で列に対応した値を参照します
　　　　　　　　●検索の型：FALSE　同一検索値のみとします

＊＊＊＊＊以上でご質問の表示が可能になります＊＊＊＊＊＊

AnやDnとあるセルは、入力が予想される行数より多めにセットしても
式内でデータの有無を判断していますので、問題有りません。

お礼

ご回答ありがとうございました。
マクロを使わなくてもできるんですね！（正直なところマクロを使わないと無理かな・・・と思っていましたので)
わたしにはこのような方法は思いもつきませんでした。
この方法を採用させて頂こうと思います。本当にありがとうございました。