如何根据日期自动隐藏 Excel 中的列？

假设我在工作表中有一组数据，现在我想根据特定日期自动隐藏列。例如，当我在单元格中输入日期 2016/5/16 时，我想立即隐藏日期小于该特定日期的列，如下图所示。本文将介绍一些解决此问题的小技巧。

使用 VBA 代码根据特定日期自动隐藏列

使用 Kutools for Excel 根据特定日期隐藏列

使用 VBA 代码根据特定日期自动隐藏列

要完成此任务，以下 VBA 代码可能会对您有所帮助，请按照以下步骤操作：

1. 选择要按日期隐藏的工作表标签，右键单击并从上下文菜单中选择“ 查看代码”以进入 Microsoft Visual Basic for Applications 窗口，然后复制并将以下代码粘贴到模块中：

VBA 代码：根据特定日期自动隐藏列：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xCell As Range
    If Target.Address <> Range("K4").Address Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In Range("A1:I1")
        xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
    Next
    Application.ScreenUpdating = True
End Sub

2. 然后保存并关闭此代码，返回到工作表，现在，当您在单元格 K4 中输入日期时，日期早于指定日期的列将自动隐藏。

注意：在上述代码中，K4 是您希望基于其隐藏列的特定日期单元格，A1:I1 是包含所用日期的行单元格。

使用 Kutools for Excel 根据特定日期隐藏列

如果您不熟悉代码，这里有一个方便的工具——Kutools for Excel，通过它的“选择指定单元格”功能，您可以轻松完成此任务。

安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择日期标题，然后点击 Kutools > 选择 > 选择指定单元格，参见截图：

2. 在弹出的“选择指定单元格”对话框中，从“选择类型”中选择“整列”，然后从“ 指定类型”下拉列表中选择条件（如“小于”），并在旁边的文本框中输入您希望基于其隐藏列的日期，参见截图：

3. 然后点击“ 确定”按钮，日期小于 2016/5/16 的特定列将立即被选中，参见截图：

4. 然后右键单击任意一个选定的列标题，并选择“隐藏”以根据需要隐藏这些选定的列。参见截图：