VBA日期筛选宏执行后无数据显示，手动确认才生效求助

问题根源 #

宏执行后仅显示空白、手动确认筛选就正常，核心问题是VBA默认日期格式与Excel单元格的日期格式不兼容：

• VBA默认使用美式日期格式（mm/dd/yyyy），但你的单元格采用dd.mm.yyyy的点分隔格式
• 直接用字符串拼接日期条件（比如"<=" & Date + 7）会生成美式格式的字符串，和单元格的日期（或文本日期）无法匹配，导致筛选无有效结果，仅显示空白
• 手动确认时，Excel会自动适配单元格的日期格式重新解析条件，因此能正常显示数据

修正后的宏代码 #

Sub Filter_Date()
    Dim ws As Worksheet: Set ws = Sheets("Source Data")
    Dim rg As Range: Set rg = ws.Range("A12:AA2758")
    
    ' 清除原有筛选，避免叠加干扰
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 第25列：筛选2023年全年（排除2022-12-31），转为单元格匹配的dd.mm.yyyy格式
    rg.AutoFilter Field:=25, _
                  Criteria1:="<=" & Format(DateSerial(2023, 12, 30), "dd.mm.yyyy"), _
                  Operator:=xlAnd, _
                  Criteria2:="<>" & Format(DateSerial(2022, 12, 31), "dd.mm.yyyy")
    
    ' 第26列：筛选7天内的日期 或 "unconfirmed"
    rg.AutoFilter Field:=26, _
                  Criteria1:="<=" & Format(Date + 7, "dd.mm.yyyy"), _
                  Operator:=xlOr, _
                  Criteria2:="unconfirmed"
    
    ' 第27列：筛选5天前的日期
    rg.AutoFilter Field:=27, _
                  Criteria1:="<=" & Format(Date - 5, "dd.mm.yyyy")
End Sub

额外注意事项 #

• 确认目标列的日期是真正的日期类型：选中列→右键「设置单元格格式」，确认是「日期」格式而非「文本」；如果是文本格式，先用数据→分列功能转换为日期
• 每次执行宏前清除原有筛选，避免多次筛选叠加导致逻辑混乱
• 若单元格是标准日期类型，也可直接传递日期值（无需Format转换），比如将"<=" & Format(Date +7, "dd.mm.yyyy")改为"<=" & Date +7，让Excel自动处理格式匹配

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