自动filter范围不包括两个date

我有下面的代码，在L1中，我想select除昨天和今天之外的所有date，在M1中取消select所有date。 我能够在M1中做到这一点，但无法在L1中执行此操作。

Range("L1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=12, Operator:= _ xlFilterValues, Criteria2:=Array(1, "2/11/2016", 1, "3/31/2016", 2, "4/5/2016", 2, _ "4/6/2016", 2, "4/7/2016", 2, "4/8/2016", 2, "4/11/2016", 2, "4/12/2016", 2, "4/13/2016", _ 2, "4/14/2016", 2, "4/15/2016", 2, "4/18/2016", 2, "4/19/2016", 2, "4/20/2016", 2, _ "4/21/2016", 2, "4/22/2016", 2, "4/25/2016", 0, "10/28/2015") Range("M1").Select ActiveSheet.Range("$A$1:$U$3804").AutoFilter Field:=13, Criteria1:="=" 

从用户的评论：

我有从列A到U的数据。我有许多标准可供select。 L列只有date。 我想要实现的是取消select昨天和今天的date，并select所有其他date。 而已。 我的任务将在那里完成

Answer 1

^{L列只有date。 我想要实现的是取消select昨天和今天的date，并select所有其他date。 而已。}

过滤所有不是今天或昨天的date。

 Option Explicit Sub notTodayOrYesterday() With Worksheets("Sheet5") If .AutoFilterMode Then .AutoFilterMode = False With .Cells(1, 1).CurrentRegion .AutoFilter Field:=12, Criteria1:=Format(Date, "\<\>mm/dd/yyyy"), _ Operator:=xlAnd, Criteria2:=Format(Date - 1, "\<\>mm/dd/yyyy") End With If .AutoFilterMode Then .AutoFilterMode = False End With End Sub 

请注意，这是在具有MDY区域设置的计算机系统上进行testing的。 如果它不适用于您，而您的系统是DMY，请更改date格式。

^{在应用Autofilter之前}

^{应用Autofilter之后（End Sub之前）}