Помещение сегодняшней даты в пустые ячейки

Question

Я хотел бы макрос, который помещает сегодняшнюю дату во все пустые ячейки в столбце. Если в ячейке уже есть дата, она должна пропустить эту строку.

Answer 1

Вы можете сделать это без VBA, см. http://www.contextures.com/xlDataEntry02.html

С указанным кодом (выберите диапазон для заполнения перед запуском)

Sub QuickFill()
Dim rng1 As Range
On Error Resume Next
Set rng1 = Selection.SpecialCells(xlBlanks)
On Error GoTo 0
If Not rng1 Is Nothing Then rng1.Value = Format(Now(), "dd-mmm-yy")
End Sub