如何在 Excel 中篩選出所有早於或晚於今天的日期儲存格？

作者Xiaoyang修改日期2025-08-07

本文將逐步說明如何在 Excel 工作表中篩選出所有早於或晚於今天的日期儲存格。管理與分析具時效性的資料是常見需求，尤其在處理日誌、排程、專案時程或追蹤截止日期時更顯重要。透過高效篩選日期，您能迅速聚焦於當下關鍵的記錄，大幅提升工作流程效率與決策準確度。

💡 快速導覽：
➤ 使用篩選功能篩選所有早於或晚於今天的日期儲存格
➤ 使用 VBA 程式碼篩選所有早於或晚於今天的日期儲存格
➤ 使用 Excel 公式助手欄位篩選所有早於或晚於今天的日期儲存格

使用篩選功能篩選所有早於或晚於今天的日期儲存格

Excel 內建的篩選功能提供直觀的方式，讓您快速顯示早於或晚於今天的日期。此方法無需使用公式或 VBA 程式碼，非常適合希望迅速篩選現有資料集，同時避免使用公式或 VBA 的使用者。

1. 選取包含日期的欄位，接著前往資料索引標籤，並在功能區上按一下篩選。此時每欄標題旁應出現篩選箭頭，如下圖所示：

啟用篩選功能的螢幕截圖

2. 按一下日期欄位標題中的下拉箭頭，將滑鼠游標移至日期篩選，再依需求選擇早於或晚於。例如，選取早於即可快速找出早於今天的日期！

指定篩選條件的螢幕截圖

3. 在自訂自動篩選對話方塊中，點擊日期提取 日曆圖示的螢幕截圖圖示開啟行事曆，再點擊今天按鈕，即可快速將日期設為今日！

在日曆中選取今天日期的螢幕截圖

4. 按一下確定，Excel 將根據您指定的條件（早於或晚於今天）篩選資料，僅顯示符合條件的列，如下圖所示：

顯示原始資料與篩選後資料的螢幕截圖

此方法適用於中等規模的表格，操作簡單，無需進階技能；然而，一旦資料更新或篩選條件變更，便需手動重複整個流程。

⚠️ 注意：若您的日期欄位包含文字，或未設定為正確的 Excel 日期格式，則日期篩選中的篩選選項可能不會顯示。

使用 VBA 程式碼篩選所有早於或晚於今天的日期儲存格

若您需要反覆篩選資料，或希望針對大型資料集自動化此流程，VBA 程式碼是極其實用的解決方案！此方法特別適合分析師、報表自動化人員，或任何需定期依今日日期篩選資料的工作流程。透過 VBA，您只需一鍵即可套用篩選，徹底告別重複的手動操作！請注意：使用 VBA 時，必須將活頁簿儲存為支援巨集的格式（）.xlsm），部分使用者可能因巨集安全性設定而無法執行。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在編輯器中，點選插入> 模組，並將下列任一段程式碼貼上至模組視窗中。

VBA 程式碼：篩選所有早於今天的日期儲存格：

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

VBA 程式碼：篩選所有晚於今天的日期儲存格：

Sub FilterDateAfterToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3. 複製並貼上上述任一段程式碼後，按下 F5 鍵執行。系統將跳出提示方塊，讓您選取包含日期的範圍或欄位。請務必僅選取相關資料範圍，並確保日期為正確的 Excel 日期格式，以避免程式碼出錯。

執行 VBA 程式碼後選取日期範圍的螢幕截圖

4. 按一下確定執行篩選。符合條件（早於或晚於今天，視所選程式碼而定）的列將自動顯示，其餘則隱藏。

⚠️ 注意：基於 VBA 的篩選能有效減少手動操作，無論是簡單或進階需求都適用。然而，在執行 VBA 前，務必先儲存資料並仔細確認所選區域，以免誤刪重要列。若發生錯誤，請檢查所有日期欄位是否均為有效日期——非日期內容可能導致巨集異常運作。為提升使用便利性，建議將巨集指派給按鈕，實現一鍵快速篩選！

使用 Excel 公式助手欄位篩選所有早於或晚於今天的日期儲存格

另一種靈活的解決方案是在資料旁新增輔助欄位，並運用 Excel 公式標記早於或晚於今天的日期。此方法在定義與調整篩選條件上極具彈性，特別適用於動態表格、複雜篩選，或需要對標記資料進行進一步分析的情境。有別於原地篩選，輔助欄位能視覺化標示特定列，再搭配 Excel 的篩選功能，實現更高度自訂的篩選控制。這項技巧操作簡便，非常適合用於追蹤截止日期、逾期任務，或監控即將到來的活動。

1. 在日期欄位旁插入新欄位。假設您的日期位於 A 欄，從 A2 儲存格開始。請在新輔助欄位（假設為）B 欄）的 B2 儲存格中輸入以下公式，以標記早於今天的日期：

=A2<TODAY()

此公式對早於今天的日期會傳回 TRUE，其餘情況則傳回 FALSE。

若要標記晚於今天的日期（即未來日期），請在 B2 儲存格中使用此版本公式：

=A2>TODAY()

2. 將公式向下拖曳至輔助欄位的所有列，即可評估整個資料集。若資料從第 2 列開始，只需選取 B2，將游標移至右下角，待出現黑色小加號後雙擊，便能自動填滿所有列！

3. 現在輔助欄位已針對每列顯示 TRUE 或 FALSE，請選取新輔助欄位的標題，在資料索引標籤中啟用篩選（若尚未啟用）。點擊下拉箭頭並篩選 TRUE，即可立即檢視符合條件的列（早於或晚於今天，視所用公式而定）！

💡 提示：為避免混淆，建議依據篩選邏輯為輔助欄命名，例如「Before_Today」或「After_Today」。若需依特定條件篩選（例如僅篩選移動時間範圍內的日期），請依實際需求調整公式。同時務必確認日期欄位僅包含有效的 Excel 日期，因空白或非日期內容可能影響 TRUE/FALSE 的結果。

ℹ️ 補充說明：

• 此公式方法特別適合用於檢視、排序或進一步分析資料，同時完整保留原始資訊。雖然需額外使用一欄，但其透明度與可重複使用性通常遠勝這點微小不便，並能靈活搭配條件格式與彙總計算，依據 TRUE/FALSE 值進行動態處理。

• 若您的表格經常更新，只需在新增列時重新套用或延伸公式即可。若排序或篩選結果未如預期，請再次檢查日期欄位是否含有空白或格式不一致的內容，並視需要重新計算輔助公式（公式> 立即計算，前提是計算模式已設為手動）。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多