EXCEL データをコピーして別シートの最初の空白行に貼り付けたい

質問

EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい

Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。
Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。
マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。
どのような方法でやったらいいのか教えて下さい。

回答No.2

mar00 · ベストアンサー

'Sheet1の2行目から最終行までをSheet2の最終行の次の行に
'コピーしていくという事でよいのでしょうか。
'コピーした後のSheet1はそのままにしておくのでしょうか。
'コピーした後のSheet刃消すのであればCopyをそCutにしてください。
Sub Macro1()

GYOU1 = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
GYOU2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Sheet1").Select
Range(Cells(2, 1), Cells(GYOU1, 18)).Copy
Sheets("Sheet2").Select
Range("A" & GYOU2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

お礼

すばらしいです！
思ったとおりに出来ました。
ありがとうございました。

回答No.1

MackyNo1

マクロの記録を利用する場合は以下のようなキー操作を行ってください。

Sheet２を選択して、A1セルを選択し、Ctrlキーを押しながら↓キーを押して、入力データの最終行を選択します。
次にマクロの記録ツールバーの「相対参照」のアイコンをクリックし、A列の1つ下のセルを選択し、コピーしたデータを貼り付けます（相対参照解除）。

Sheet1のコピー元の範囲が可変の場合は、A2セルから大きめにデータ範囲を選択してからコピーすると良いと思います。

補足

ありがとうございます。
教えて頂いたとおりやってみたのですが、※この行※でエラーで止まってしまいます。
（sheet１を元/sheet２を継ぎ足しとしています)
どこか間違っていたのでしょうか？

Sub 実験()
'
' 実験 Macro
' マクロ記録日 : 2010/7/8
'

'
ActiveWindow.SmallScroll Down:=-6
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("継ぎ足し").Select
Range("A1").Select
Selection.End(xlDown).Select
Rows("65536:65536").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.SmallScroll Down:=-6
※この行※ActiveCell.Offset(2, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub