看起来你遇到的问题主要来自两个核心点：未初始化的日期变量和日期条件的格式兼容问题，咱们一步步拆解解决：

问题根源分析 #

1. 未赋值的today变量：你声明了Dim today As Date但没有给它赋值，此时today的默认值是1899-12-30，这显然不是你想要的“今日”日期，后续筛选自然不符合预期。
2. 日期格式的识别冲突：即使你硬编码日期为"19/08/2021"，Excel自动筛选的条件字符串默认会按照美式日期格式（mm/dd/yyyy）解析，导致19/08/2021被识别为“19月8日”（不存在的日期），所以没有符合条件的行。而手动输入时Excel会根据你的系统区域设置解析日期，因此能正常显示结果。

修正后的优化代码 #

下面是改进后的宏，不仅解决了上述问题，还去掉了不稳定的Select/Activate操作，让代码更可靠：

Sub MS4_not_6_over_3m()
    ' 声明对象变量，避免依赖Select/Activate
    Dim wsData As Worksheet
    Dim tblGrafana As ListObject
    Dim today As Date
    
    ' 初始化变量：获取目标工作表和表格对象
    Set wsData = ThisWorkbook.Worksheets("Data")
    Set tblGrafana = wsData.ListObjects("GrafanaPMT")
    today = Date ' 获取当前系统日期（不含时间部分）
    
    ' 清除现有排序和筛选状态
    tblGrafana.Sort.SortFields.Clear
    If tblGrafana.ShowAutoFilter Then
        tblGrafana.AutoFilter.ShowAllData
    End If
    
    ' 筛选第5列等于"SEAL-RAN"的行
    tblGrafana.Range.AutoFilter Field:=5, Criteria1:="SEAL-RAN"
    
    ' 筛选第11列为今日及未来的日期
    ' 使用日期序列号（CLng转换），彻底规避区域格式冲突
    tblGrafana.Range.AutoFilter Field:=11, Criteria1:=">=" & CLng(today)
End Sub

关键改进说明 #

• 移除Select/Activate：直接引用工作表和表格对象，避免因工作表切换导致的错误，代码运行更稳定高效。
• 正确初始化日期：用Date函数获取当前系统日期，确保today是你需要的“今日”值。
• 使用日期序列号：通过CLng(today)将日期转换为Excel内部的日期序列号（比如2021-08-19对应的序列号是44437），这种方式完全不受系统区域设置影响，自动筛选能100%正确识别日期。

验证小技巧 #

如果你想确认日期是否正确传递，可以临时添加一行代码查看：

MsgBox "今日日期序列号：" & CLng(today) & vbCrLf & "对应日期：" & today

这样就能直观看到today的值是否符合预期。

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