Excel VBA多字段自定义排序实现及多轮Sort写法正确性验证

现有两种多轮Sort写法的逻辑判定 #

• 两次3键排序写法：当前列配置下排序结果正确，但极度不推荐使用
  Excel内置的Range.Sort方法是稳定排序，即排序时键值相同的记录会保留排序前的相对顺序。你当前写法中，第一次排序的I/J/K列对应耐力、服从、热情度三个最低优先级字段，且同次排序内键的优先级顺序符合I>J>K的规则；第二次排序的L/G/H列对应总积分、敏捷、速度三个最高优先级字段，同次排序内键的优先级顺序符合L>G>H的规则。最终排序结果会符合要求，但这种写法的字段优先级对应关系非常不直观，后续调整字段顺序、新增/删除排序字段时，极易出现字段分组错误、组内键顺序写反的问题，排查成本极高。
• 从低优先级到高优先级逐次单键排序写法：逻辑完全正确，兼容全版本Excel
  这种写法完全遵循稳定排序的使用逻辑：从优先级最低的字段开始逐轮排序，每轮仅排序一个更高优先级的字段，键值相同的记录会自动保留之前低优先级字段的排序结果，最终输出完全符合规则，不存在逻辑错误。

推荐最优实现方案 #

你记忆中VBA Sort最多支持3个排序键是Excel 2003及更早版本的旧参数限制，Excel 2007及以后版本的Worksheet.Sort对象最多支持添加64个排序键，可一次性配置所有排序规则，无需多次调用Sort，可读性和可维护性更好，参考代码如下：

Sub SortDogData()
    ' 校验是否选中有效数据区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中待排序的数据区域后再运行宏"
        Exit Sub
    End If
    Dim targetRng As Range
    Set targetRng = Selection
    
    With targetRng.Worksheet.Sort
        ' 清空历史排序配置
        .SortFields.Clear
        ' 按优先级从高到低添加排序键，以下列对应关系和你提供的代码一致，可根据实际表格调整列号
        ' 优先级1：总积分（L列）降序
        .SortFields.Add Key:=targetRng.Columns("L"), Order:=xlDescending
        ' 优先级2：敏捷（G列）降序
        .SortFields.Add Key:=targetRng.Columns("G"), Order:=xlDescending
        ' 优先级3：速度（H列）降序
        .SortFields.Add Key:=targetRng.Columns("H"), Order:=xlDescending
        ' 优先级4：耐力（I列）降序
        .SortFields.Add Key:=targetRng.Columns("I"), Order:=xlDescending
        ' 优先级5：服从（J列）降序
        .SortFields.Add Key:=targetRng.Columns("J"), Order:=xlDescending
        ' 优先级6：热情度（K列）降序
        .SortFields.Add Key:=targetRng.Columns("K"), Order:=xlDescending
        
        ' 应用排序
        .SetRange targetRng
        .Header = xlNo ' 选中区域包含表头时改为xlYes
        .MatchCase = False
        .Apply
    End With
End Sub

如果需要兼容Excel 2003及更早版本，直接使用你写的逐次单键排序版本即可，无需额外调整。

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