（デーブル）番号ごとにファイルの各シートに読み込み方法

質問

今はこんなものを作っています。
excel名前は"入力.xls"
A B c
1 作業あ １．００
2 作業い ２．００
3 作業う ３．００
4 作業え ４．００
5 作業お ５．００
・・・
25 作業か　　２５．００

番号1のデータは別ファイル(名前は"集計.xls")のシート1に読み込み
番号２のデータはシート２に読み込み
・・・
番号２５のデータはシート２５に読み込み
VBAでやろうと思っているですけど、初心者なので、非常に困っています。簡単でも結構でございますが、方法はぜひご教授ください。

回答No.1

imogasi

例データ
Ｓｈｅｅｔ１
Ａ１：Ｃ８
番号 作業 計数
1 作業あ 1
2 作業い 2
3 作業う 3
1 作業あ 12
2 作業い 32
1 作業あ 3
2 作業い 4
シート数は「Sheet2－Sheetnn」まで十分作っておくこと。
ーーー
コード
Sub test01()
d = Range("A65536").End(xlUp).Row
MsgBox d
For i = 2 To d
Set sh = Worksheets("Sheet" & Range("A" & i) + 1)
MsgBox sh.Name
dw = sh.Range("A65536").End(xlUp).Row
sh.Range("A" & dw + 1) = Worksheets("Sheet1").Range("A" & i)
sh.Range("B" & dw + 1) = Worksheets("Sheet1").Range("B" & i)
sh.Range("C" & dw + 1) = Worksheets("Sheet1").Range("C" & i)
Set sh = Nothing
Next
End Sub
ーーーー
結果
Ｓｈｅｅｔ２
1 作業あ 1
1 作業あ 12
1 作業あ 3
ーーー
Ｓｈｅｅｔ３
2 作業い 2
2 作業い 32
2 作業い 4
ーーーー
Ｓｈｅｅｔ４
3 作業う 3
＝＝＝＝
多分上記を自分流に修正する力があるだろうか心配。
シート名を、簡単なやり方になる、番号＋１でやってみたが、無機的な「シートnn」でよいなら修正は少したやすい。
ーー
質問の例がＡ列は同じ番号は出ない例を挙げているが、私は勝手に推測して、上記のようではないかと思い上記のようにした。
この辺も質問者が、プログラム作成思考になっていないので、適当な例の挙げ方が出来てない。
コード内のＭｓｇｂｏｘは、しつこいから、理解したら消すと良い。
VBA初めての人が、無理でしょう。
もう少し長いけれども、判りやすいコードが回答に出るかも。