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

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

Sub prcCopyPaste()

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

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

End Sub


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

No.2 回答者： tom04 回答日時： 2013/06/15 09:26

こんにちは！

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

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

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

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

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

この回答へのお礼

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

お礼日時：2013/06/15 11:23

No.1 ベストアンサー 回答者： kybo 回答日時： 2013/06/15 08:51

Sub prcCopyPaste()

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

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

End Sub

この回答へのお礼

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

お礼日時：2013/06/15 11:20