VBA if Else 在 For Next [重复]

Question

        'I don't know how to write the code, but this is the goal:

        'Loop through cells A1 to A10. 
        'Test if cell A1 meets condition. 
        'If not, go to A2. 
        'If yes, do procedure, then go to A2. 

        Sub TestForIfElse()

        Dim Counter As Integer
        Dim Counter2 as Integer
        Dim i As Integer

        For i = 1 To 5

            Counter = i

            If Counter > 3 Then  'GOTO NEXT i LOOP

        Next i   'ERROR MSG NEXT WITHOUT FOR

            Else

            Counter2 = Counter2 + i

            End If

        Next i   'GOTO NEXT i LOOP

    End Sub

预期：运行下一个循环。
在条件的循环测试中。
如果满足条件，则进入下一个 For 循环。 如果条件不满足，做其他事情，然后去 下一个 for 循环。 代码块上标记的错误消息。

Answer 1

您尝试这样做的方式是破坏 for loops 的块结构。

根据下面的 cmets，您可以在 Range("A1:A10") 中循环每个单元格并在该循环中进行验证。如果它包含值“*”，则调用您的过程。否则，您的循环将转到您范围内的下一个单元格引用。

Sub TestingLoops()

    Dim Target As Range
    Set Target = ActiveSheet.Range("A1:A10")

    Dim Cell As Range
    For Each Cell In Target
        If InStr(Cell.Value, "*") > 0 Then
            SomeProcedure Target
        End If
    Next Cell

End Sub

您调用的过程可以在您的range 参考中使用，或者如果您需要，它的价值。这是我将引用传递给range 的示例。

Private Sub SomeProcedure(ByRef Target As Range)
    'do something
End Sub