如何在 Excel 中篩選出今天之前或之後的所有日期單元格？

在本文中，我將介紹如何在 Excel 工作表中篩選出今天之前或之後的所有日期單元格。

使用篩選功能篩選今天之前或之後的所有日期單元格

使用 VBA 程式碼篩選今天之前或之後的所有日期單元格

使用篩選功能篩選今天之前或之後的所有日期單元格

事實上，Excel 的篩選功能可以幫助您快速完成此任務，請按照以下步驟操作：

1. 選擇要篩選的日期列，然後點擊 「資料」 > 「篩選」，請參閱截圖：

2. 接著點擊下拉箭頭，然後選擇「 日期篩選」>「 之前」/「之後」（根據需要），請參閱截圖：

3在 自訂自動篩選 對話框中，點擊 日期提取器 按鈕，然後點擊 今天 按鈕於日期選擇器日曆中，請參閱截圖：

4. 然後點擊「 確定」關閉對話框，所有今天之前或之後的日期都已篩選出來，如下方截圖所示：

使用 VBA 程式碼篩選今天之前或之後的所有日期單元格

以下 VBA 程式碼也可以幫助您篩選工作表中當天之前或之後的所有日期。 請按照以下步驟操作：

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 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

3. 複製並貼上上述程式碼之一後，按下 F5 鍵執行該程式碼，隨後會彈出一個提示框，提醒您選擇要篩選的日期列，請參閱截圖：

4. 然後點擊「確定」按鈕，所有今天之前或之後的日期單元格將立即被篩選出來。