VBA Excel自动筛选当前月份之前的任何date

我正在尝试为当前月份之前的任何date过滤date列。 所以有如下类似的东西：

ActiveSheet.Range("$A:$BF").AutoFilter Field:=12, Criteria1:= _ xlFilterYearToDate, Operator:=xlFilterDynamic 

但不包括它运行的当前月份中的任何date。

编辑：所以任何在当前月份之前的date。 如果现在应用filter，则只会显示2015年1月份的date。如果在8月份应用，则仅在2015年1月至7月之间显示可见date。

Answer 1

这应该为你工作：

 Dim dtStart As Date Dim dtFinal As Date dtStart = CDate(Evaluate("DATE(YEAR(NOW()),1,1)")) dtFinal = CDate(Evaluate("EOMONTH(TODAY(),-1)")) ActiveSheet.Range("A:BF").AutoFilter 12, ">=" & dtStart, xlAnd, "<=" & dtFinal