VBA : Exit While in If

Question

这个问题在这里已经有了答案:





Break out of a While...Wend loop

(4 个回答)


6年前关闭。




好的，可能是一个简单的，但我刚刚开始使用这种语言和这段代码:

While DATA.Cells(1, i).value & "" <> ""
    If InStr(DATA.Cells(1, i).value, columnName) > 0 Then
        column = i
        Exit While
    End If
    i = i + 1
Wend

看起来这不是使用 Exit While 的方式吗？那我该怎么做呢？

Answer 1

一个 While/Wend只能使用 GOTO 提前退出或从外部 block 退出( Exit sub/function/another exitable loop )

更改为 Do循环

Do While DATA.Cells(1, i).value & "" <> ""
If InStr(DATA.Cells(1, i).value, columnName) > 0 Then
    column = i
    Exit Do
End If
i = i + 1
Loop

@Alex K 的原始答案。
Break out of a While...Wend loop in VBA