如何在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. 然后点击 确定 按钮，所有今天之前或之后的日期单元格将立即被筛选出来。