Excel VBA中奇怪的for-next循环跳过步骤行为

Question

以下代码表现出以下奇怪的行为： 1.）如果我将步骤设置为零，它会从一个单元格移动到另一个单元格，消息框会从 1 到 8 计数（对于 i = 1 到 8 步骤 0）。 2.）如果我将步骤设置为 1，它会给出序列 1、3、5、7（对于 i = 1 到 8 步骤 1）。据我了解，步骤 1 应该为消息框返回产生 1、2、3、4、5、6、7、8。

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 8 Step 1
MsgBox i
    ActiveCell.Offset(1, 0).Range("A1").Select
    i = i + 1
Next i
End Sub

这样的数学当然是有道理的，但是根据标准 excel 循环的机制似乎很奇怪，因为这会产生与（没有指定步长增量）相同的结果：

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 8 
MsgBox i
    ActiveCell.Offset(1, 0).Range("A1").Select
    i = i + 1
Next i
End Sub

也就是说，MsgBox 序列是 1、3、5、7。关键是我知道将“步骤 0”附加到 for 语句会给出单位增量，但这感觉像是一种解决方法，可以省略步增量全部一起？我不得不怀疑我的 2013 excel pro plus 是否已损坏。请告诉我这是否正常。 TIA。

Answer 1

但是你在代码中有这一行：

i = i + 1

这使它跳了两倍，因为它也是你的循环变量！

因此，对于为您增加变量，您不必在循环中执行 i = i + 1。如果它是一个while循环，你将不得不这样做。但永远不要在 For 循环中，因为您正在干扰循环。 （除非这是您的确切意图。）

Answer 2

各位，我能说什么呢？好吧，实际上，如果您查看我没有包含的代码块：

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 8 Step 0
MsgBox i
    ActiveCell.Offset(1, 0).Range("A1").Select
 i = i + 1  

Next i
End Sub

您可能会欣赏“步骤 0”的价值，这允许用户通过 i = i +1 或更一般地控制函数 f(), i = f(i ）。因此，在“For i = ...”级别不增加实际上可能有一些效用，具体取决于一个人发现自己所处的果酱类型。

总而言之：a.) 省略 Step 修饰符等效于默认值，即 Step = 1。b.) 将 Step 修饰符归零，Step = 0 需要通过 i = f 显式递增的“do while”方法(i) 置于循环内。最后，我不打算对此进行测试，但是 Step = 0 并且不增加增量可能会导致无限循环或根据情况抛出错误（因此避免 Step = 0 可能是个好主意，除非你是确定你的 f(i) 和它在循环块中的位置！）。