如何在Excel中今天之前或之后过滤所有日期单元格？

在本文中，我将讨论如何过滤Excel工作表中今天之前或之后的所有日期单元格。

使用过滤器功能过滤今天之前或之后的所有日期单元格

使用VBA代码过滤今天之前或之后的所有日期单元格

使用过滤器功能过滤今天之前或之后的所有日期单元格

实际上，Excel中的筛选器功能可以帮助您尽快解决此任务，请执行以下操作：

1。 选择您要筛选的日期列，然后单击 时间 > 筛选器，请参见屏幕截图：

2。 然后单击下拉箭头，然后选择 日期过滤器 > 申请早于 / 后 根据需要，请参见屏幕截图：

3。 在 自定义自动筛选 对话框，单击 日期选择器 按钮，然后单击 的旅程 日期选择器日历中的按钮，请参见screesnhot：

4。 然后点击 OK 关闭对话框，并过滤掉今天之前或之后的所有日期，如下所示的屏幕截图：

使用VBA代码过滤今天之前或之后的所有日期单元格

以下VBA代码还可以帮助您过滤工作表中当天之前或之后的所有日期。 请执行以下步骤：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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。 然后点击 OK 按钮，将立即滤除今天之前或之后的所有日期单元格。