Excel VBA - 루프 종료

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

루프를 조기에 종료하려면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

다음과 같은 첫 번째 답변은 실제로 I.M.O. 베스트 프랙티스입니다.

if i = 0 then exit for

단, 이것도 옵션입니다.

Sub some()

Count = 0
End_ = ThisWorkbook.Sheets(1).Range("B1047854").End(xlUp).Row

While Count < End_ And Not ThisWorkbook.Sheets(1).Range("B" & Count).Value = "Artikel"
    Count = Count + 1
    If ThisWorkbook.Sheets(1).Range("B" & Count).Value = "Artikel" Then
        ThisWorkbook.Sheets(1).Range("A1:Z" & Count - 1).EntireRow.Delete Shift:=xlToLeft
    End If
Wend

End Sub

if condition (while - loop을 참조)그럼 goto (루프 외부에 있는 일부 마커)

언급URL : https://stackoverflow.com/questions/9414969/excel-vba-exit-for-loop