将今天的日期放在空白单元格中

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