エクセル2010でデータ抽出

質問

10店舗の入荷、移動、売り上げがシート1に、入力されています。

これを、
シート2にA店の入荷、移動、売り上げ
シート3にB店の入荷、移動、売り上げ
シート4に。。
というように表示させるには、どうしたら良いですか？

店はコードで101、201という風に管理。
入荷、移動、売り上げは入荷20、移動30という風に管理されています。

よろしくお願いします。

回答No.3

tom04 · ベストアンサー

こんにちは！
VBAでの一例です。

＞店はコードで101、201という風に管理。
というコトですので、Sheet1のレイアウトは↓のようになっていて、
Sheet2以降の各Sheet名は 101 102 ・・・のようにコード名になっているとします。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim k As Long
With Worksheets("Sheet1")
For k = 2 To Worksheets.Count
Worksheets(k).Cells.Clear
.Range("A1").AutoFilter field:=1, Criteria1:=Worksheets(k).Name
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Worksheets(k).Range("A1")
Next k
.AutoFilterMode = False
End With
End Sub 'この行まで

※　関数でないのでSheet1のデータ変更がある旅にマクロを実行する必要があります。m(_ _)m

お礼

ありがとうございました！

編集機能で簡単にできることを失念しておりましたが、こちらもやりたかったことがピンポイントでできて、とても役立ちました。

マクロ使えるようになりたいです！！

回答No.4

a0u283mitg

私もピボットテーブルを使った方がいいと思います＾＾；

わざわざ集計データをわけるのはファイル容量のムダですし、目的がどこになるのかがポイントですね。

お礼

今やってみましたが、マイナス値をうまく読み込めなくて、困っています

使いこなせればいいのですが。。

ありがとうございました！

回答No.2

aokii

シート2にシート1を呼び込んで、フィルタ機能でA店のみ表示。

お礼

フィルタ機能もありましたね！
久々に使うと忘れていることだらけです

ありがとうございました！

回答No.1

mshr1962

ピボットテーブル使うのがいちばん楽でしょうね。

・Excel2010：ピボットテーブルの使い方
http://www.office-qa.com/Excel/ex124.htm

お礼

ピボットテーブル勉強になります

使い方がまだいまいちですが。。
使いこなせるように頑張ります！

ありがとうございました