ひとつのエクセルデータを各シートに分けたい

質問

エクセルのひとつのシートにまとめてあるデータを
部門ごとにシートへ分けたいのですが、
今現在コピー＆ペーストでシートに貼りつけている状態です。
効率よく、シートごとに分ける方法はありませんでしょうか。

例）売上というシートに
1　　Ａ　　Ｂ　　Ｃ　　Ｄ・・・
2　 なす 1
3　 なす　 2
4 かき　 5

シート１（なす）に
1　　Ａ　　Ｂ　　Ｃ　　Ｄ・・・
2　 なす 1
3　 なす　 2

なすだけの情報をひっぱる。

シート2（かき）に
1　　Ａ　　Ｂ　　Ｃ　　Ｄ・・・
2　 かき 5

かきだけの情報をひっぱる。

以上のように、シートごとで分別したいのですが、
エクセル初心者の為、どのような関数や操作を行えば良いかが
わからず困っています。

どなたかお解かりの方、お教え頂けませんでしょうか。
よろしくお願い致します。

回答No.1

tom04

こんばんは！
解釈が違っていたらごめんなさい。
質問にある、A列は品名だけで数値はB列に入っているのでしょうか？
一応そういうことだとして・・・

↓の画像で説明させていただきます。
左側が「売上Sheet」で右側が「Sheet1」になります。
とりあえず「なす」だけですが他の品目も同様の方法になります。

Sheet1のD1セルに品名を入力するとそのデータが表示されるようにしています。

A列を作業用の列として使わせてもらっています。
A2セルに
=IF(売上!A2=Sheet1!$D$1,ROW(A1),"")
という数式を入れ、オートフィルで下へずぃ～～～！っとコピーします。
（Sheet1の数式が売上Sheetの1000行目まで対応できるようにしていますので、
そのくらいまでコピーしても構いません）

そして、B2セルに
=IF(COUNT($A$2:$A$1000)<ROW(A1),"",INDEX(売上!A$2:A$1000,SMALL($A$2:$A$1000,ROW(A1))))
という数式を入れ、オートフィルで列方向と行方向にコピーすると
画像のような感じになります。

他のSheetも同様の操作でできると思います。

以上、参考になれば幸いですが、
一つ気になるのがもしかして、品名が「なす」でも「なす1」や「なす2」があるのかなぁ～？って感じもしていますので
その場合は他の方法を考えなければなりません。

どうも長々と失礼しました。m(__)m

お礼

ご丁寧に、わかりやすい回答をありがとうございます。
明日職場で参照させていただき、実践させていただきます。

本当に助かりました！！ありがとうございますっ。