多工作表VBA批量处理：按颜色及日期排序表格数据

Sub SortByColorAndDate()
    Dim targetSheetNames As Variant
    Dim sheetName As Variant
    Dim wks As Worksheet
    Dim tbl As ListObject
    Dim sortColors As Variant
    
    ' 指定要处理的工作表
    targetSheetNames = Array("Primary", "Secondary")
    ' 定义排序的字体颜色顺序（可按需调整顺序）
    sortColors = Array(RGB(84, 130, 53), RGB(192, 0, 0), RGB(198, 89, 17), RGB(48, 84, 150), RGB(38, 38, 38))
    
    ' 遍历目标工作表
    For Each sheetName In targetSheetNames
        On Error Resume Next ' 处理工作表不存在的异常
        Set wks = ThisWorkbook.Worksheets(sheetName)
        On Error GoTo 0
        
        If Not wks Is Nothing Then
            ' 遍历工作表内的每个表格
            For Each tbl In wks.ListObjects
                With tbl.Sort ' 用表格自身的Sort对象，确保排序范围精准
                    .SortFields.Clear
                    
                    ' 批量添加字体颜色排序规则
                    Dim color As Variant
                    For Each color In sortColors
                        .SortFields.Add _
                            Key:=tbl.Range.Columns(8), _
                            SortOn:=xlSortOnFontColor, _
                            Order:=xlAscending, _
                            SortOrder:=xlSortNormal
                        .SortFields(.SortFields.Count).SortOnValue.Color = color
                    Next color
                    
                    ' 添加日期排序规则（假设日期在第1列，根据实际列位置修改）
                    .SortFields.Add _
                        Key:=tbl.Range.Columns(1), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlAscending ' 可改为xlDescending实现降序
                    
                    ' 应用排序设置
                    .Header = xlYes
                    .MatchCase = False
                    .Orientation = xlTopToBottom
                    .SortMethod = xlPinYin
                    .Apply
                End With
            Next tbl
        End If
    Next sheetName
End Sub

• 精准锁定目标工作表：直接指定Primary和Secondary两个表，避免遍历所有工作表导致误操作其他无关表格。
• 贴合表格操作逻辑：原代码用工作表级别的wks.Sort，改为表格自身的tbl.Sort，确保排序范围严格限定在表格数据内，避免干扰工作表其他区域。
• 简化重复代码：把排序颜色存入数组循环添加，后续修改颜色顺序或新增颜色只需调整数组，不用重复写冗余代码。
• 补充日期排序：在颜色排序规则后追加日期排序逻辑，注释中标注了列号调整提示，根据你的实际日期列位置修改即可。
• 增强代码健壮性：加入错误处理，避免因目标工作表不存在导致代码直接崩溃。

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