удалить все кроме выбранного цвета

[Hugo121]

Это проще:

Sub tt()
    Dim cc As Range
    For Each cc In Selection
        If cc.FormatConditions.Count = 0 Then cc.Value = ""
    Next
End Sub

[Cayman]

ДД, чтото не работает

[Hugo121]

У меня работает.
Давайте свой файл, и объясните, что значит "не было примененно УФ" - может мы о разном говорим?

[Cayman]

прикрепил, УФ - зеленые и синие ячейки

[Hugo121]

"в выделенном диапазоне удалить все данные с ячеек к которым не было примененно УФ" - вставил в Ваш файл модуль с приведённым выше макросом, выделил часть ячеек, выполнил макрос - ячейки без УФ очистились. Что не так? Должны очиститься неокрашенные УФ ячейки? (это уже мои домыслы, Вы так и не объяснили)
Тогда в данном случае

Sub ttt()
    Dim cc As Range
    For Each cc In Selection
        If cc.Value = 0 Then cc.Value = ""
    Next
End Sub

Хотя убрать нули можно просто отключив их отображение в настройках.

[Cayman]

ДД,
проверил на работе, теперь все работает, спасибо
а можно увеличить скорость стирания?
это всего лишь кусочек таблицы, на самом деле она очень объемная и ждать нужно будет продолжительное время.