Question

试图查看列中的单元格，然后查明单元格是否有6/7个字符以及是否有i。

然后复制。

Sub ctest()
Dim i As Long
For i = 1 To 5000
    With Range("AR" & i)

        If Left(.Value, 1) <> "i" Then GoTo NextIteration Else

        If Len(.Value) = 6 Then .Copy Destination:=.Offset(, 2)
        If Len(.Value) = 7 Then .Copy Destination:=.Offset(, 2)

NextIteration:
    End With

Next i
End Sub

但这似乎并没有奏效...... 谢谢你们。

Answer 1

如果您只想跳过循环，为什么不使用基本的if语句

Sub ctest()
Dim i As Long
For i = 1 To 5000
    With Range("AR" & i)

        If Left(.Value, 1) = "i" Then
            If Len(.Value) = 6 Then .Copy Destination:=.Offset(, 2)
            If Len(.Value) = 7 Then .Copy Destination:=.Offset(, 2)
        End If

    End With

Next i
End Sub

VBA条件跳过语句循环

1 个答案: