EXCEL VBAのオフセットの使い方について

EXCEL VBAのOffsetの使い方で質問があります。
(1)選択したセルをコピーする
(2)選択したセルの下１０行全部に貼り付ける
という処理をしたいのですが、

i = Selection.Address
With Range(i)
.Copy
.Offset(10, 0).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
End With
というコードだと、１０行下のセルのみに貼り付けがされてしまい、
下１０個のセル全部に貼り付けができません。
Range()を使うのではないかと思ったのですが、うまく出来ませんでした。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2009/02/19 22:42

i = Selection.Address

Range(i).Copy
Range(Range(i), Range(i).Offset(10, 0)).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

この回答へのお礼

ありがとうございました。できました！
Range(Range(i), Range(i).Offset(10, 0))という使い方は知らなかったので勉強になりました。
またよろしくお願いいたします。

お礼日時：2009/02/19 23:14

No.2 回答者： hallo-2007 回答日時： 2009/02/19 22:48

標準モジュールに

Sub Macro1()
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(10, 0)).Value = ActiveCell.Value
End Sub
コピィして
適当なセルをアクティブにした後に実行してみてください。

この回答へのお礼

教えていただいた内容でできました。ありがとうございました。

お礼日時：2009/02/19 23:15