как в экселе пустые заливные ячейки поменять на заливные с значением

[tol]

как в экселе пустые заливные ячейки поменять на заливные с значением

[vikttur]

Макросом. Но - какие значения?

[tol]

Значением 1

[sboy]

Добрый день.
вот такой вариант

Код (vb) Выделить Развернуть

Sub К_декабрю_всем_сдать_графики_отпусков()
Application.ScreenUpdating = False
    For Each cl In Range("A4:NB63").Cells
        If cl.Interior.Color = 8421376 Then cl.Value = 1
    Next cl
Application.ScreenUpdating = True
End Sub