【Excel】範囲指定のコードの書き方

質問

Excel2003を使用しています。

あるマクロに下記の内容を付け加えたいのですが…
ActiveCell.Offset(-2, 11)に入力されている数式をActiveCell.Offset(7, 11)からActiveCell.Offset(39, 11)の範囲にコピーしたいのですが、コピー先の範囲をどのように書いたらよいのかわかりません。

現在使用中のマクロに付け加えたいので、あえてActiveCellからどの位置にあるという形で書かせていただきましたが、わかりづらいようでしたら、補足いたしますので、よろしくお願いします。

回答No.1

ham_kamo · ベストアンサー

単純に

　　With ActiveCell
　　　　.Offset(-2, 11).Copy (Range(.Offset(7, 11), .Offset(39, 11)))
　　End With

と書けばいいかと思えば、なぜかエラーになってしまいました。
ワンクッションおいて、

　　Dim CopyTo
　　With ActiveCell
　　　　Set CopyTo = Range(.Offset(7, 11), .Offset(39, 11))
　　　　.Offset(-2, 11).Copy (CopyTo)
　　End With

とすればコピーできました。

お礼

おはようございます。

ham_kamo さんの書いてくださった『単純に…』の方のコードで、Rangeの前の括弧を削除して(下記)試してみたところ、コピーできました。

　With ActiveCell
　.Offset(-2, 11).Copy Range(.Offset(7, 11), .Offset(39, 11))
　End With

回答ありがとうございました。