EXCEL VBA: я немножно доработал В чем в этом коде заключается ошибка? error next without for

Question

EXCEL VBA: я немножно доработал В чем в этом коде заключается ошибка? error next without for

Неизвестно Профи (829), закрыт 4 месяца назад

Dim x As Integer

For x = 2 To 9999

If Worksheets("Sheet1").Cells(x, 2).Value = "VVD" Then

Sheets("Sheet1").Rows(x).Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
ActiveSheet.Name = ActiveSheet.Range("B2").Value

Next x

Else

End If

End Sub

Answer 1

>>error next without for
Ошибка next не может использоваться баз for.

Answer 2

Не обязательно создавать по 10 вопросов, достаточно одного.

End If должен заканчивать блок кода If, а у вас он разрывает блок For.
да и Else пустой, зачем он?

Answer 3

Начинается For
Начинается If
а потом...
Заканчивается For (оператор Next)
и ПОТОМ заканчивается If (операторы Else и EndIf)

А должно быть наоборот!