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

在 Excel 中，插入日期和时间戳是日常操作。本教程将通过多种实用案例，为您介绍在 Excel 单元格中手动或自动插入日期与时间戳的多种方法。

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

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

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

在另一列输入数据时，使用 VBA 自动插入时间戳

---

如果您只需在少数单元格中插入日期或时间戳，可直接按下快捷键手动完成。

插入当前日期：Ctrl+:

插入当前时间：Shift+Ctrl+:

参见截图：

提示：

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

2. 如果您已安装 Kutools for Excel，即可使用其插入日期功能，按需以“到某天”格式插入当前日期或其他日期。单击以免费下载

---

若希望插入可自动更新的日期或时间戳，请使用以下公式。

插入当前日期

=TODAY()

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

插入当前时间：

=NOW()

按下 Enter 键，即可将当前日期和时间插入单元格中。

提示：

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

2. 如果要将当前日期和时间插入工作表页眉或页脚，可使用插入工作簿信息Kutools for Excel 的功能快速完成此操作。单击以免费下载

---

如何在 A 列输入数据时，自动在 B 列插入当前时间戳？

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

1. 首先，单击文件 > 选项，打开 Excel 选项对话框，在左侧窗格中选择公式，然后勾选计算选项组中的启用迭代计算，最后单击确定。

2. 在 B 列（例如 B1 单元格）中输入以下公式：

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

然后向下拖动自动填充柄，直至目标单元格。

3. 随后，根据需要在设置单元格格式对话框中将公式单元格格式设置为日期时间格式：保持公式单元格处于选中状态，右键单击弹出上下文菜单，选择设置单元格格式，此时将弹出设置单元格格式对话框；在数字选项卡下的自定义区域，于类型文本框中输入所需格式，然后单击确定。

现在，当您在 A 列输入数据时，系统将自动在 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 代码，可按以下步骤操作：

1. 右键单击所用工作表标签，然后从上下文菜单中选择查看代码。

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

3. 保存此代码后，只要在 A 列输入或修改数据，B 列便会自动插入新的时间戳。

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

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

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口，然后单击插入 > 模块，即可插入一个空白模块。

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

3. 在需要插入时间戳的单元格中，输入以下公式：

=FormatDate(F1)

F1 是您输入或修改数据的单元格，随后向下拖动自动填充柄至目标单元格即可。

现在，只要在单元格 F1 中输入或更新数据，系统便会自动插入当前日期和时间。

---