使用VBA筛选日期列结果异常，求助排查原因

这问题我碰过好多次，核心是Excel的AutoFilter对日期时间的筛选逻辑有两个容易踩的坑，正好你都遇上了：

1. 变量类型错误导致时间丢失 #

你用Long类型来存储日期时间，但Excel里的日期时间本质是浮点数：整数部分代表日期，小数部分代表时间（比如5/20/18 1:51 PM对应的数值是43240.5770833333）。用Long会直接截断小数部分，把5/20/18 13:51变成5/20/18 00:00:00，这已经不符合你设置的起始时间要求了。

2. 直接拼接数值字符串导致AutoFilter识别失败 #

就算你变量类型对了，直接把数值拼进Criteria字符串里，Excel的AutoFilter有时候会把这个数字当成文本处理，而不是日期数值。你的Q列是日期格式，文本和日期数值的比较逻辑完全不一样，自然筛选不出匹配的结果。

修正后的代码（两种可选方案） #

方案一：用Double类型保留完整日期时间数值 #

这种方法最稳妥，直接用Excel原生的日期数值进行筛选：

Public Sub MyFilter()
    Dim dblStart As Double, dblEnd As Double
    '用CDbl确保获取完整的日期时间浮点数
    dblStart = CDbl(Range("b1").Value)
    dblEnd = CDbl(Range("b2").Value)
    
    Range("q:q").AutoFilter Field:=1, _
        Criteria1:=">=" & dblStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & dblEnd
End Sub

方案二：转成Excel识别的日期字符串格式 #

如果你的区域设置和数据格式匹配，也可以用格式化后的字符串来筛选（注意要和Q列的日期显示格式一致）：

Public Sub MyFilter()
    Dim strStart As String, strEnd As String
    '按照你的数据格式（mm/dd/yy hh:mm AM/PM）来格式化
    strStart = Format(Range("b1").Value, "mm/dd/yy hh:mm AM/PM")
    strEnd = Format(Range("b2").Value, "mm/dd/yy hh:mm AM/PM")
    
    Range("q:q").AutoFilter Field:=1, _
        Criteria1:=">=" & strStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & strEnd
End Sub

额外检查点 #

最后确认下Q列的单元格是日期时间格式，而不是文本格式。如果是文本，先选中Q列，右键设置单元格格式为「日期」→「带时间的格式」，再运行筛选代码。

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