Excel VBA日期变量替换AutoFilter报错问题求助

问题原因 #

你遇到的Run-time error '1004'错误，核心问题是变量写法里给日期额外添加了多余的双引号，导致传递给AutoFilter的日期格式不符合要求。固定日期写法中"01-feb-2023"是纯日期字符串，而变量写法里"""" & Main_Date & """"会生成带嵌套引号的字符串（比如"""01-feb-2023"""），Excel筛选器无法识别这种格式。

修正方案 #

方案1：直接使用正确格式的日期字符串变量 #

如果Main_Date已经是dd-mmm-yyyy格式的字符串，直接传入数组即可，不需要额外加引号：

' 修正后的变量写法
ActiveSheet.Range("$A$3:$F$1706").AutoFilter Field:=5, Operator:=xlFilterValues, Criteria2:=Array(2, Main_Date)

方案2：格式化Date类型变量 #

如果Main_Date是VBA的Date类型变量，需要先转换为Excel筛选器能识别的字符串格式：

Dim Main_Date As Date
Main_Date = DateSerial(2023, 2, 1) ' 示例：赋值为2023年2月1日
Dim formattedDate As String
formattedDate = Format(Main_Date, "dd-mmm-yyyy") ' 转换为筛选器兼容的格式

' 执行筛选
ActiveSheet.Range("$A$3:$F$1706").AutoFilter Field:=5, Operator:=xlFilterValues, Criteria2:=Array(2, formattedDate)

关键注意点 #

• AutoFilter的Criteria2数组中，日期字符串不需要额外包裹双引号，直接传递纯日期格式字符串即可。
• 优先使用dd-mmm-yyyy这种通用日期格式，避免因系统区域设置差异导致筛选器无法识别日期。

内容的提问来源于stack exchange，提问作者CR Anandan