VBA Autofilter宏3个筛选条件出现Expect Expression错误的解决请求

错误原因 #

1. AutoFilter语法限制：VBA的AutoFilter方法使用xlOr运算符时，仅支持最多2个筛选条件，直接添加Criteria3属于语法错误，这就是触发「Expect Expression」的核心原因。
2. 变量未声明：Aftersdate变量没有提前声明，不符合VBA的最佳实践，也可能引发潜在问题。
3. 日期格式隐患：直接将日期变量拼接为字符串筛选，可能因系统区域设置（如中文/英文日期格式差异）导致筛选匹配失败。

优化后的代码 #

使用xlFilterValues运算符，通过数组传递多个日期条件，这是支持多值筛选的标准写法：

Option Explicit ' 强制变量声明，避免未声明变量的问题

Sub FilterNextThreeDays()
    Dim ws As Worksheet
    Dim lRow As Long
    Dim rng As Range
    Dim TodaysDate As Date
    Dim TomorrowsDate As Date
    Dim AftersDate As Date ' 修正变量名拼写，统一大小写
    Dim filterDates As Variant ' 存储筛选日期的数组

    ' 计算目标日期
    TodaysDate = Date
    TomorrowsDate = DateAdd("d", 1, Date)
    AftersDate = DateAdd("d", 2, Date)
    
    ' 初始化工作表（增加存在性检查，避免报错）
    On Error Resume Next
    Set ws = ThisWorkbook.Worksheets("STG_SB_OPICS_DTL")
    On Error GoTo 0
    If ws Is Nothing Then
        MsgBox "工作表STG_SB_OPICS_DTL不存在！", vbExclamation
        Exit Sub
    End If
    
    With ws
        ' 移除现有筛选
        .AutoFilterMode = False
        
        ' 获取D列最后一行（处理空表情况）
        lRow = .Range("D" & .Rows.Count).End(xlUp).Row
        If lRow < 3 Then ' 数据起始行是D3，若小于3说明无有效数据
            MsgBox "D列无有效数据可筛选！", vbInformation
            Exit Sub
        End If
        
        ' 设置筛选区域
        Set rng = .Range("D3:D" & lRow)
        
        ' 构建筛选日期数组，转成Variant类型适配xlFilterValues
        filterDates = Array(CDbl(TodaysDate), CDbl(TomorrowsDate), CDbl(AftersDate))
        
        ' 执行筛选
        rng.AutoFilter field:=1, Criteria1:=filterDates, Operator:=xlFilterValues
    End With
End Sub

关键优化点 #

• 加入Option Explicit强制变量声明，避免低级错误。
• 使用xlFilterValues替代xlOr，支持任意数量的筛选值。
• 将日期转换为双精度数值（CDbl），避免区域格式差异导致的筛选失效。
• 增加工作表存在性、数据有效性检查，提升代码健壮性。
• 修正变量名拼写（Aftersdate→AftersDate），统一代码风格。

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