Excel マクロ For文の作り方

質問

エクセル　マクロの勉強をしています。
次のような作業をしたいのですがうまくマクロを作れなくて困っていくます。

Cells(1,2)から３行あけて２列に数字を
1,3,5,7,9,11と奇数の数字を入れるマクロを作りたいのですが

Cells(1,2)に1を書き込む。
Cells(4,2)に３を書き込む。
Cells(7,2)に５を書き込む。
　　↓
Cells(16,2)に11を書き込む。

初心者の私は、頭がこんがらがってしまいましたので質問することにしました。
どなたか、ご教授頂けませんか？

回答No.1

team-u · ベストアンサー

変数2つ使ってもいいでしょうか。
Aが行数、Bが入力する数字で、1回ループ毎にAを+3ずつ、Bを+2ずつ増やします。

Dim A As Integer, B As Integer

B = 1

For A = 1 to 16 Step 3

Cells(A,2) = B
B = B + 2

Next A

お礼

早速、教えて頂きありがとうございました。
初心者の私にわかりやすいマクロ文でした。
昨日からの、もやもや気分がすっきりしました。

回答No.2

keithin

基本的には
sub macro1()
　dim i as long
　for i = 0 to 5
　　cells(i * 3 + 1, 2) = i * 2 + 1
　next i
end sub
といった具合です。

バリエーションで
sub macro2()
　dim i as long
　for i = 1 to 6
　　cells(i * 3 - 2, 2) = i * 2 - 1
　next i
end sub
とかでもいいです。

添付図のようにして少しエクセルに手伝って貰い，
sub macro3()
　dim x as long
　for x = 1 to 11 step 2
　　cells(x * 1.5 - 0.5, 2) = x
　next x
end sub
みたいにしてもできます。

お礼

早速、教えて頂きありがとうございました。
マクロ文を何種類も考えて頂き、今後の参考になります。