VBA中如何使用AutoFilter筛选列内今日起未来1周内的日期

该日期筛选需求完全可以通过VBA AutoFilter方法实现，无需借助其他额外工具或自定义函数。

利用AutoFilter的双条件区间筛选能力，搭配xlAnd逻辑运算符，将筛选区间的上下限分别设为今日日期、今日+7天的日期，指定目标列参数为53即可命中符合要求的日期行。

With ActiveSheet.ListObjects("Table22").Range
    ' 清除表内原有筛选条件，避免旧规则干扰结果
    .AutoFilter
    ' 对第53列筛选今日起未来7天内的日期
    .AutoFilter _
        Field:=53, _
        Criteria1:=">=" & CLng(Date), _
        Operator:=xlAnd, _
        Criteria2:="<=" & CLng(Date + 7)
End With

• 代码中使用CLng()将日期转换为Excel内部存储的日期序列值传入筛选条件，可避免因操作系统区域日期格式差异导致的条件识别错误，兼容性远高于直接拼接日期字符串的写法
• 若业务规则不需要包含今日当日的数据，可将Criteria1的判断符从>=修改为>；若不需要包含第7天当日的数据，可将Criteria2的判断符从<=修改为<
• 代码开头调用无参数的.AutoFilter是为了重置表的筛选状态，如果需要保留其他列已设置的筛选规则，可删除该行代码

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