Удалить пустые выделенные строки после фильтрации по цвету

Question

У меня есть набор данных, в котором довольно много пустых выделенных строк.Я уже записал и получил скрипт, который поможет мне удалить нужные строки.

Однако, поскольку макросы записывают только то, что вы выбрали, в коде он дает номер строки, который я выбрал.Теперь это работает, если номер строки всегда остается постоянным.Поскольку порядок данных может меняться время от времени, я хотел бы знать, если вместо этой ссылки на конкретную строку сценарий просто автоматически выберет непосредственную строку после заголовка.

Это код.Для строки «строки (5: 5). Выбрать» номер строки может постоянно меняться.

ActiveSheet.Range("$A$1:$O$2000").AutoFilter Field:=15, Criteria1:=RGB(180, _
    180, 191), Operator:=xlFilterCellColor
rows("5:5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp

Answer 1

Если предположить, что после фильтра отображаются пустые строки, это будет работать.

With ActiveSheet.Range("$A$1:$O$2000")
    .AutoFilter Field:=15, Criteria1:=RGB(180,180, 191), Operator:=xlFilterCellColor
    On Error Resume Next 'only using this line in case there are no blank rows after filter
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error Go To 0 'and now turn error reporting back on so any other errors fire as needed
End With