在 Excel 中输入日期

Question

我在 Excel 中输入了大量日期 - 都是同一个月和年份，只是日期不同。是否可以简单地在单元格中输入“20”，然后将其填充为“12/20/2013”​​？

Answer 1

在一列中输入数字（例如 A），然后在下一列中使用DATE：

=DATE(2013,12,A1)

向下填充以与其他行一起工作。

Answer 2

您还可以使用 VBA 宏来执行此操作，如下所示：

1. 按Alt+打开 VBA 编辑器F11。
2. 从菜单中选择插入 > 模块。

3. 写入以下代码：

   Sub dateMe()
       On Error GoTo NotPossible
       If CInt(ActiveCell.Value) > 0 And CInt(ActiveCell.Value) < 32 Then
           ActiveCell.Value = CDate("2013-12-" + CInt(ActiveCell.Value))
       End If
   NotPossible:
   End Sub
   

4. 现在你可以打开宏窗口，选择视图 > 宏 > 查看宏从菜单中，现在dateMe选择按[ 选项... ]并选择一个键作为您的快捷键。

   注意：退出后，快捷键或在所选单元格上运行宏将运行编辑模式或者在单元格内书写时。