如何使用带2个条件的VBA筛选日期列?

如何使用带2个条件的VBA筛选日期列?,vba,date,filter,Vba,Date,Filter,表中有一列包含空格和日期。如何在VBA中编写选项以排除空格和将来的日期?这将过滤掉空格和将来的日期 请注意,它只会从指定为字段的列中筛选出这些字段(基于列编号),因此如果要隐藏所有空格而不是一列空格,可以重复该行并根据需要进行调整(或使用循环) 子过滤器blankanddates() 带有图纸(“Sheet1”).ListObjects(“Table1”).Range .自动筛选字段:=1,标准1:=“” .自动筛选字段:=2,标准1:=“ Sub FilterBlankAndDates()

表中有一列包含空格和日期。如何在VBA中编写选项以排除空格和将来的日期?

这将过滤掉空格和将来的日期

请注意,它只会从指定为
字段的列中筛选出这些字段(基于列编号),因此如果要隐藏所有空格而不是一列空格,可以重复该行并根据需要进行调整(或使用循环)

子过滤器blankanddates()
带有图纸(“Sheet1”).ListObjects(“Table1”).Range
.自动筛选字段:=1,标准1:=“”
.自动筛选字段:=2,标准1:=“
Sub FilterBlankAndDates()

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

End Sub