Excel VBA Autofilter筛选过去12小时数据问题求助

原代码的核心问题是单独拆分日期和时间筛选，且用字符串格式做时间比较，导致跨天场景下逻辑混乱：比如早8点运行时，过去12小时是前一天20:00到当天8:00，原代码既漏掉前一天20:00-24:00的数据，又因字符串比较逻辑错误误包含不符合条件的时段。

以下是修正后的代码，同时解决跨天判断和数值比较的问题：

Sub Filter_Calc()
    ' Filter then calc
    Loading.Show False
    Application.Wait (Now + TimeValue("0:00:02"))
    
    Dim ws As Worksheet
    Dim cutoffTime As Date
    Set ws = Sheets("Megamation Data")
    cutoffTime = Now - TimeValue("12:00:00") ' 计算12小时前的完整日期时间
    
    ws.Range("$A$6:$J$250").AutoFilter ' 清除原有筛选
    
    ' 分两种场景处理跨天/非跨天筛选
    If TimeValue(cutoffTime) > TimeValue(Now) Then
        ' 跨天场景：比如当前是8:00，需筛选「前一天+时间≥20:00」或「当天+时间≤8:00」
        ws.Range("$A$6:$J$250").AutoFilter Field:=5, _
            Criteria1:=Format(cutoffTime, "m/dd/yy"), _
            Operator:=xlOr, _
            Criteria2:=Format(Now, "m/dd/yy")
        ' 对应两个日期的时间条件
        ws.Range("$A$6:$J$250").AutoFilter Field:=4, _
            Criteria1:=Array(">=" & Format(cutoffTime, "hh:mm:ss"), "<=" & Format(Now, "hh:mm:ss")), _
            Operator:=xlFilterValues
    Else
        ' 非跨天场景：比如当前14:00，筛选「当天+时间≥2:00」
        ws.Range("$A$6:$J$250").AutoFilter Field:=5, Criteria1:=Format(Now, "m/dd/yy")
        ws.Range("$A$6:$J$250").AutoFilter Field:=4, Criteria1:=">=" & Format(cutoffTime, "hh:mm:ss")
    End If
    
    Sheets("Rate Estimator").Select
    Application.Calculation = xlCalculationAutomatic
    Application.Wait (Now + TimeValue("0:00:02"))
    Application.Calculation = xlCalculationManual
    Loading.Hide
End Sub

关键修正说明：

• 直接计算完整的截止日期时间（cutoffTime），避免拆分日期/时间时的逻辑漏洞
• 区分跨天/非跨天场景，精准匹配两种时段的筛选规则
• 使用原生时间数值比较，彻底解决字符串格式导致的比较错误
• 先清除原有筛选，避免残留条件干扰结果

注：请确认代码中Field:=4对应时间列、Field:=5对应日期列，与你的数据集列位一致。

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