エクセル マクロ 対象列をコピーする

エクセル　マクロについて質問です。
下記のようなデータがありますが、【商品名】ごとにまとめたものを
別のシートへ行ごとコピーをして、商品名毎にまとめたいと思っています。
マクロの構文が思いつかず、よい方法はないでしょうか。
初歩的な質問かも知れませんがおしえてください。

マクロ実施前
【県名】　　【商品名】　【売り上げ日】　【その１】　【その２】
埼玉県　　　Ａ
東京都　　　Ｂ
神奈川県　 Ｂ
千葉県 Ａ
栃木県　　　Ｃ
群馬県　　　Ｄ

マクロ実施後↓↓
Ａシート
【県名】　　【商品名】
埼玉県　　　Ａ
千葉県 Ａ

Ｂシート
【県名】　　【商品名】
東京都　　　Ｂ
神奈川県　 Ｂ

Ｃシート
【県名】　　【商品名】
栃木県　　　Ｃ
群馬県　　　Ｄ

Ｄシート
【県名】　　【商品名】
群馬県　　　Ｄ

No.2 ベストアンサー 回答者： keithin 回答日時： 2011/08/16 22:49

シート名「一覧」に元のデータが列記されている。

１行目にタイトル行
２行目以下からデータがしっかり並んでいる
Ａ列以降にきちんとデータが並んでいる
商品名はＢ列にある。

といった，あなたのエクセルの「目に見える姿」をキチンと情報提供してご相談を投稿するようになさって下さい。
具体的なマクロは具体的なシートの様子と正しく対応していないと，まるで意味がありません。


sub macro1()
　dim h as range
　with worksheets("一覧")
　for each h in .range("B2:B" & .range("B65536").end(xlup).row)
　　on error goto errhandle
　　h.entirerow.copy destination:=worksheets(h.value).range("A65536").end(xlup).offset(1)
　　on error goto 0
　next
　end with
　exit sub

errhandle:
　worksheets.add after:=worksheets(worksheets.count)
　activesheet.name = h
　worksheets("一覧").range("1:1").copy destination:=range("A1")
　resume
end sub




＃もちろん「方法」だけ聞けばご自分でマクロを書けますという事なら，情報提供もそれなりで十分ですが，どうなんでしょう？

この回答へのお礼

ありがとうございます。
このようなマクロができればと思っていました。
元の仕様がうまく説明できずにすいません。
はっきりいって、この中身すらよくわかりませんが
参考に勉強してみます。
ありがとうございます。

お礼日時：2011/08/17 21:22

No.3 回答者： mu2011 回答日時： 2011/08/17 09:57

>マクロの構文が思いつかず、よい方法はないでしょうか。

⇒以下の方法は如何でしょうか。
（１）データシートでマクロ記録開始→オートフィルタ
（２）Ｂ列のフィルタボタンで仮に「Ａ」を選択→抽出データをコピー→別シートに貼り付け
（３）データシートでオートフィルタ→マクロ記録終了
以上の操作完了後、Alt＋F11キーを押下→標準モジュールフォルダ→Module1のマクロコードを参考にしては如何でしょうか。

No.1 回答者： oct1290 回答日時： 2011/08/16 21:56

マクロではなくフィルターオプションで可能ですが手作業です、

随時データー入力が例の様に（マクロ実施前）のようになるのでしたら
マクロの記録で可能だと思います。