如何在 Excel 中根据今天的日期隐藏行？

假设您在工作表中有一个水果表，如下方截图所示，您需要隐藏表格中当前日期（2016年6月14日）之前或之后的所有行。本文为您提供了三种方法。

使用筛选功能根据今天的日期隐藏行
使用 VBA 代码根据今天的日期隐藏行
使用 Kutools for Excel 根据今天的日期隐藏行

使用筛选功能根据今天的日期隐藏行

通过 Excel 中的筛选功能，您可以轻松筛选出所有需要的行，并根据今天的日期隐藏所有不需要的行。

1. 在表格中，请点击“日期”列上的下拉按钮，然后点击 筛选日期 > 早于 或 晚于。参见截图：

注意：

2. 在 自定义自动筛选 对话框中，点击 日期提取 按钮，在“晚于”框旁边，然后点击日历中的 今天 按钮。然后点击 确定 按钮。

然后，今天日期之前的所有行都会立即被隐藏。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用 VBA 代码根据今天的日期隐藏行

您还可以应用 VBA 代码来根据今天的日期在 Excel 中隐藏行。请按照以下步骤操作。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后将以下 VBA 代码复制并粘贴到窗口中。

VBA 代码：在 Excel 中根据今天的日期隐藏行

Private Sub Hidebtn_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Value < Now Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3. 按下 F5 键，在弹出的 Kutools for Excel 对话框中，选择日期范围列，然后点击 确定 按钮。

现在，今天日期之前的所有行都会立即被隐藏。

注意：

Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub

使用 Kutools for Excel 根据今天的日期隐藏行

借助 Kutools for Excel 的 选择指定单元格 功能，您可以轻松选择今天日期之前或之后的所有行，然后手动隐藏它们。

1. 选择表格中的日期列表，然后点击 Kutools > 选择 > 选择指定单元格。

2. 在 选择指定单元格 对话框中，在 选择类型 部分选择 整行 选项，并在第一个 指定类型 下拉列表中选择 小于 或 大于 选项（这里我选择 小于 选项），然后在下一个文本框中输入今天的日期。最后点击 确定 按钮。参见截图：

3. 然后会弹出一个对话框，告诉您选择了多少行，请点击 确定 按钮。您可以看到今天日期之前的所有行都被选中了，如下方截图所示。

4. 右键单击所选区域，然后在右键菜单中点击 隐藏 以隐藏今天日期之前的所有选定行。

相关文章：

• 如何在 Excel 中隐藏复选框当行被隐藏时？
• 如何在 Excel 中通过加号或减号隐藏/取消隐藏行或列？