「シート１のアクティブセルをコピーしてシート２のＡ列の最終行+1に貼り付ける」

質問

「シート１のアクティブセルをコピーしてシート２のＡ列の最終行+1に貼り付ける」
というＶＢＡコードが知りたいのですが

Sub Macro1()
Selection.Copy
Sheets("Sheet2").Select
Selection.End(xlDown).Offset(1).Select
ActiveSheet.Paste
End Sub

ではうまくいきませんでした。
・マクロを実行する前のもともとのアクティブセルはシート１の入力されたセル上にあるとします。
・シート２のＡ列にはA1～Ａ？と削除したり挿入したりで数が変わりますが何かしら文字列が隙間なく入っています。

よろしくお願いします。

回答No.1

s_saike · ベストアンサー

これではどうでしょうか。

Sub Macro1()
Selection.Copy
Sheets("Sheet2").Select
Cells(Cells(1, 1).End(xlDown).Row + 1, 1).Select
ActiveSheet.Paste
End Sub

お礼

できました！
ご回答ありがとうございます。

回答No.2

imogasi

Sub test01()
d = Worksheets("Sheet2").Range("A65536").End(xlUp).Row
ActiveCell.Copy Worksheets("Sheet2").Cells(d + 1, "A")
End Sub
Selectはマクロの記録から勉強するとそれになるが、初心者っぽいので脱却をお勧めする。
コピーのDestinationの書き方を解説書で勉強のこと。
Activecellも場合によっては、うっかり目的以外を指している時実行したりして不安定。

お礼

勉強してみます。
大変参考になりました。ご回答ありがとうございます。