VBA 嵌套循环提前退出

使用VBA编程时，经常会遇到需要使用嵌套循环的情况。嵌套循环是一种在循环内部再次使用循环的结构，可以用来处理复杂的数据操作和算法。然而，在某些情况下，我们可能需要在嵌套循环中提前退出，以避免无谓的计算和浪费资源。本文将介绍如何在VBA中实现嵌套循环的提前退出，并通过一个案例代码进行演示。

vba
Sub NestedLoopExample()
    Dim arr(1 To 5, 1 To 5) As Integer
    Dim target As Integer
    Dim i As Integer
    Dim j As Integer
    Dim found As Boolean
    
    '初始化数组
    For i = 1 To 5
        For j = 1 To 5
            arr(i, j) = i + j
        Next j
    Next i
    
    target = 8
    found = False
    
    '外层循环
    For i = 1 To 5
        '内层循环
        For j = 1 To 5
            '判断当前元素是否等于目标值
            If arr(i, j) = target Then
                '找到目标值，设置标志变量，并提前退出内层循环和外层循环
                found = True
                Exit For
            End If
        Next j
        
        '判断标志变量的值，如果为True，则提前退出外层循环
        If found = True Then
            Exit For
        End If
    Next i
    
    '输出结果
    If found = True Then
        MsgBox "目标值 " & target & " 的位置坐标为 (" & i & ", " & j & ")"
    Else
        MsgBox "未找到目标值 " & target
    End If
End Sub