エクセルVBAの貼付けについて

質問

エクセルVBAの貼付けについて
シートAとBがあって、シートBの1～7列をコピーし、シートAの最終行に貼り付ける方法を教えて下さい。
下記のように書いてみたのですがダメでした。

Sheets("B").Select
Rows("1:7").Select
Selection.Copy

Sheets("A").Select
With Range("A1").End(xlDown).Offset(1, 0)
.ActiveSheet.Paste
End With

回答No.2

seastar3 · ベストアンサー

4行目が .Select ではなく、.Activate を使うのがポイントです。
以下のコードでシートA上のコマンドボタンでも、シートB上のコマンドボタンでも正しく反応しました。

Sheets("B").Select
Rows("1:7").Select
Selection.Copy

Sheets("A").Activate
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

また、もしシートBに移動してからこのマクロを終わりたければ、最後の行に
Sheets("B").Activate
と付け加えておきます。

お礼

Activateがポイントだったんですね。
勉強になりました。
ありがとうございました。

回答No.1

hallo-2007

以下のコードは参考になりませんか。
Sheets("B").Rows("1:7").Copy
Sheets("A").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial