Continue For循环

Question

我有以下代码

For x = LBound(arr) To UBound(arr)

    sname = arr(x)  
    If instr(sname, "Configuration item") Then  
        '**(here i want to go to next x in loop and not complete the code below)**  

    '// other code to copy past and do various stuff

Next x  

所以我想我可以简单地使用Then Next x语句，但这会给出一个"no for statement could“错误。

那么，我可以在If instr(sname, "Configuration item") Then后面放什么，以使其继续到x的下一个值？

Answer 1

您正在考虑像Java's或Python's这样的continue语句，但是VBA没有这样的本机语句，并且您不能像那样使用VBA的Next。

您可以使用GoTo语句来实现您想要实现的功能，但实际上，GoTo应该保留给那些人为设计的、不切实际的替代方案。

在只有一个"continue“条件的情况下，有一个非常简单、干净和可读的替代条件：

    If Not InStr(sname, "Configuration item") Then
        '// other code to copy paste and do various stuff
    End If

Answer 2

您可以使用GoTo

Do

    '... do stuff your loop will be doing

    ' skip to the end of the loop if necessary:
    If <condition-to-go-to-next-iteration> Then GoTo ContinueLoop 

    '... do other stuff if the condition is not met

ContinueLoop:
Loop

Answer 3

For i=1 To 10
    Do 
        'Do everything in here and

        If I_Dont_Want_Finish_This_Loop Then
            Exit Do
        End If 

        'Of course, if I do want to finish it,
        'I put more stuff here, and then...

    Loop While False 'quit after one loop
Next i