Excelマクロ＆VBAで一列に3行ごとに数字を入力

質問

Excelのマクロ＆VBAで、例えばA1セルからA120セルに数字１から40を3行ごとに「111・222・333・444・・・・・・・・・・・・393939・404040」と入力する。

回答No.3

ka_na_de · ベストアンサー

一例です。

Sub test()
　　Dim i As Long

　　For i = 1 To 120
　　　　Cells(i, "A").Value = Int((i + 2) / 3)
　　Next i
End Sub

お礼

大変参考になりました。
　お礼が遅れてすいませんでした。質問がわかりにくくてなかなか納得のできる回答がなく諦めていましたところ、私の思っていた回答をいただき感激しています。本当にありがとうございました。

回答No.2

kmetu

J = 1
For i = 1 To 120 Step 3

Range("A" & i).Value = J & J & J
J = J + 1

Next i

でいかがでしょう

回答No.1

n-jun

＞A1セルからA120セルに
A118までになってしまいますが、

Sub try()
Dim i As Long

For i = 1 To 40
Cells((i - 1) * 3 + 1, 1).Value = Val(i & i & i)
Next
End Sub