エクセル入力したデータを別シートの空白セルへ

各シート（担当者別シートのイメージ）に入力されたデータ(行）が、
1枚のシートの空白行に次々に貼り付けられていくようにするには、
マクロを使う事になるかと思いますが、
マクロ初心者につきわかりません。

もう少し具体的にしたい事をいいますと、
・Sheet1を貼り付け先の集合シートにします。
・Sheet2からSheet5までが入力シートです。
・入力する列の範囲はA～ANです。
・列項目はすべてのシート共通です。
・Sheet2～Sheet5にはシート毎に決められた担当者が入力します。
・（例えばですが）各自が入力完了後、各シート内に据え付けのボタンをクリックしてSheet1に貼り付けられて集められていく。
というものにしたいのです。
どなたか、ご指導願います。

No.1 ベストアンサー 回答者： yosifuji20 回答日時： 2012/09/03 14:09

考え方だけいいます。

Sheet2～Sheet5の先頭（A列)には行番号を入れておきます。
この番号は例えばSheet2ならば
IF(ISBRANK(BI）、999999、20000+ROW()）
つまり入力があれば行番号+20000、なければ999999になります。
例えばSheet2は20001-20100、Sheet5は50001-550100.
002などというようにします。

Sheet1のA列にはあらかじめSheet2～Sheet5よりも大きい数値を入れておきます。例えば9999999などというように。

マクロの考え方は、
Sheet2の１行目から１０行目など入力行数に応じた最大行数を値のコピーをし、これを例えばSheet1の100行目から貼り付けます。
同様に、Sheet3の１行目から１０行目など入力行数に応じた最大行数を値だけコピーし、これを例えばSheet1の200行目から貼り付けます

このようにしてSheet5までコピー貼り付けをします。
その後でSheet1のA1からAN600（これは最大件数で決めます）の範囲をA列で昇順にならべ替えをします。
こうすると入力されたデータだけが上位の行に固まって表示できます。
入力のない行はどのSheetも99999ですから並べ替えで最下行に行きます。

以上の考え方は、ある程度入力件数が増減しても一つのマクロの動作でおなじ結果になります。
マクロの組み方はヘルプで調べてください。あなたが手作業で実行したとおりに記録する機能があリますので、別にVBAは必要ありません、

この回答へのお礼

いいヒントになりました。
ありがとうございました！
全部、記録でやったので、
今後のトラブル時にも修正が効くので、
ベストでした。

お礼日時：2012/09/03 16:13