VBA выдает ошибку "Next without for"

Пользователь

Сообщений: 319 Регистрация: 28.04.2012

10.02.2016 08:48:55

Код

    'Dim i&
    With ActiveSheet
        
        For i = .Cells(.Rows.Count, "a").End(xlUp).Row To 1 Step -1
       
            If .Cells(i, "A") <> "Названия строк" Then
            If .Cells(i, "A") <> "Общий итог" Then
            If .Cells(i, "A") <> 12103 Then .Rows(i).Delete Shift:=xlUp
        Next i  
    End With

Добрый день
Подскажите пож, есть макрос который выдает ошибку "Next without for"

Изменено: Ливиан - 10.02.2016 08:49:32 (лишняя строка)

Апострофф

Пользователь

Сообщений: 807 Регистрация: 06.04.2015

10.02.2016 08:54:05

Читайте про одно- и много- строчный синтаксис IF
Ваш случай -

Код

    'Dim i&    
    With ActiveSheet
         
        For i = .Cells(.Rows.Count, "a").End(xlUp).Row To 1 Step -1
        
            If .Cells(i, "A") <> "Названия строк" Then
              If .Cells(i, "A") <> "Общий итог" Then
                If .Cells(i, "A") <> 12103 Then .Rows(i).Delete Shift:=xlUp
              ENDIF
            ENDIF
        Next i  
    End With

Изменено: Апострофф - 10.02.2016 09:25:13

Ливиан Пользователь Сообщений: 319 Регистрация: 28.04.2012	#3 10.02.2016 11:20:47 спасибо

JayBhagavan

Пользователь

Сообщений: 11833 Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

10.02.2016 12:04:21

Или так:

Код
If .Cells(i, "A") <> "Названия строк" Then: _ If .Cells(i, "A") <> "Общий итог" Then: _ If .Cells(i, "A") <> 12103 Then .Rows(i).Delete Shift:=xlUp

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

Читают тему