求助：多工作表筛选失败结果并按I列日期升序排序的VBA宏优化

你的宏思路方向是对的，但有些细节可以调整得更稳定精准，我帮你优化代码并解释关键改动：

修正后的宏代码 #

Sub Formatting()
    Dim sht As Worksheet
    Dim dataRange As Range
    
    For Each sht In ThisWorkbook.Sheets
        If sht.Name <> "Original" Then
            ' 先清除已有筛选，避免旧规则干扰新操作
            If sht.AutoFilterMode Then sht.AutoFilterMode = False
            
            ' 定义表格数据区域（从A1开始的连续数据块）
            Set dataRange = sht.Range("A1").CurrentRegion
            
            ' 筛选J列（第10列）的"FAIL"结果
            dataRange.AutoFilter Field:=10, Criteria1:="FAIL"
            
            ' 对筛选后的可见数据按I列（日期列）升序排序
            dataRange.Sort Key1:=sht.Range("I1"), Order1:=xlAscending, _
                           Header:=xlYes, MatchCase:=False, _
                           Orientation:=xlTopToBottom
        End If
    Next sht
End Sub

关键改动说明 #

• 清除原有筛选：添加了If sht.AutoFilterMode Then sht.AutoFilterMode = False，确保每次执行宏都从无筛选状态开始，避免之前的筛选规则残留影响结果。
• 明确数据区域：把CurrentRegion赋值给变量dataRange，让代码逻辑更清晰，也避免重复调用带来的潜在问题。
• 精准排序目标：排序时指定Key1为表头单元格sht.Range("I1")，比直接用整列更高效，同时补充了MatchCase、Orientation等参数，让排序行为更明确可控。
• 语法规范补全：给Sub Formatting补上了括号，符合VBA的语法要求。

额外提示 #

• 确保每个工作表的表格表头在第1行，且I列是标准日期格式，这样排序才会按日期逻辑生效，而不是文本排序。
• 如果表格存在空行，CurrentRegion会自动识别连续的数据块，不用担心遗漏或多选。

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