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

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

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

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

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

例如，如果原始日期在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 是您希望自動排序的原始日期範圍。

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

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

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

使用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列中自動排序。您可以根據需要將 A1和A2更改為自己的單元格。

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