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

Question

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

Answer 1

这应该过滤出空白和将来的日期。

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

Sub FilterBlankAndDates()

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

End Sub