具有多个键和自定义顺序的Excel VBA排序

Sub CustomSort()
    Dim ws As Worksheet
    Dim rng As Range
    Dim sortRange As Range
    Dim sortFields As SortFields
    
    ' 设置要排序的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 设置要排序的范围
    Set sortRange = rng
    
    ' 创建排序字段对象
    Set sortFields = sortRange.SortFields
    
    ' 添加排序字段
    With sortFields
        ' 添加第一个排序字段，按第一列升序排序
        .Add Key:=rng.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        
        ' 添加第二个排序字段，按第二列降序排序
        .Add Key:=rng.Columns(2), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        
        ' 添加第三个排序字段，按第三列自定义顺序排序
        .Add Key:=rng.Columns(3), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="High,Medium,Low", DataOption:=xlSortNormal
    End With
    
    ' 执行排序
    With rng.Sort
        .SortFields.Clear
        .SortFields.AddRange sortFields
        .SetRange sortRange
        .Header = xlYes ' 是否包含表头
        .MatchCase = False ' 是否区分大小写
        .Orientation = xlTopToBottom ' 排序方向
        .SortMethod = xlPinYin ' 排序方式
        .Apply ' 应用排序
    End With
End Sub