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

質問

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

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

回答No.1

fujillin

1行単位で、順に処理（ループ）して行くものとして…

0）対象のファイルをオープン
　（既に開いた状態であれば、不要です）
---ここからループ---
1）Ａ列の値を読む
2）その値によってシート番号（orシート名）を決める
　（シート名が番号のままでよい場合はそのままだが、シート名がいろいろ
　　である場合は、番号と照合するための配列などを用意しておく）
3）その行のデータを、2）で決めたシートに転記する
　（シート内のどこに転記するのかは、質問文からは不明）
4）次の行へ＜　1）へ戻る＞
　（終わりの判定条件が不明だが、A列の値が空白なら終了とか・・）

終）（必要に応じて、ファイルをクローズ）
といった感じでできると思いますが。

指定されたシートが存在しない場合などいろいろ考えられるので、値のチェックやエラー処理を入れておいた方がいいと思います。