Excel VBA -退出for循环
Excel VBA -退出for循环
提问于 2012-02-23 22:29:10
当满足内部条件时，我想退出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回答 2
Stack Overflow用户
回答已采纳
发布于 2012-02-23 22:39:34
要提前退出循环，可以使用Exit For
If [condition] Then Exit For
Stack Overflow用户
发布于 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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/9414969
复制相关文章
相似问题