VBA按日期间隔筛选Excel表格无匹配结果问题咨询

核心问题原因 #

VBA的AutoFilter方法对日期类参数存在区域格式兼容问题：即使系统本地日期格式为DD/MM/YYYY，VBA内部处理筛选条件的字符串时会默认按美国格式MM/DD/YYYY解析，当日期的日部分大于12时，会被识别为无效日期，最终导致无匹配结果。

修复方案 #

方案1：使用日期序列号（最稳妥，无格式兼容问题） #

Excel中日期本质是从1900年开始计数的数字序列号，直接传入数值可规避所有格式解析问题：

Dim Date1 As Date
Dim Date2 As Date

Date1 = CDate("15/09/2021")
Date2 = CDate("17/10/2021")

' 先清除已有筛选，避免条件叠加
ActiveSheet.ListObjects("Table5").AutoFilter.ShowAllData

ActiveSheet.ListObjects("Table5").Range.AutoFilter Field:=4, _
  Criteria1:=">=" & CDbl(Date1), _
  Operator:=xlAnd, _
  Criteria2:="<=" & CDbl(Date2)

方案2：强制使用通用日期格式 #

将日期格式化为YYYY-MM-DD的无歧义通用格式传入：

ActiveSheet.ListObjects("Table5").Range.AutoFilter Field:=4, _
  Criteria1:=">=" & Format(Date1, "yyyy-mm-dd"), _
  Operator:=xlAnd, _
  Criteria2:="<=" & Format(Date2, "yyyy-mm-dd")

其他排查方向 #

• 检查待筛选列的日期是否携带隐藏的时间部分：如果单元格实际值为2021/10/17 16:00，<=17/10/2021会过滤掉该条记录，可将Date2调整为Date2 + 1 - TimeSerial(0,0,1)覆盖当天所有时间
• 确认筛选列序号正确：Field参数从表格最左列开始计数，需和实际待筛选列的位置匹配
• 确认表格未开启其他字段的筛选，避免多条件叠加导致无匹配

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