当满足内部条件时,我想退出for
循环。在满足if
条件的情况下,如何退出for
循环?我想在我的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
发布于 2012-02-23 22:39:34
要提前退出循环,可以使用Exit For
If [condition] Then Exit For
发布于 2020-02-29 18:59:18
给出的第一个答案确实是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
https://stackoverflow.com/questions/9414969
复制相似问题