エクセルのマクロについて。表の下に付け足すには

質問

同一ワークシート上の同形式の表Ａの一番下に別の表Ｂをそのまま付け足したいのです。

まず、表Ｂをｃｕｒｒｅｎｔｒｅｇｉｏｎ使って選択した後、どうすれば、表Ａの一番下の行の次へコピーすることができますか。ちなみに、表Ａの行数はその都度変わります。ただし、表の一行目の列と行はいつも同じです。

なるべくシンプルなマクロで記述したいのですがどうすればいいでしょうか。

よろしくお願いいたします。

回答No.1

web2525 · ベストアンサー

http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml

お礼

とても分かりやすい説明が書いてあるサイトのご紹介ありがとうございました。

回答No.3

WindFaller

質問が、唐突だから分かりにくいですね。
ただ、こういう場合、CurrentRegionは、非常に不確実です。
私なら、CurrentRegionは使いませんが、それ以上は分かりませんから、そのままにしておきます。

'//
Sub Test1()
　With Range("G1").CurrentRegion '表Bの左上端か、G1の場合
　　If .Cells.Count > 1 Then 'エラー処理
　　　.Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)　'表Aが、A列からある場合
　　End If
　End With
End Sub
'//

回答No.2

MackyNo1

表AのA列の一番下の入力セルの次行のセルを選択するなら以下のようなコードになります。

Range("A50000").End(xlup).Offset(1,0).Select