エクセルのマクロを使用して

質問

マクロ初心者です。
エクセルでマクロを使用して次のようにやりたいんです。

ファイル１の入力画面にあるデータをファイル５０にコピーする。
次にファイル２のデータの入力画面にあるデータをファイル５０にコピーする。
以下ファイル４９までのデータをコピーする。

コピー先のファイル５０は行を変えて各データごとに横に展開する。
【ファイル１～ファイル４９までの書式や行列幅、計算式はすべて同じです。データが違うだけです。】
【ファイル５０ではコピーされたデータを使用して、また別の計算をやります。】

データをコピーするのはなんとなく分かるのですが、行をかえてコピーする方法が分かりません。空白行を上から探して、見つかったらその場所を起点としてコピーすればいいような気がしますが

マクロに詳しい方よろしくお願いします。

回答No.2

orange_roma

ファイルというのは、シートでなくBookのことだと考え
てお答えします。
つまり、Book1-49の各テーブルをBook50の集計用シートに
順番にただ転記して大きな集計用のシートを作って、その後、再計算したいということですね。
VBAで処理するには、各Bookを一つのフォルダに集めた方が
簡単です。

各テーブルの見出し行を除いた範囲を取得して再定義して転記するコードは、以下のとおりです。

転記先の最新レコード位置を取得する
Set sakiRng = Range("A65536").End(xlUp).Offset(1)

見出し行を除いた範囲を再定義
Set motoRng = motoRng.Rows("2:"&motoRng.Rows.
Count)

転記
motoRng.Copy sakiRng

コードとしては、こんな感じですが参考になりましたか？

回答No.1

papayuka

> 行をかえてコピーする方法が分かりません。

ヒントだけ

Sub Test1()
　Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

でA列の最終データの一つしたを選択します。