фильтр по цвету в excel

Ответ от Зибин[гуру]
написать на VBA простую пользовательскую функцию ColorIndex, которая будет выводить числовой код цвета заливки любой заданной ячейки. По этому коду и сортировать.
Для этого откройте редактор Visual Basic через меню Сервис - Макрос - Редактор Visual Basic вставьте новый пустой модуль (меню Insert - Module) и скопируйте туда текст простой функции:
Public Function ColorIndex(Cell As Range)
ColorIndex = Cell.Interior.ColorIndex
End Function
Теперь можно закрыть редактор Visual Basic, вернуться в Excel и, выделив любую пустую ячейку, вызвать созданную функцию ColorIndex через меню Вставка - Функция - категория Определенные пользователем. В качестве аргумента указать ячейку, цвет заливки которой хотите получить в виде цифрового кода.
Если нужно вытаскивать не код цвета заливки, а код цвета шрифта, то функция слегка изменится:
Public Function ColorIndex(Cell As Range)
ColorIndex = Cell.Font.ColorIndex
End Function
P.S.
функция ColorIndex, к сожалению, имеет пару недостатков:
С ее помощью нельзя получить цвет, который ячейка имеет при использовании ссылка Она не пересчитывается автоматически при изменении цвета одной из
ячеек, поскольку Excel не считает изменение цвета редактированием
содержимого ячейки и не запускает автоматического пересчета листа. Это
нужно сделать самому, нажав Ctrl+Alt+F9, либо дописав к функции в каждой ячейке вот такую добавку:
=ColorIndex(A2)+СЕГОДНЯ ()*0
чтобы содержимое ячейка пересчитывалась автоматически при каждом пересчете листа.