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