如何用Excel VBA实现1-50、701-720、51及剩余的自定义排序？

要实现你需要的排序规则，直接用原生SortFields无法区分三个区间，最稳妥的方式是添加辅助列标记优先级，再按优先级+原列值排序，具体修改如下：

修改后的代码 #

Sub CustomSort()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 插入辅助列（AF列，可根据实际调整位置）
    ws.Columns("AF:AF").Insert Shift:=xlToRight
    
    ' 设置辅助列表头（匹配原数据的表头行）
    ws.Range("AF3").Value = "排序优先级"
    
    ' 给辅助列填充优先级：1-50→1，701-720→2，其余→3
    With ws.Range("AF4:AF300")
        .Formula = "=IF(AND(E4>=1,E4<=50),1,IF(AND(E4>=701,E4<=720),2,3))"
        .Value = .Value ' 把公式转为固定值，避免后续数据变动影响排序
    End With
    
    ' 执行自定义排序
    With ws.Sort
        .SetRange ws.Range("A3:AF300") ' 排序范围包含辅助列
        .SortFields.Clear ' 清除原有排序规则
        ' 第一排序键：辅助列，升序（保证优先级顺序）
        .SortFields.Add Key:=ws.Range("AF3"), Order1:=xlAscending
        ' 第二排序键：E列，升序（每个优先级内按原数字从小到大排列）
        .SortFields.Add Key:=ws.Range("E3"), Order1:=xlAscending
        .Header = xlYes ' 数据包含表头行
        .Apply
    End With
    
    ' 可选：删除辅助列（如果不需要保留）
    ws.Columns("AF:AF").Delete Shift:=xlToLeft
End Sub

代码说明 #

• 辅助列通过公式快速标记每个值的排序优先级，确保1-50排在最前，701-720处于中间，剩余值排在最后
• 排序时先按辅助列优先级升序，再按E列原数值升序，保证每个区间内的数字也是有序排列
• 如果你的数据范围不是到300行，自行修改代码中AF300和A3:AF300的对应行号
• 辅助列位置（示例中为AF列）可根据你的实际数据列调整，只要不覆盖原有数据即可

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