Excel VBA-выход для цикла

Я хотел бы выйти из моего for цикл, когда выполняется условие внутри. Как я мог выйти из моего for цикл если if условие? Я думаю, что какой-то выход в конце моего if заявление, но не знаю, как это будет работать.

Dim i As Long
For i = 1 To 50
    Range("B" & i).Select
    If Range("B" & i).Value = "Artikel" Then
        Dim temp As Long
        temp = i
    End If
Next i
Range("A1:Z" & temp - 1).EntireRow.Delete Shift:=xlToLeft

2 ответов


для выхода из цикла рано вы можете использовать Exit For

If [condition] Then Exit For


другой способ выйти из цикла For рано-это изменить счетчик циклов:

For i = 1 To 10
    If i = 5 Then i = 10
Next i

Debug.Print i   '11

For i = 1 To 10
    If i = 5 Then Exit For
Next i

Debug.Print i   '5