Excel VBA Макросы. Удаление строк по цвету ячейки.

Автор Atom, 21 августа 2021, 12:07

Atom

На листе есть два столбца: A, B.
Данные начинаются со строки 2.
Нужно удалить строки, у которых в столбце B красная заливка.

Администратор

Макрос
Sub Макрос()
   
    Dim lr As Long, i As Long
   
   
    ' Отключение монитора, чтобы ускорить макрос.
    Application.ScreenUpdating = False
   
    '1. Поиск последней строки по столбцу A.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "A").End(xlUp).Row
   
    '2. Удаление строк.
    For i = lr To 2 Step -1
        If Cells(i, "B").Interior.Color = 255 Then
            Rows(i).Delete
        End If
    Next i
   
    '3. Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation
   
End Sub
[свернуть]