把今天的date放在空白单元格中

我想要一个macros，将今天的date放入列中的所有空白单元格。 如果在一个单元格中已经有一个date，那么它应该跳过这一行。

Answer 1

您可以在不使用VBA的情况下执行此操作，请参阅http://www.contextures.com/xlDataEntry02.html

使用代码（请select您的范围在运行之前填充）

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