如何在 Excel 中向单元格插入当前的天、月或年？

Excel 提供了内置函数和便捷的键盘快捷键，助您快速插入当前日期、月份或年份。无论是希望 Excel 自动更新显示当前日期信息，还是需要在特定时刻手动输入时间戳，这些方法都是理想之选。

例如，若要在目标单元格中以数字形式显示当前月份，只需输入以下公式：=MONTH(TODAY())，然后按 Enter 即可。公式将返回当前月份的数字（例如，8 月返回 8）。

参数说明：

• 公式 =TODAY()和 =NOW()会在工作表重新计算时自动更新，确保您看到的日期和时间始终最新！
• =YEAR(TODAY())以四位数字形式返回当前年份，而 =TEXT(TODAY(),"MMMM")则返回月份的全名。
• 如需使用静态值（后续不再更改），请使用以下键盘快捷键。

对于静态输入（例如记录特定事件的日期且不希望该值日后更新），键盘快捷键尤其有用：

（1）要立即将当前日期插入所选单元格，请按 CTRL + ;。

（2）要在同一单元格中插入当前日期和时间，请先按 CTRL + ;插入日期，松开按键后，按空格键添加空格，再按 CTRL + SHIFT + ;插入当前时间。

实用技巧与提醒：

• 使用 =TODAY()或 =NOW()的公式会在文件重新计算时自动更新，而通过键盘手动输入的内容一经录入即固定不变。
• 请注意工作表的计算模式。若数值未自动更新，可按 F9 键立即刷新！
• 若需将公式复制到多行，请根据实际需求调整单元格引用。

这两种方法广泛适用于数据录入表、每日日志、自动报告，以及任何需要最新日期值的场景。纯公式法最适合用于必须始终反映最新日期的数据；而键盘输入法则让您掌握静态记录的主动权。

如果您已安装 Kutools for Excel，则其插入日期工具只需几次点击，即可轻松插入当前年份、月份或日期，并支持您自定义的日期格式。当您需要统一的自定义格式，或希望通过日历选择器快速灵活地选择日期时，此工具尤为实用。

安装 Kutools for Excel 后，请参考以下步骤：

1. 选择要插入当前年份、月份或日期的单元格，然后转到 Kutools > 插入 > 插入日期。

2. 在插入日期对话框中，请确保已选中使用格式选项，然后双击右侧列表中的所需日期格式，所选格式将立即应用于活动单元格。如下图所示：

现在，当前日期将以您指定的格式显示在所选单元格中。

注意事项与使用建议：

• 默认情况下，插入日期对话框的日历中会高亮显示今天的日期。若要插入其他日期，请先在日历上单击目标日期，再双击所需的格式。
• 此方法可灵活应对本地化日期格式、专业报表模板，以及任何对视觉呈现一致性有要求的场景。

Kutools for Excel 的插入工作簿信息工具，可轻松在内容区域、页眉或页脚中为工作表添加实时信息水印。此功能特别适用于自动化文档控制、审计用途，或在分发报告中实现一致的时间戳，只需几步即可插入准确的日期和时间数据。

1. 单击工具栏中的 KUTOOLS PLUS> 工作簿> 插入工作簿信息。

2. 在“插入工作簿信息”对话框中，选择当前日期和时间选项。在插入位置部分，指定您希望插入该信息的位置——可选任意工作表单元格，或页眉、页脚中的任意区域。单击确定即可完成插入。请参考上方截图获取可视化指导。

当前日期和时间现已精确插入到您所需的位置。

其他提示：

• 当您需要添加修订日期、数据导出时间戳，或纸质记录的打印件时，此方法尤为实用。
• 请注意，页眉或页脚中插入的内容在页面布局视图或打印预览视图下最为清晰可见。
• 此处所做的更改不会自动更新，除非您重新应用“插入工作簿信息”工具。

若需实现更高程度的自动化——例如让 Excel 在特定单元格每次被修改时自动记录录入的确切日期，或通过单击按钮触发日期戳记——可借助 VBA（Visual Basic for Applications）。此方法特别适用于日志表、审计跟踪或对精确控制有要求的自定义报表。VBA 能根据您的具体工作流需求，动态插入当前日期、月份或年份。

场景 1：每当指定列或区域中的单元格被编辑时，自动插入当前日期。此方案非常适合创建“修改日期”列，或为条目自动添加时间戳。

设置方法：

• 右键单击要添加自动化的查看代码，然后选择查看代码。
• 在打开的 Microsoft Visual Basic for Applications 窗口中，将以下代码粘贴到代码窗格中：

Private Sub Worksheet_Change(ByVal Target As Range)
    'Automatically insert current date when any change occurs in column B (adjust to your needs)
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Target.Offset(0, 1).Value = Date 'Inserts date in column C when column B changes
    End If
End Sub

操作提示：

• 每当您编辑 B 列中的单元格时，当前日期将自动显示在 C 列的相邻单元格中（您可以根据需要调整目标范围和偏移量）。
• 若要将此逻辑应用于其他范围，或插入月份/年份，请将 Date 相应修改为 Month(Date)或 Year(Date)。
• 此方法最适合用于审计日志或“最后更新”日期跟踪。请确保已启用宏，以便此代码正常运行。

场景 2：只需单击自定义按钮，即可插入当前日期、月份或年份，轻松满足定制化工作流或按需添加时间戳的需求。

设置方法：

1. 单击开发工具 > Visual Basic。
2. 在 VBA 编辑器窗口中，单击插入> 模块
3. 输入以下代码（示例将当前日期插入 A1 单元格；您可以根据需要修改目标单元格或逻辑）：

Sub InsertCurrentDate()
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Worksheets("Sheet1").Range("A1").Value = Date
End Sub

如何在 Excel 中将宏分配给按钮

1. 插入按钮：
   1. 点击开发工具功能区上的选项卡。
   2. 单击插入 > 表单控件 下的按钮（表单控件）。

      

2. 在工作表任意位置绘制按钮。
3. 指定宏：
   1. 绘制按钮后，将弹出指定宏窗口。
   2. 选择 InsertCurrentDate（或您为宏指定的任意名称）。

      

4. 单击确定。

每次单击该按钮，当前日期便会自动插入到 Sheet 1 的 A1 单元格中。

您可以编辑该宏，以更改目标单元格或工作表，甚至改为插入当前月份或年份。

故障排除与注意事项：

• 如果宏无法运行，请确保已在 Excel 设置中启用宏功能。
• 在将 VBA 代码应用于重要文件之前，请先在示例工作簿中进行测试，以防意外丢失数据。
• 将 VBA 与工作表控件结合使用，可打造强大而灵活的工作流自动化方案，但在集成新宏之前，请务必备份文件。

总之，VBA 解决方案为 Excel 中的自动化时间戳提供了无与伦比的灵活性，尤其适用于标准公式或工具无法完全满足您工作流需求的场景。