sort filed

Option Explicit

Sub sort1()
'
' sort1 宏
'

'
    Dim arr1, str1, i
    
    arr1 = Array("安装地址", "电话号码", "安装套餐", "归属人", "安装日期")
    For Each i In arr1
    str1 = str1 & i & ","
    Next
    str1 = Left(str1, Len(str1) - 1)
    Debug.Print str1
    
    
    Application.DeleteCustomList ListNum:=12
    Application.AddCustomList ListArray:=arr1
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("C3:C7") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "安装地址,电话号码,安装套餐,归属人,安装日期", DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("C2:BT7")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Sub sort2()
'
' sort2 宏
'

'
    Dim strin As Variant, arr, n

    strin = "安装套餐,电话号码,安装地址,归属人,安装日期"
    arr = Array("安装地址", "电话号码", "安装套餐", "归属人", "安装日期")
    Application.AddCustomList ListArray:=arr
    n = Application.GetCustomListNum(arr)
    Debug.Print n

    Range("C2").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("C3:C7") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, CustomOrder:= _
        Application.CustomListCount, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("C2:BT7")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.DeleteCustomList n
End Sub