★Word/Excel (MS-OFFICE) 初心者スレッド Part41★

[0244 ひよこ名無しさん 2015/07/01(水) 01:42:51.67 ID:???]

>>243
Dim x As Long, y As Long
Dim a As Long, b As Long, i As Long
x = InputBox("繰り返す回数を入力")
y = InputBox("停止位置を入力")
a = Range("A1").Value
For i = 1 To y
b = Int((i + (x - 1)) / x) - 1
Cells(i, 1).Value = b * 100 + a
Next i