如何使用具有 2 个条件的 VBA 过滤日期列？

【问题标题】：How to filter date column using VBA with 2 criteria?如何使用具有 2 个条件的 VBA 过滤日期列？
【发布时间】：2019-02-25 02:19:11
【问题描述】：

我的表格中有一个包含空格和日期的列。如何在 VBA 中编写排除未来空格和日期的选项？

【问题讨论】：

标签： vba date filter

【解决方案1】：

这应该过滤掉空白和未来的日期。

请注意，它只会从您指定为 Field 的列中过滤掉这些（基于列号），因此如果您想隐藏所有空白而不是仅隐藏一列的空白，您可以重复该行并调整根据需要（或使用循环）。

Sub FilterBlankAndDates()

    With sheets("Sheet1").ListObjects("Table1").Range
        .AutoFilter Field:=1, Criteria1:="<>"
        .AutoFilter Field:=2, Criteria1:="<=" & Date
    End With

End Sub

【讨论】：