使用"Group-By“进行VBA自定义排序

Sub CustomSort()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置工作表和数据范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:D10")
    
    ' 使用"Group-By"进行自定义排序
    With ws.Sort
        .SortFields.Clear
        .SortFields.Add Key:=rng.Columns(1), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SortFields.Add Key:=rng.Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange rng
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub