Excel VBA筛选最近5天条目代码运行无效问题求助

核心错误原因 #

你当前代码的问题出在变量引用方式错误：VBA不会自动解析包裹在双引号内的变量名，你写的">=fiveDaysAgo"和"<=todayDate"会被程序直接识别为固定文本，而不是读取对应变量的日期值，筛选条件完全不匹配实际日期数据，自然返回空结果。

修正后的代码 #

Dim todayDate As Date
Dim fiveDaysAgo As Date
todayDate = Date
fiveDaysAgo = DateAdd("d", -4, todayDate)

With ActiveSheet
    ' 提前关闭已有筛选避免冲突
    If .AutoFilterMode Then .AutoFilterMode = False
    ' 定位第6列（F列）的有效数据范围
    Dim filterRange As Range
    Set filterRange = .Range("A1", .Cells(Rows.Count, "F").End(xlUp))
    ' 拆分字符串和变量，转数值避免日期格式适配问题
    filterRange.AutoFilter Field:=6, _
        Criteria1:=">=" & CDbl(fiveDaysAgo), _
        Operator:=xlAnd, _
        Criteria2:="<=" & CDbl(todayDate)
End With

额外优化说明 #

• 移除了不稳定的Select/Selection操作，直接通过对象引用处理范围，避免选中位置变动导致逻辑异常
• 用xlUp定位有效数据范围，比原代码的xlDown更稳妥，不会被中间空行截断范围
• 用CDbl()将日期转为Excel内部存储的数值，避免不同地区的日期字符串格式不兼容导致筛选失效

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