エクセル VBA・マクロ コピー 貼り付け 飛び飛び

エクセルのVBA・マクロに関する質問です。
コピーするセルが縦に連続でつながっており、貼り付けするセルが縦に等間隔で飛び飛びになっているときはどのようなコードを書けばよいのでしょうか
具体的にはA4をコピーしてB6に貼り付け、A5をコピーしてB9に貼り付け、A6をコピーしてB12に貼り付け・・・・という感じでコピー・貼り付けをしたいです。

詳しい方のご回答をお待ちしております。

No.1 ベストアンサー 回答者： yucco_chan 回答日時： 2019/11/18 20:56

Sub Macro1()

Dim i As Integer

For i = 1 To 10
Cells(i * 3 + 3, 2) = Cells(i + 3, 1)
Next

End Sub

A4からA13までの10セルをB6・B9・B12・・・B33までの10セルにコピーするマクロです。
10セルを変更したければ、
For i = 1 To 10 の１０を任意に数字に変更してください。

この回答へのお礼

丁寧なご回答ありがとうございました。
VBA・マクロを勉強し始めたばかりで、困っていました。
参考にさせていただきます。

お礼日時：2019/11/18 21:20