（F2：G10）コピ→ペ、（F11：G19）コピ→ペ…

質問

初心者です。やりたいことは、

book１シート１の範囲（F2：G10）をコピーし、book２のシート"1"にペースト、
book１シート１の範囲（F11：G19）をコピーし、book２のシート"2"にペースト、
・・・・
というのを30回繰り返すことです。

30回似たようなコードを書けばよいのですが、面倒だし、また勉強のためにも、変数を使って短く書きたいと思ってます。

わからないのが、(1)上記のように規則的に変わる範囲の指定or選択orコピーの方法と、(2)シートの指定方法です。

(1)については、セル１個ならできるのですが、範囲になるとわかりません。
(2)については、tryしてないです。シート名が半角英数で規則的に名づけられてる場合、sheet("変数").Activateで動いてくれるのでしょうか？？

よろしくお願いします。

回答No.1

n-jun · ベストアンサー

１）
Dim r As Range
Set r = Worksheets("Sheet1").Range("F2:G10")

Range型で変数：rにセットする。
コピー後のオフセットを忘れないように。

２）
Dim i As Integer
Workbooks("Book2.xls").Worksheets (CStr(i)) 　貼付けるセル番地を指定する。

変数：iをループさせる。
シートをアクティブにする必要はない（と思う）

と言う感じかと思います。

補足

うお～動いた!!動くとちょっとした感動ですね。。

Range型、オフセット、CStr、、便利ですね～

勉強になりました。
ありがとうございました。