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

[0238 ひよこ名無しさん 2015/06/27(土) 22:56:26.22 ID:???]

>>237
こんな具合でOK？

Dim x As Long, i As Long
On Error Resume Next
x = InputBox("回数を入力")
For i = 1 To x - 1
Cells(i + 1, 1).Value = Cells(i, 1).Value + 100
Next i