VBA: выпрыгивание из цикла for

Question

Как достичь следующего?

Sub Macro1() 
' 
' Macro1 Macro 
' 

' 
    Worksheets("Drop-down").Select 
    n = Cells(1, 1).End(xlDown).Row 
    For i = 1 To n 
     ActiveSheet.Cells(i, 2).Select 
     ******************************************************* 
     If Worksheets("Misc").Cells(2, i).Value = "" Then 
      continue i 
     End If 
     ******************************************************* 
     If Worksheets("Misc").Cells(3, i).Value <> "" Then 
      Set validationRange = Range(Worksheets("Misc").Cells(2, i), Worksheets("Misc").Cells(2, i).End(xlDown)) 
     Else 
      Set validationRange = Worksheets("Misc").Cells(2, i) 
     End If 
     With Selection.Validation 
      .Delete 
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
      xlBetween, Formula1:=validationRange.Address 
      .IgnoreBlank = True 
      .InCellDropdown = True 
      .InputTitle = "" 
      .ErrorTitle = "" 
      .InputMessage = "" 
      .ErrorMessage = "" 
      .ShowInput = True 
      .ShowError = True 
     End With 
    Next i 
End Sub 

Answer 1

Разве это не простое управление потоком дело? Я не понимаю, о необходимости специальных ключевых слов, чтобы решить эту проблему:

For i = 0 To 10 
If Not condition Then 
    some other code 
Next 

EDIT: Или в вашем коде:

Sub Macro1() 
' 
' Macro1 Macro 
' 

' 
    Worksheets("Drop-down").Select 
    n = Cells(1, 1).End(xlDown).Row 
    For i = 1 To n 
     ActiveSheet.Cells(i, 2).Select 
     ******************************************************* 
     If Not Worksheets("Misc").Cells(2, i).Value = "" Then 
     ******************************************************* 
      If Worksheets("Misc").Cells(3, i).Value <> "" Then 
       Set validationRange = Range(Worksheets("Misc").Cells(2, i), Worksheets("Misc").Cells(2, i).End(xlDown)) 
      Else 
       Set validationRange = Worksheets("Misc").Cells(2, i) 
      End If 
      With Selection.Validation 
       .Delete 
       .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
       xlBetween, Formula1:=validationRange.Address 
       .IgnoreBlank = True 
       .InCellDropdown = True 
       .InputTitle = "" 
       .ErrorTitle = "" 
       .InputMessage = "" 
       .ErrorMessage = "" 
       .ShowInput = True 
       .ShowError = True 
      End With 
    ******** 
     End If 
    ******** 
    Next 
End Sub 

Answer 2

Не указаны ли ключевые слова vb?

For n = 1 To something 
    If condition Then 
     Continue For 
    End If 

    ' more code 

Next n 

Ключевое слово Continue делает то, что вы хотите.

http://msdn.microsoft.com/en-us/library/801hyx6f(VS.80).aspx

Answer 3

И чтобы ответить на вторую половину вопроса:

For n = 1 To something 
    If condition Then 
     Exit For 
    End If 
    ' more code 

Next n