エクセル マクロ コピーペースト

質問

超初心者です。よろしくお願いします。

Sub prcCopyPaste()

'セル(セルA1)をコピーします
Range("A1").Copy

'コピーしたセルをセルA2へ貼り付けます
Range("A2").PasteSpecial

End Sub

このA2へ貼り付けするところをアクティブセルの右のセルに貼り付けをしたいときはどのように書いたらよいですか？

回答No.1

kybo · ベストアンサー

Sub prcCopyPaste()

'セル(セルA1)をコピーします
Range("A1").Copy

'コピーしたセルをセルA2へ貼り付けます
ActiveCell.Offset(, 1).PasteSpecial

End Sub

お礼

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

回答No.2

tom04

こんにちは！

タイトル通りのコピー＆ペーストですと

ActiveCell.Copy ActiveCell.Offset(0, 1)
といった感じでしょうか・・・

値をそのまま入れたい場合は
ActiveCell.Offset(0, 1) = ActiveCell

手抜きなしに書けば
ActiveCell.Offset(0, 1).Value = ActiveCell.Value
ですかね！

でもOKだと思います。m(_ _)m

お礼

回答ありがとうございます。すみません、どこに当てはめたらよいのかわかりませんでした＞＜