エクセルのマクロについてご教示下さい。

質問

シート１のA1からW47までを同じワークシートのA48にコピーするマクロを作りましたが、
Worksheets("Sheet1").Range("A1:W47").Copy _
Destination:=Worksheets("Sheet1").Range("A48")
Range("A48")を変数にし、（2回目は48+47 3回目は48+47+47 4回目は48+47+47+47）というように複数回コピーを繰り返したいのですが、とんと分からなくなりました、ご教示いただけますでしょうか？
宜しくお願い致します。

回答No.1

SI299792

最初、何のことかわかりませんでした。
１回目はA48 ２回目はA95 にコピーし、同じものを５つ作りたいということですね。
'
　　For i1 = 1 To 4
　　　　Worksheets("Sheet1").Range("A1:W47").Copy _
　　　　　　Destination:=Worksheets("Sheet1").Range("A" & i1 * 47 + 1)
　　Next i1

コピーは１回だけすればいいので、以下の方法もあります。
'
　　Worksheets("Sheet1").Range("A1:W47").Copy
'
　　For i1 = 1 To 4
　　　　Worksheets("Sheet1").Range("A" & i1 * 47 + 1).Select
　　　　ActiveSheet.Paste
　　Next i1

お礼

有難うございました、すごいです。最近少しづつexcelのマクロの勉強しておりますが歳（71）のせいか、頭の回転が悪いのかつまづいてばかりです、お陰さまで一つ前に進めましたほんとうにありがとうございました。