使用VBA排序-多级排序

Sub MultiLevelSort()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要排序的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 清除已有的排序
    rng.Sort.SortFields.Clear
    
    ' 添加第一个排序条件
    rng.Sort.SortFields.Add Key:=rng.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    ' 添加第二个排序条件
    rng.Sort.SortFields.Add Key:=rng.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    ' 添加第三个排序条件
    rng.Sort.SortFields.Add Key:=rng.Columns(3), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    ' 执行排序
    With rng.Sort
        .SetRange rng
        .Header = xlYes ' 如果有表头，则设置为xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin ' 设置排序方式，可以根据需要修改
        .Apply
    End With
End Sub