循环跳过计数的第一个数字

Question

我不确定为什么要跳过下一个数字。例如，如果我输入5，则列表将运行7,8，依此类推，但数字6将被删除。如果输入4，则列表类似，然后运行6,7，以此类推。

Sub CountFromInput()
Dim i As Integer
Dim start As Integer

start = InputBox(Prompt:="Input the first number", Title:="Number Input")
Range("b1") = start

For i = 2 To 14
    Cells(i, 2).Value = start + i
Next i

End Sub

Answer 1

Sub CountFromInput()
Dim i As Integer
Dim start As Integer

start = InputBox(Prompt:="Input the first number", Title:="Number Input")
Range("b1") = start

For i = 1 To 13
    Cells(i+1, 2).Value = start + i
Next i

End Sub