取消当前月份以外的所有date（VBA EXCEL AUTOFILTER）

我目前正在尝试使用VBA取消select当前月份我知道如何使用VBAselect当前月份（代码如下），但是我不知道如何取消当前月份的select，而将其他月份保留。

Sheets("Sheet1").Range("d1:d6").AutoFilter Field:=4, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic 

Answer 1

尝试这个：

 Sheets("Sheet1").Range("d1:d20").AutoFilter Field:=1, Operator:=xlOr, _ Criteria1:="<=" & Application.EoMonth(Date, -1), _ Criteria2:=">" & Application.EoMonth(Date, 0) 

注意：

• EoMonth(Date, 0)表示当月的最后一天

• EoMonth(Date, -1)表示上个月的最后一天

Answer 2

也许你首先尝试取消selectfilter

 Cells.AutoFilter 

然后你select所有其他月份