VBA跳出while循环

在VBA中，有时候需要在满足某些条件时跳出while循环。这可以通过使用Exit While语句来实现。本文将介绍如何使用该语句。

语法

While condition
    '执行语句
    If condition Then
        Exit While
    End If
Wend

示例

下面是一个示例程序，它从1开始计数，直到计数器值为5。在计数器值为3时，使用Exit While语句跳出while循环。

Sub TestExitWhile()
    Dim counter As Integer
    counter = 1
    
    While counter <= 5
        Debug.Print counter
        If counter = 3 Then
            Exit While
        End If
        counter = counter + 1
    Wend
    
    Debug.Print "Done"
End Sub

该程序输出：

1
2
3
Done

注意事项

• Exit While语句只能用于while循环内部。
• 如果在没有进入while循环的情况下使用Exit While语句，会引发运行时错误。
• Exit While语句会立即跳出while循环，程序将跳到while循环后面的第一行代码。