Как заменить значение в ячейке, выделенное условным форматированием желтым цветом.
Например в диапазоне C5:PE40 есть желтые ячейки с цифрой 8, нужно в них заменить 8 на о.
Макрос вставляет букву "о". Если вы предполагали подставлять ноль, то нужно так записать:
Ячейка.Value = 0
Макрос
Sub Макрос()
Dim Ячейка As Range
' Отключение монитора, чтобы ускорить макрос.
' Если много формул, можно ещё отключить формулы.
Application.ScreenUpdating = False
' Замена значений в ячейках, закрашенных условным форматированием.
For Each Ячейка In Range("C5:PE40")
If Ячейка.DisplayFormat.Interior.Color = 65535 Then
If Ячейка.Value = 8 Then
Ячейка.Value = "о"
End If
End If
Next Ячейка
' Сообщение.
Application.ScreenUpdating = True
MsgBox "Готово.", vbInformation
End Sub