VBA: Выход Хотя в случае

Question

Хорошо, вероятно, легко один, но я только начинаю использовать этот язык, и в этом фрагменте кода:

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 

Похоже, что это не так, как использовать Выход Хотя ? Как мне это сделать?

Answer 1

While/Wend можно выйти только преждевременно с GOTO или путем выхода из внешнего блока (Exit sub/function/another exitable loop)

Изменения к Do петле Intead

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