VBA表格日期筛选问题求助：<=指定日期过滤无效

问题根因 #

你的其他筛选逻辑都正常，唯独日期筛选失效，核心问题是VBA直接拼接日期变量和运算符时，Excel无法正确识别日期格式——要么是MonthNumber变量类型不对（比如是文本而非日期型），要么是系统区域设置导致日期字符串解析错误。

修复代码及说明 #

直接调整日期筛选的逻辑，同时优化代码去掉不必要的Activate操作（激活工作表容易引发不稳定问题）：

Sub FilterRawDataTbl(HomeCode, MonthNumber, CompanyName)
    Dim wsRaw As Worksheet
    Set wsRaw = ThisWorkbook.Sheets("Raw Data")
    
    ' 清除原有筛选
    On Error Resume Next
    wsRaw.rawData.AutoFilter.ShowAllData
    On Error GoTo 0
    
    ' 筛选HomeCode
    wsRaw.rawData.Range.AutoFilter Field:=1, Criteria1:=HomeCode
      
    ' 模糊筛选CompanyName
    wsRaw.rawData.Range.AutoFilter Field:=4, Criteria1:="=*" & CompanyName & "*"
    
    ' 修复日期筛选：先转成标准日期类型，再用Excel内部日期序列号（最稳定）
    Dim targetDate As Date
    targetDate = CDate(MonthNumber) ' 强制转换为日期，避免类型错误
    
    ' 用Excel内部数字格式传条件，完全不受区域格式影响
    wsRaw.rawData.Range.AutoFilter Field:=2, Criteria1:="<=" & CLng(targetDate)
    
    ' 如果上面的方式还是不行，试试统一日期格式（适配部分特殊区域设置）
    ' wsRaw.rawData.Range.AutoFilter Field:=2, Criteria1:="<=" & Format(targetDate, "yyyy-mm-dd")
End Sub

额外检查点 #

• 确认rawData是正确的表格对象（ListObject），如果是普通单元格区域，要改成wsRaw.Range("你的区域地址")
• 检查第2列（Field:=2）的单元格格式确实是「日期」，不是文本格式
• 确保MonthNumber传入的是合法日期值（比如#2024-05-31#或者日期型变量）

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