VBA If остальное в следующем цикле

Question

Мне нужен оператор VBA If Else в цикле For Next

Я пробовал различные варианты операторов, но все они выдают ошибку.

Sub TestForIfElse()
   Dim Counter As Integer
   Dim i As Integer

   For i = 1 To 5

   Counter = i

   If Counter > 3 Then

        Exit For

    Else

    Next i   'ERROR NEXT WITHOUT FOR
End Sub

Запуск цикла до проверкивстретились.

Если тест не пройден, продолжайте движение

Если тест пройден, выйдите из цикла.Спасибо за вашу помощь.

Answer 1

Это будет работать:

Sub TestForIfElse()

   Dim Counter As Integer
   Dim i As Integer

   For i = 1 To 5

       Counter = i

       If Counter > 3 Then

            Exit For

       End If

   Next i

End Sub