如何在Excel中於輸入或更改時自動排序日期？

Author: Xiaoyang Last Modified: 2025-08-23

在 Excel 中，排序功能可以幫助您根據需要以升序或降序排列日期。但它不是動態的，如果您已經對日期進行了排序，然後又添加了新的日期，則需要再次進行排序。有沒有什麼好的快速方法可以在工作表中每次輸入新數據時自動對日期進行排序呢？

使用公式在輸入或更改日期時自動排序日期

例如，如果原始日期在A列中，以下公式可以幫助您根據要排序的列將日期或其他文本字符串自動排序到一個新的輔助列中。請按照以下步驟操作：

1. 輸入此公式：

=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,"<="&$A$2:$A$15),0)) 在日期列旁邊的空白單元格中，例如C2，然後同時按下 Ctrl + Shift + Enter 鍵以獲取數字序列。接下來，向下拖動填充柄至所需的單元格。參見截圖：

注意：在上述公式中：A2:A15 是您希望自動排序的原始日期範圍。

A screenshot showing the application of a formula in Excel to auto-sort dates

2. 然後通過點擊“ 首頁”選項卡下“常規”下拉列表中的“短日期”來將數字格式化為日期格式，參見截圖：

A screenshot showing how to format sorted numbers as dates in Excel

3. 序列號現在已轉換為日期格式，並且原始日期也已排序。參見截圖：

A screenshot showing the result of converting sorted numbers to date format in Excel

4. 從現在開始，當您在A列中輸入或更改日期時，C列中的日期將自動按升序排列。參見截圖：

A screenshot showing automatically sorted dates after entering new data in Excel

使用VBA代碼在輸入或更改日期時自動排序日期

以下VBA代碼可以幫助您在輸入或更改日期時自動對原始列中的日期進行排序。

1. 轉到您希望在輸入或更改日期時自動排序的工作表。

2. 右鍵單擊工作表標籤，並從上下文菜單中選擇“查看代碼”，在彈出的 Microsoft Visual Basic for Applications 窗口中，請將以下代碼複製並粘貼到空白的模塊窗口中，參見截圖：

VBA代碼：在輸入或更改日期時自動排序：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    On Error Resume Next
    If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
                                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

A screenshot of VBA code being entered in the Visual Basic editor for auto-sorting dates

注意：在上述代碼中，輸入的日期將在A列中自動排序。您可以根據需要將 A1和A2更改為自己的單元格。

3. 從現在開始，當您輸入日期到A列時，日期將自動按升序排列。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多