跳到主要內容

在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 是您要自動排序的原始日期範圍。

doc按日期自動排序1

2. 然後通過單擊將數字格式化為日期格式 短期約會 來自 總 下的下拉列表 首頁 標籤，請參見屏幕截圖：

doc按日期自動排序2

3。 然後，序列號已轉換為日期格式，並且原始日期也已排序，請參見屏幕截圖：

doc按日期自動排序3

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

doc按日期自動排序4

箭頭藍色右氣泡 使用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

doc按日期自動排序6

備註：在上面的代碼中，輸入的日期將在A列中自動排序，您可以更改 A1 和 A2 到您自己所需的單元格。

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

最佳辦公生產力工具

🤖 Kutools 人工智慧助手：基於以下內容徹底改變數據分析： 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup  |   多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧   |  工作簿和工作表管理器   |  資源庫 （自動文字）   |  日期選擇器   |  合併工作表   |  加密/解密單元格   |  按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 （過濾粗體/斜體/刪除線...）...
前 15 個工具集:  12 文本 工具 (添加文本, 刪除字符，...）   |   50+ 圖表 類型 (甘特圖，...）   |   40+ 實用 公式 (根據生日計算年齡，...）   |   19 插入 工具 (插入二維碼, 從路徑插入圖片，...）   |   12 轉化 工具 (數字到單詞, 貨幣兌換，...）   |   7 合併與拆分 工具 (高級合併行, 分裂細胞，...）   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能，體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

  • 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
Comments (15)
No ratings yet. Be the first to rate!
Noname9
Noname9
This comment was minimized by the moderator on the site
Hello,This is a great tool. thank you. How can i apply this to multiple columns in the same tab? Could i apply it to restart sorting by date in a new cell of the same column? Would i just repaste the VBA code into the same window?
Thank you.
Reply
Report
0
0
MandyZhou
MandyZhou     Noname9
This comment was minimized by the moderator on the site
Hello Noname9,How are you? To achieve your goal by using VBA code is beyond my reach. But I do know how to use formulas to do the trick.Suppose we have two columns of dates, say A2:B7. How to sort these dates into a new column? Please do as follows.
First, we need to combine the two columns of dates into one column. Copy and paste the formula =INDEX($A$2:$B$7,INT((ROWS(D$2:D2)-1)/2)+1,MOD(ROWS(D$2:D2)-1,2)+1) into cell D2. And drag the fill handle down to combine all dates. Please see screenshot 1.
Then, we will sort the combined dates. Copy and paste the formula =INDEX($D$2:$D$13,MATCH(ROWS($D$2:D2),COUNTIF($D$2:$D$13,"<="&$D$2:$D$13),0)) into F2. And drag the fill handle down to sort all dates. Please see screenshot 2.
Hope it will help. Have a nice day.Sincerely,Mandy
View Attachments (2 / 5)
Reply
Report
0
0
Chris Steppins
Chris Steppins
This comment was minimized by the moderator on the site
Hello,What if i want to do this to multiple columns or even have anew start point in the same column? Do i just do a break and recopy the VBA code in that same window?
Thank you.
Reply
0
0
Richard Savage
Richard Savage
This comment was minimized by the moderator on the site
That VBA code is solid gold! Thank you! :-)
Reply
0
0
Ross
Ross
This comment was minimized by the moderator on the site
With the VBA code, I have copy and pasted the above but wish for the dates in column F to be the values by which the data is sorted. I've changed the range values to F2 and F3500 (the size of the spreadsheet where row 1 is titles), but it still sorts by the dates in column A. Can somebody help me please?
Reply
0
0
skyyang
skyyang     Ross
This comment was minimized by the moderator on the site
Hello, Ross,
When applying the code to column F, you should change some references to your need as below code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
On Error Resume Next
If Application.Intersect(Target, Application.Columns(6)) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Range("F1").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Please try, hope it can help you!
Reply
Report
0
0
Hector
Hector
This comment was minimized by the moderator on the site
Is there a particular formula to keep the cells following the sorted date? It would be nice to organize by date but keep the entire row of information. Any help would be much appreciated.
Reply
0
0
resmithjr1963@gmail.com
This comment was minimized by the moderator on the site
I mad a checkbook register and it works but I want to figure out how to make my entry’s to go into date order. Any help would be appreciated. I’m still learning excel.
Reply
Report
0
0
KC
KC
This comment was minimized by the moderator on the site
In addition to the duplicate dates, is there also a way to include multiple columns of data when it sorts? I need it to include multiple columns and sort them all together with the expiration dates.
Reply
0
0
Bo
Bo
This comment was minimized by the moderator on the site
how can I do this same sorting calculation but from newest date to oldest? Currently it is Oldest to Newest. Flipping the < sign isn't enough and beyond that I don't have a strong enough understanding of what it is doing. Also I think what may be happening is excel automatically works top to bottom causing difficulties.
Reply
0
0
skyyang
skyyang     Bo
This comment was minimized by the moderator on the site
Hello, Bo,

To auto sort the date from newest to oldest, you just need to change the <= to >= in the above formula as follows:
=INDEX($A$2:$A$15,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$15,">="&$A$2:$A$15),0))
After inserting this formula, please remember to press Ctrl + Shift + Enter keys together to get the correct result.
Please try it.
Reply
Report
0
0
Ryan
Ryan
This comment was minimized by the moderator on the site
What if there is a duplicate date in the list? And I want both numbers to show up.
Reply
0
0
skyyang
skyyang     Ryan
This comment was minimized by the moderator on the site
Hello, Ryan,

To sort the date with duplicate ones, you should apply the following formula:

=IFERROR(INDEX($A$2:$A$11,MATCH(ROWS($A$2:A2),COUNTIF($A$2:$A$11,"<="&$A$2:$A$11),0)),IF(ROWS($A$2:A2)<ROWS($A$2:$A$11),B3,""))

Please remember to press Shift + Ctrl + Enter keys together.

Hope it can help you, thank you!
View Attachments (1 / 5)
Reply
Report
0
0
Kashif Shahzad
Kashif Shahzad     skyyang
This comment was minimized by the moderator on the site
Awesome :) Working fine
Reply
0
0
UrLoser
UrLoser
This comment was minimized by the moderator on the site
U forgot to mention the formula is array and you need to ctrl+Shift+ enter. Luckily you had a screenshot or your page would be a waste of cyberspace
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations