VBA If Else 在 For Next 循环中答案

【问题标题】：VBA If Else within For Next LoopVBA If Else 在 For Next 循环中
【发布时间】：2019-11-03 21:25:08
【问题描述】：

我需要 For Next 循环中的 VBA If Else 语句

我尝试了各种语句的排列，但都出错了。

Sub TestForIfElse()
   Dim Counter As Integer
   Dim i As Integer

   For i = 1 To 5

   Counter = i

   If Counter > 3 Then

        Exit For

    Else

    Next i   'ERROR NEXT WITHOUT FOR
End Sub

运行循环直到满足测试。

如果未通过测试，请继续

如果测试满足，退出循环。感谢您的帮助。

【问题讨论】：

将Else 替换为End If。
如果你想使用If Else，你需要包含一个End If。所以你会使用If... Else... End If

标签： vba for-loop if-statement

【解决方案1】：

这将起作用：

Sub TestForIfElse()

   Dim Counter As Integer
   Dim i As Integer

   For i = 1 To 5

       Counter = i

       If Counter > 3 Then

            Exit For

       End If

   Next i

End Sub

【讨论】：

工作得很好。