Excel VBA使用AutoFilter按日期范围筛选时出现1004错误求助

错误原因分析 #

• Operator参数使用错误：你代码里将xlAnd用引号包裹成了字符串"xlAnd"，但VBA要求此处必须使用内置常量xlAnd（不带引号）。
• 筛选范围未包含表头：AutoFilter方法要求筛选范围必须包含表头行，你直接从A2开始选取范围，Excel无法识别列标识，从而触发1004错误。

正确的单步筛选代码 #

假设A1是日期列的表头，修改后的代码如下：

' 清除残留筛选（可选，避免之前的筛选影响结果）
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False

' 包含表头的范围执行多条件筛选
Range("A1:A1255").AutoFilter Field:=1, _
    Criteria1:=">10/1/2022", _
    Operator:=xlAnd, _
    Criteria2:="<12/1/2022"

避免日期格式冲突的优化方案 #

如果系统日期格式与代码中的10/1/2022不匹配，可能导致筛选失效，建议用DateSerial生成标准日期：

Range("A1:A1255").AutoFilter Field:=1, _
    Criteria1:=">" & DateSerial(2022, 10, 1), _
    Operator:=xlAnd, _
    Criteria2:="<" & DateSerial(2022, 12, 1)

连续筛选无效的说明 #

连续调用AutoFilter时，第二次调用会自动清除之前的筛选状态，重新应用新条件，因此无法实现叠加筛选。必须通过单步多条件筛选（如上述代码）来完成日期范围筛选。

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