快速且自動地在 Excel 中插入日期和時間戳

Author: Sun Last Modified: 2025-05-12

在 Excel 中，插入日期和時間戳是一項常見的操作。在本教程中，我將介紹多種方法，手動或自動地在 Excel 單元格中插入日期和時間戳，並提供不同的案例。

使用快捷鍵插入日期和時間戳

使用公式插入日期和時間戳

當在另一列輸入數據時，自動插入時間戳的公式

當在另一列輸入數據時，自動插入時間戳的 VBA

使用快捷鍵插入日期和時間戳

如果您只需要在少數單元格中插入日期和時間戳，可以通過按下快捷鍵手動插入它們。

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

插入當前時間：Shift + Control + :
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. 右鍵單擊您使用的表格標籤，然後從上下文菜單中選擇「查看代碼」。
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