Макрос удаления строк по цвету

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

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

06.12.2018 10:37:02

Подскажите, пожалуйста, макрос, который будет удалять из отчета строчки зеленого цвета, а оставшиеся строчки группировать. Во вложении 2 файла, до и после работы макроса. Заранее спасибо за Ваше решение!

Прикрепленные файлы

Заказы (ПОСЛЕ).xlsx (11.36 КБ)
Заказы (ДО).xlsx (11.74 КБ)

Пытливый

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

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

06.12.2018 10:54:13

Можно так.

Код

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

Про группировку в примере не было ничего, соответственно макрос в этой области ничего не делает.

Кому решение нужно - тот пример и рисует.

Евгений И. Пользователь Сообщений: 542 Регистрация: 02.07.2014	#3 06.12.2018 11:08:34 Спасибо, все работает (под группировкой я имел ввиду, что строчки после удаления стягиваются друг к другу) ))

Юрий М Модератор Сообщений: 61035 Регистрация: 14.09.2012 Контакты см. в профиле	#4 06.12.2018 14:38:21 Евгений И., на будущее: не нужно показывать "до" и "после" в разных книгах. Лучше на разных листах одной книги.