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