Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос удаления строк по цвету
 
Подскажите, пожалуйста, макрос, который будет удалять из отчета строчки зеленого цвета, а оставшиеся строчки группировать. Во вложении 2 файла, до и после работы макроса. Заранее спасибо за Ваше решение!
 
Можно так.
Код
Sub DelRows()
    Dim lngI As Long
    For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(lngI, 1).Interior.ColorIndex = 43 Then
            Cells(lngI, 1).EntireRow.Delete shift:=xlUp
        End If
    Next lngI
End Sub

Про группировку в примере не было ничего, соответственно макрос в этой области ничего не делает.
Кому решение нужно - тот пример и рисует. (Это не призыв, это, - констатация).
 
Спасибо, все работает (под группировкой я имел ввиду, что строчки после удаления стягиваются друг к другу) ))
 
Евгений И., на будущее: не нужно показывать "до" и "после" в разных книгах. Лучше на разных листах одной книги.
Страницы: 1
Читают тему (гостей: 1)
Наверх