Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA выдает ошибку "Next without for"
 
#1
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 (лишняя строка)
 
 
 
#2
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
 
 
 
#3
10.02.2016 11:20:47
спасибо
 
 
 
#4
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
 
 
 
Страницы: 1
Читают тему
Наверх