在Excel中快速自动插入日期和时间戳

Author: Sun Last Modified: 2025-05-07

在Excel中，插入日期和时间戳是一项常见的操作。本教程将介绍多种方法，通过不同的案例手动或自动在Excel单元格中插入日期和时间戳。

使用快捷键插入日期和时间戳

使用公式插入日期和时间戳

在另一列输入数据时自动插入时间戳的公式

在另一列输入数据时自动插入时间戳的VBA代码

使用快捷键插入日期和时间戳

如果只需要在少数几个单元格中插入日期和时间戳，可以通过按下快捷键手动插入它们。

插入当前日期： Ctrl键 + :
screenahot of inserting current date by using Control + :

插入当前时间： Shift键 + Ctrl键 + :
screenahot of inserting current date by using Shift + Control + :

请参见截图：
current date and time are inserted

提示：

1. 您可以根据需要在“设置单元格格式”对话框中将输出格式化为日期格式或时间格式。

2. 如果您有 Kutools for Excel，您可以根据需要使用其 插入日期 功能以指定的日期格式插入当前日期或其他日期。点击免费下载

使用公式插入日期和时间戳

如果您想插入一个可以自动更新的日期或时间戳，可以使用以下公式。

插入当前日期

=TODAY()

按下Enter键后，当前日期将插入到单元格中。

插入当前时间：

=NOW()

按下Enter键后，当前日期和时间将插入到单元格中。
Insert date and timestamp with formula

提示：

1. 您可以根据需要在“设置单元格格式”对话框中将输出格式化为日期格式或时间格式。例如，如果您只想显示当前时间，只需在使用 =NOW() 公式后将单元格格式设置为时间格式即可。

2. 如果您想在工作表的页眉或页脚中插入当前日期和时间，可以使用 插入工作簿信息 功能，该功能属于 Kutools for Excel ，能够快速完成此任务。点击免费下载

在另一列输入数据时自动插入时间戳的公式

假设存在两列，A列和B列，现在您希望在A列输入数据的同时，在B列插入当前的时间戳，该如何实现呢？

在输入数据时自动插入时间戳

1. 首先，点击文件 > 选项打开 Excel选项 对话框，在左侧窗格中选择公式，然后勾选 启用迭代计算 选项（位于 计算选项 组中）。然后点击确定.
check Enable iteractive calculation in Options dialog

2. 在B列中，比如B1单元格，输入以下公式：

=IF(A1<>"",IF(B1<>"",B1,NOW()),"")

然后向下拖动自动填充柄至其他单元格。
enter a formula

3. 然后根据需要在 设置单元格格式 对话框中将公式单元格格式化为所需的日期时间格式：保持公式单元格选中状态，右键单击以显示上下文菜单，选择 设置单元格格式，随后弹出 设置单元格格式 对话框，在 自定义 部分（位于数字选项卡下），在类型文本框中输入所需格式，并点击确定.
foramt the foemula cells as datetime format

现在，当您在A列输入数据时，当前的日期时间将被插入到B列中。
when entering data into Column A, the current datetime will be inserted in Column B

在另一列单元格变化时自动插入并更新时间戳

如果您希望在单元格输入时自动插入时间戳，同时，如果输入内容发生变化，插入的时间戳也会更新，可以使用以下公式：

=IF(A1<>"",IF(AND(B1<>"",CELL("address")=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL("address")<>ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),"")

A1是您将输入数据的单元格，B1是您希望插入时间戳的公式单元格。

向下拖动自动填充柄至使用的单元格。

然后根据需要在“设置单元格格式”对话框中将公式单元格格式化为所需的日期时间格式：保持公式单元格选中状态，右键单击以显示上下文菜单，选择“设置单元格格式”，随后弹出“设置单元格格式”对话框，在“数字”选项卡下的“自定义”部分，在“类型”文本框中输入所需格式，点击“确定”。

在另一列输入数据时自动插入时间戳的VBA代码

如果您熟悉VBA代码，可以按照以下步骤操作：

1. 右键单击您使用的worksheet标签，然后从上下文菜单中选择 查看代码 。
click View Code from right click menu

2. 然后在Microsoft Visual Basic for Applications窗口中，粘贴以下代码。

VBA：自动插入时间戳

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

copy and paste the vba code into the module

3. 保存此代码。从现在开始，只要您在A列输入或更改数据，新的时间戳将被插入到B列中。

注意：您可以根据实际需求更改VBA代码中的A列和B列以及mm/dd/yyyy hh:mm:ss时间格式。

如果您想使用自定义函数，可以按照以下步骤操作：

1. 按住 Alt + F11 键以启用 Microsoft Visual Basic for Applications 窗口。然后点击插入 > 模块以插入一个空白模块。
click Insert > Module to insert a blank module

2. 将以下代码粘贴到新模块中。然后保存代码并返回工作表。

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

copy and paste the vba code into the module