看起来你的问题核心在于动态数据范围的正确获取和日期格式的兼容性处理，结合你描述的「固定范围正常、动态范围失效」的现象，我们来一步步解决：

问题根源分析 #

1. 固定范围vs动态范围：你用$A$1:$AL$10000时，范围包含了大量空白行，当筛选条件生效时，空白行（无日期数据）会被隐藏；如果实际数据行在10000行以内但有很多中间空白，还可能导致有效数据被误处理，新增数据超过10000行时更是完全没被纳入筛选范围。
2. 日期格式兼容性：直接用字符串"01/01/2017"作为筛选条件，会受系统区域设置影响（比如部分区域是MM/DD/YYYY，部分是DD/MM/YYYY），导致VBA解析的日期和单元格实际日期不匹配，最终没有符合条件的数据，所以全部隐藏。

解决方案 #

我们修改代码，实现动态获取有效数据范围+安全的日期条件+避免Select/Activate的稳定写法：

修改后的完整代码 #

Sub Auto_Filter()
    ' Auto_Filter Macro
    ' 筛选2017-2018年数据并按日期降序排序
    ' Keyboard Shortcut: Ctrl+Shift+A
    
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    ' 定义目标工作表，避免使用Select
    Set ws = ThisWorkbook.Worksheets("Paste Data")
    
    ' 关闭屏幕刷新，提升运行速度并避免界面闪烁
    Application.ScreenUpdating = False
    
    ' 清除之前的筛选状态（如果存在）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 获取日期列（I列）的最后一行，确保只包含有实际数据的行
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    ' 定义完整的有效数据范围：从A1到AL列最后一行
    Set dataRange = ws.Range("A1:AL" & lastRow)
    
    ' 使用DateSerial构造标准日期，转成数字避免区域格式差异问题
    With dataRange
        .AutoFilter Field:=9, _
                    Criteria1:=">=" & CLng(DateSerial(2017, 1, 1)), _
                    Operator:=xlAnd, _
                    Criteria2:="<=" & CLng(DateSerial(2018, 12, 31))
    End With
    
    ' 设置按日期降序排序
    With ws.AutoFilter.Sort
        .SortFields.Clear
        .SortFields.Add Key:=ws.Range("I1:I" & lastRow), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlDescending, _
                        DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
    
    ' 释放对象变量
    Set ws = Nothing
    Set dataRange = Nothing
End Sub

关键改进点解释 #

• 动态获取最后一行：通过ws.Cells(ws.Rows.Count, "I").End(xlUp).Row定位日期列的最后一行，确保只处理有数据的行，避免空白行干扰。
• 日期条件安全处理：用DateSerial(年,月,日)构造标准日期，再转成CLng（日期在VBA中本质是数字），彻底规避区域格式差异导致的判断错误。
• 避免Select/Activate：直接引用工作表和范围，让代码更稳定、运行更快，不会因当前选中工作表变化而出错。
• 清除旧筛选：每次运行前清除之前的筛选状态，避免多次运行导致的筛选叠加问题。

额外排查建议 #

如果修改后仍有问题，可以检查：

• 确认I列的单元格格式是日期格式，而非文本格式（文本格式的日期无法被VBA正确识别）。
• 手动筛选时，确认表格中确实存在2017-2018年的日期数据（避免因数据本身不存在导致全隐藏）。

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