違うシートにデータを抜き出したい。

質問

エクセルのシート２に
　　　Ａ　　　Ｂ　　　Ｃ　　　 Ｄ
1　物件A　○　 情報a　情報b
2　物件B　－　 情報a　情報b　　
3　物件C　○　 情報a　情報b
と、4行目以降もあります。
そして、シート３にシート２のＢ列で”○”となっている物件だけの表を作りたいのです。
　　　Ａ　　　　Ｂ　　　 Ｃ
1　物件A　 情報a　情報b
2　物件C　 情報a　情報b　
この下にもどんどん続けていきたい。

※シート２はシート１のデータがマクロによって表示されている。
　例)シート１の物件Ａが終了になると、シート２の物件Ａが消えて物件Ｂが１行目に表示される。
※シート２のデータはほとんどシート１のデータがマクロによって表示されている。
　シート２に”○”と表示されるのもシート１に入力してるから。
※このマクロを作った人はすでに退職していて、社内でこのマクロを解明できる人がいない。
　ちなみに私はマクロ初心者です。

回答No.2

yukz8sss · ベストアンサー

シート名が不統一でわかりずらくなりました。申し訳ありません。
長くなりますが、もう一度書きますね。

シート２はご質問のとおりとします。
シート３ですが
　　　Ａ　　　　　　　　　　　　　　　Ｂ Ｃ Ｄ Ｅ
１　　０
２　=IF(C2="○",MAX($A$1:A1)+1,0)　　=Sheet2!A1 =Sheet2!B1
３　=IF(C3="○",MAX($A$1:A2)+1,0)　　=Sheet2!A2 ～同様にコピー
４　=IF(C4="○",MAX($A$1:A3)+1,0)　　=Sheet2!A3
（フィルハンドルを使ったコピー方法はご存知ですね）
この結果は
　　Ａ　　　Ｂ Ｃ 　　 Ｄ 　　Ｅ
１　０　　
２　１　　物件Ａ　　○　　情報a 情報b
３　０　　物件Ａ　　 0 　情報a 情報b
４　２　　物件Ａ　　○　　情報a 情報b
となります。

続いてシート４（これが目的の表になります）

　　Ａ　　　Ｂ Ｃ 　 Ｄ 　　Ｅ
１　　　　　　２　　　３ 　４ 　 ５　　　　　　　
２　１　　　　　　　　　　　　　　　　　　　　　　　
３　２　　　　　　　　　
４　３　　　　　　　　　　　　　　　　　　 　
と入力し、
Ｂ２には　　=IF(ISERROR(VLOOKUP($A2,'Sheet1 3'!$A:$E,B$1,0)),"",VLOOKUP($A2,'Sheet1 3'!$A:$E,B$1,0))
と入力し、フィルハンドルをつかみＥ列までコピー。
そして必要行数コピーします。

結果は物件Ａ、Ｂが抽出されます。
文章でお伝えするのが難しいのですが、結果はデータ数１００件くらいで確認していますので、お試しください。
（いくらやっても、行列がうまく並ばないのでお許しください。）

お礼

またまた、返事が遅くなって申し訳ございません。
詳しく説明していただいたおかげで、
私にも出来ました！！！
また、何かありましたら、よろしくお願いします。

回答No.1

yukz8sss

マクロを使わずに関数だけで、○印を抽出するには、ちょっと面倒ですが次の方法はどうでしょう。

シート３の
Ａ１に　０を入力、Ａ２に=IF(C2="○",MAX($A$1:A1)+1,0)　と入力し必要行分にコピー。
Ｂ２に　=Sheet1!A1　 と入力し必要分コピーしてシート１データを表示。

Ｈ１に２、Ｉ１に３、Ｊ１に４、Ｋ１に５と入力
Ｇ２を１として縦に連番を必要なだけ入力します。
Ｈ２に　=IF(ISERROR(VLOOKUP($G2,$A:$E,H$1,0)),"",VLOOKUP($G2,$A:$E,H$1,0))　　と入力し、Ｈ２からＫｎまでコピーです。

なおシート２がシート１を参照する行数は不足しないようご注意ください。

エクセル精通者の後任が四苦八苦することは、うちの職場でもよくあります。頑張ってください。

お礼

お礼が遅くなってしまい、申し訳ございません。
詳しく書いていただきありがとうございます。
しかし私の理解力不足のせいか、うまくいきません（涙）