excel vba autofilter不过滤date

我有一列date，这是一个数据库的输出。 有一个macros在这个date进行过滤，这意味着显示所有date比从当前date14天以前，不包括空值。 应用时的filter过滤整个工作表并不显示任何内容。 当我脱下14的时候，我得到了date，我甚至尝试过使用alt a，e，f来确保列是正确的格式，但没有运气。

这是我的代码片段：

ActiveSheet.UsedRange.AutoFilter Field:=34, Criteria:="<>NULL", _ Operator:=xlAnd, Criteria2:="<" & Now()-14 

我已经尝试将criteria2更改为"<" & Date - 14 & "# 00:00:00 AM#"

请帮忙

Answer 1

尝试这个

更改Criteria:="<>NULL"到Criteria1:="<>NULL"

跟进

代码不工作，因为标题不在第1行。一旦确定了确切的范围，它开始工作。

 Option Explicit Sub Sample() Dim lRow As Long lRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.AutoFilterMode = False ActiveSheet.Range("$A$2:$BV$" & lRow).AutoFilter Field:=34, Criteria1:="<>NULL" _ , Operator:=xlAnd, Criteria2:="<" & Format(Date - 14, "0") End Sub