VLOOKで複数の抽出結果を一枚の表にする方法（VBA）

質問

エクセルでそれぞれの店舗の月別売上表があります。
しかし、表にはそれぞれの店舗の売上詳細があり、VLOOKで表にまとめようとするとはじめの一行目が全て反映されてしまいます。関数またはVBAでよいほうほうはないでしょうか？

シートのイメージはこのような感じです、
　　　A　　　　B　　　 C　
　　支店　4月売上　 売り場
1 東京店　100,000 1F
2 東京店　50,000 2F
3 大阪店　50,000　　 1F
4 大阪店　30,000　　 2F
5　大阪店　40,000　　 3F

このようなシートが月別にそれぞれあり
それを支店ごとの売上明細として一枚にまとめたいのですが・・・
説明がたどたどしくて申し訳ありません。よろしくお願いします。
エクセルのヴァージョンは２０００です。

回答No.1

hallo-2007 · ベストアンサー

同様の回答はいくらでもあります。
作業列案ですが、集計のシートが　集計　
　　　A　　　　B　　　 C　
1　支店　 　東京
2　　　　　　4月売上　 売り場
3 　　　　　100,000 1F
4 　　　　　50,000 2F
と　B1に　東京　と入れた場合
データのシート名が　データ　として
　　　A　　　　B　　　 C　　　　D　
　　支店　4月売上　 売り場　作業列
2 東京店　100,000 1F
3 東京店　50,000 2F
4 大阪店　50,000　　 1F
5 大阪店　30,000　　 2F
6　大阪店　40,000　　 3F
D2セルに　=IF(A2=集計!B$1,ROW(),"")
下フィルすると、東京の行にだけ、その行番号が出ます。

集計のシートのB3セルに　=INDEX(データ!$B:$B,SMALL(データ!$D:$D,ROW(A1))
右ひとつ、下フィルではダメですか。
エラー処理入れると
=IF(ISERROR(SMALL(データ!$C:$C,ROW(A1)),"",INDEX(データ!$B:$B,SMALL(データ!$D:$D,ROW(A1)))
すみません、作動の確認はしていません。

お礼

ありがとうございます。

私の質問の入れ方が悪かったのか、同じような質問がみあたらなかったもので。。。

今回教えていただいたのと、もう一度探してみて試してみます。ありがとうございます。