当日データをDBの上部に転記するには?

Question 5.3 Previous Next
データを aシートから bシートに複写したいのです。
aシートのデータ数分、前回データを下げてこの部分へ aシートのデータを複写する。

                    aシート
aシート
                    bシート
bシート
bシートは集計、統計などDBとする予定です。
内容は、1) aシートのデータの列数は同じですが行数は変動します。
      2) aシートのデータ数分、bシートの既存データを先頭から下へ下げて空欄行を作る。
      3) aシートのデータを bシートの空欄行に複写して bシートのデータに追加していきます。

以上ですが方法が分からなくて困っています。 私は、aシートのデータ数をカウントするセルを作り、このカウントの数だけ bシートの行を空けようと思ったのですが、うまくできませんでした。

エクセル初心者ですのでよろしくお願いします。excel97を使用しています。
Answer   Copyright (C) 1998.5.24 永井善王
マクロの詳細は「当日データをDBの上部に転記する」を見てください。

サンプルマクロ
「DBへ転記」をダウンロード すれば実際に動かしながら見れます。

 

Excel VBA Macro