Как макросом перевести результат условного форматирования в обычное?

[RISagitov]

Сообщение от IgorGO

с удалением я, видимо, погорячился (нафантазировал см.ниже п.3))

так часто бывает, что тут решают:
1) не ту задачу, которая стоит перед автором
2) а ту задачу, как он ее описал
3) а еще довольно часто решают ту задачу, как ее поняли
бывает между 1) и 3) пропасть, поэтому решения получаются совершенно неожиданные и совсем не в тему. кстати, между 1) и 2) тоже бывает разница космических размеров.

вот, теперь понятно, нужно форматы, полученные условным форматирование, перевести в обычное форматирование (видимо потому, что дальше автор знает как макросом отличить ячейку закрашенную красным от вообще не закрашенной ячейки и соотв. образом ее обработать)))

в точку
именно это и нужно

[angor2005]

Сообщение от Watcher_1

я тут порылся и нашел вот это DisplayFormat
на сколько я понял начинается с 2010 офиса
И вот что получил...

Sub qq()
On Error Resume Next
Dim cel As Range
For Each cel In ActiveSheet.UsedRange.Cells
    cel.Interior.Color = cel.DisplayFormat.Interior.Color
Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions).FormatConditions.Delete
End Sub

Правда без цикла не идет. Мож кто допилит?

И правда допилить бы до конкретного диапазона ячеек

[Hugo121]

Сообщение от angor2005

И правда допилить бы до конкретного диапазона ячеек

Меняете ActiveSheet.UsedRange на свой конкретный диапазон.