こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

ファイル1の入力画面にあるデータをファイル50にコピーする。
次にファイル2のデータの入力画面にあるデータをファイル50にコピーする。
以下ファイル49までのデータをコピーする。

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

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

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

投稿日時 - 2005-02-08 11:25:43

QNo.1208021

暇なときに回答ください

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

ファイルというのは、シートでなく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

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

投稿日時 - 2005-02-08 13:06:26

ANo.1

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

ヒントだけ

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

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

投稿日時 - 2005-02-08 12:56:34

あなたにオススメの質問