В редакторе VBA вставить модуль, в который прописать текст:
Public Function ColorCode(Cell As Range)
ColorCode = Cell.Interior.ColorIndex
End Function
Затем в каком-нибудь из столбцов вставить функцию определенную пользователем, в качестве аргумента выбрать ячейку с заливкой, протянуть формулу на весь диапазон, затем фильтровать по коду цвета, у незалитых ячеек код -4142. Удалить.
Более подробно где-то в Приемах описано, к сожалению, не смогла найти, но ранее видела...