Как не с помощью макроса выполнить фильтр поцвету и очистить.
Макрос:
Range("I26:I32").Select
Selection.AutoFilter
ActiveSheet.Range("$I$26:$I$32").AutoFilter Field:=1, Criteria1:=RGB(221, _
217, 195), Operator:=xlFilterCellColor
(6) Друг, спасибо! Надо учиться мыслить как программист, а не тупо заучивать...
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший