如果在“下一步”中未包含，则为VBA

Question

Cmd

预期：运行下一个循环。
           在条件循环测试中。
           如果满足条件，请转到下一个For循环。            如果不满足条件，请执行其他操作，然后转到            下一个循环。 错误消息在代码块上标记。

Answer 1

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

根据下面的评论，您可以循环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