На листе есть два столбца: 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
спасибо