怎么让 For/Next 中跳过符合特定条件的一次循环，进入下一次循环

簡單愛情

For i = 0 To 20
    If i = 9 Then
       [代码1]
'       ____________   '这里怎么加才能让 i 跳过 9 ，直接进入到 10？ 也就是不执行下面的 [代码2]

    End If
    [代码2]
Next i

如果用 Next i，提示出错呀！
exit for是退出循环，而不是跳过一次！

jsxjd

For i = 0 To 20
    If i = 9 Then
       [代码1]
    ELSE
       [代码2]   
    End If
Next i

簡單愛情

jsxjd 发表于 2014-7-8 11:50
For i = 0 To 20
    If i = 9 Then
       [代码1]

但是我想知道的是，有没有办法跳过一次循环？

jsxjd

簡單愛情 发表于 2014-7-8 11:51
但是我想知道的是，有没有办法跳过一次循环？

VBA 没有类似 Loop / Continue 那样的语句

laynet

1. For i = 0 To 20
   
2.     If i <> 9 Then
   
3.     '这里粘贴你原来的代码
   
4.     end if
   
5. Next i

复制代码

crazy0qwer

簡單愛情 发表于 2014-7-8 11:51
但是我想知道的是，有没有办法跳过一次循环？

For i = 0 To 20
    If i = 9 Then
       [代码1]

       i=i+1

    End If
    [代码2]
Next i

wzsy2_mrf

For i = 0 To 20
    If i = 9 Then
       [代码1]
'
      goto a0:
    End If
    [代码2]
a0:
Next i

jsxjd

crazy0qwer 发表于 2014-7-8 12:08
For i = 0 To 20
    If i = 9 Then
       [代码1]

+1后还是执行了 [代码2]

aoe1981

我感觉可以用goto语句实现……比如用goto直接跳转到next i，不知这样行不行……

aoe1981

1. Sub 清空()
   
2. Dim sht As Worksheet
   
3. Dim x As Range, rng As Range
   
4. For Each sht In Worksheets
   
5. sht.Activate
   
6. 'On Error Resume Next
   
7. For Each x In sht.Range("A1:C30")
   
8.        If x.Interior.Color = vbWhite Or x.Interior.Color = xlNone And x <> "" Then
   
9.         If rng Is Nothing Then Set rng = x Else Set rng = Union(rng, x)
   
10.        End If
    
11. Next
    
12. If Not rng Is Nothing Then rng.ClearContents
    
13. Set rng = Nothing
    
14. Next
    
15. End Sub

复制代码

以上代码可以实现清空各工作表指定区域内容了……