VBA for 循环、while 循环和 do...while 循环

VBA 中的循环语句是一种可以让程序多次执行同一段代码的结构。循环语句可以有多种类型，例如 for 循环、while 循环和 do...while 循环。

以下是 VBA 中三种常见的循环语句的简单讲解：

1.For 循环
For 循环是一种常用的循环语句，它允许我们指定一个初始值和一个结束值，并且在循环中可以设置步长。示例代码如下：

For i = 1 to 10 step 2
    ' 代码块
Next i
上面的代码将会从 1 开始，每隔 2 个数字往上计数，直到 10 结束。在循环中可以加入代码块，例如：

For i = 1 to 10
    MsgBox(i)
Next i
该代码将会弹出 1 到 10 的消息框。

2.While 循环
While 循环适用于需要反复执行某个特定代码块的情况。当满足条件时，代码块就会一直执行下去。示例代码如下：

While i < 10
    ' 代码块
Wend
上述代码中的“i”为一个变量，只要该变量小于 10，代码块就会一直执行下去。

3.Do While 循环
与 while 循环类似，do while 循环也是重复执行某一段代码块，只要满足指定条件。示例代码如下：

Do While i < 10
    ' 代码块
Loop
上述代码中的“i”为一个变量，只要该变量小于 10，代码块就会一直执行下去，直到 i >= 10 时结束。

以上是 VBA 中三种常见的循环语句的简单讲解，当然还有其他类型，如 for each 循环等。在编写程序时，需要根据实际情况选择合适的循环语句，以便更加高效的完成任务

下面是常用方法及跳出循环
1.For循环
Sub example_for() Dim i As Integer

For i = 1 To 10 Step 2
    If i = 5 Then Exit For '退出循环，不再执行后续代码
    Debug.Print i
Next i
End Sub

2.While循环
Sub example_while() Dim i As Integer i = 1

While i <= 10
    If i = 5 Then Exit While '退出循环，不再执行后续代码
    Debug.Print i
    i = i + 1
Wend
End Sub

3.Do While循环
Sub example_do_while() Dim i As Integer i = 1

Do While i <= 10
    If i = 5 Then Exit Do '退出循环，不再执行后续代码
    Debug.Print i
    i = i + 1
Loop
End Sub

4.Do Until循环
Sub example_do_until() Dim i As Integer i = 1

Do Until i > 10
    If i = 5 Then Exit Do '退出循环，不再执行后续代码
    Debug.Print i
    i = i + 1
Loop
End Sub

5.For Each循环
Sub example_for_each() Dim arr(1 To 5) As Integer Dim num As Integer

arr(1) = 10
arr(2) = 20
arr(3) = 30
arr(4) = 40
arr(5) = 50

For Each num In arr
    If num = 30 Then Exit For '退出循环，不再执行后续代码
    Debug.Print num
Next num
End Sub