エクセルVBAで複数シートを1つのシートにまとめる方法

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#2 2015年2月12日(木)09時39分
From: karin

返事削除変更

一回マクロを記録してからその内容をループ処理かければいけそうですが、
一応最後の行にまとめて記述する方法を提示すると以下になります。
ご参考までに

Sub Sample()
　For Each MySh In Worksheets
　　intRow = MySh.Cells(Rows.Count, 1).End(xlUp).Row - 1
　　 With Worksheets("ｘｘｘ").Range("A" & Rows.Count).End(xlUp).Offset(1)
　　　.Resize(intRow , 1).Value = MySh.Range("A2").Resize(MyRow, 1).Value
　　End With
　Next
End Sub

Message#1 2015年2月12日(木)09時00分
From: VBAクラッシュ

返事削除変更

エクセルVBAで複数シートを1つのシートにまとめる方法について知りたいです。
具体的にはカテゴリ別に商品データが40のシートで構成されています。
これを1つのシートに統合させて管理したいのですが、１つ１つすると時間がかかってしまい、これを自動化できないかと考えました。

基本的にはデータが入っている行を全選択をして切り取り１つのシートの末尾に順に貼り付けていく形になるかと思いますが、どのようにすればいいか分かりません。

これを自動化したいので、皆さん力を貸してください。
どうかよろしくお願いします。