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

在 Excel 中，插入日期與時間戳記是常見的操作。本教學將透過不同情境，介紹多種手動或自動在 Excel 儲存格中插入日期與時間戳記的方法。

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

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

在另一欄輸入資料時，自動插入時間戳記的公式

在另一欄輸入資料時，自動插入時間戳記的 VBA

---

若您只需在少數儲存格中插入日期與時間戳記，可透過快速鍵手動完成。

插入目前日期：Control+:

插入目前時間：Shift+Control+:

請參閱截圖：

提示：

1. 您可以根據需求，在設定儲存格格式對話方塊中，將輸出結果輕鬆格式化為所需的日期或時間格式。

2. 若您已安裝 Kutools for Excel，即可透過其插入日期功能，按需以「到某天」格式插入目前日期或其他日期。點此免費下載

---

若您希望插入能自動更新的日期或時間戳記，請使用下列公式。

插入目前日期

=TODAY()

按下 Enter 鍵，即可在儲存格中插入當前日期。

插入目前時間：

=NOW()

按下 ENTER 鍵，即可在儲存格中插入目前的日期與時間。

提示：

1. 您可依需求，在設定儲存格格式對話方塊中，將輸出結果格式化為所需的日期或時間格式。例如，若只想顯示目前時間，只要在使用 =NOW()公式後，將儲存格格式設為「時間」即可。

2. 若您想將當前日期和時間插入工作表的頁首或頁尾，可透過 Kutools for Excel 的插入工作簿資訊功能，快速完成此項操作！點此免費下載

---

假設有兩欄資料，A 欄與 B 欄，當您於 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 中輸入或更新資料時，系統就會自動插入目前的日期與時間。

---