アクティブセルとそのセルに隣接する右隣の２つのセルをコピーしてシート２に貼り付ける

「アクティブセルとそのセルに隣接する右隣の２つのセルをコピーしてシート２に貼り付ける」というVBAコードが知りたいです。

「アクティブセルをシート２に貼り付ける」だけなら
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
はわかるのですが、
「アクティブセルとそのセルに隣接する右隣の２つのセルをコピー」がわかりません。

例えて言うなら
A1がアクティブならA1からC1までコピーして
シート２の（C3がアクティブなら）C3からE3に貼り付けたいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2007/11/30 00:09

Resizeをつかえばできますよ。

こんな感じです。

Sub test01()
ActiveCell.Resize(1, 3).Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

この回答へのお礼

できました。大変参考になりました。ご回答ありがとうございます。

お礼日時：2007/12/04 22:26

No.3 回答者： Wendy02 回答日時： 2007/11/30 12:54

こんにちは。

>A1がアクティブならA1からC1までコピーして、シート２の（C3がアクティブなら）C3からE3に貼り付けたい

Range("A1").Resize(, 3).Copy Worksheets("Sheet2").Range("C3")

この回答へのお礼

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

お礼日時：2007/12/04 22:27

No.2 回答者： imogasi 回答日時： 2007/11/30 09:18

こういう方法もあるという一例

Sub test01()
Set rng = ActiveCell.Resize(, 3)
Worksheets("Sheet2").Activate
Range("C10").Select
rng.Copy ActiveCell
End Sub

この回答へのお礼

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

お礼日時：2007/12/04 22:27