排序中的自定义排序的引用序列如何能够用VBA来写活，指定按某列顺序来排序来？

minren118

我想把A列的姓名的排序顺序，做成自定义序列，应用到源数据中排序，最终得到I:J列的最终效果表，用录制录的方法做出来的代码CustomOrder是一个数组序列，不知道改，改成range("A3:A7")会报错。    Range("E1:F11").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2:E11") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="E,C,B,A,D", _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("E1:F11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("E6").Select
End Sub

minren118

刚忘记上传附件，现补上

minren118

没有人回答我啊，高手们支招一下

yaozong

Sub 自定义排列()
On Error Resume Next
    Application.AddCustomList ListArray:=Range("A3:A7") '创建自定义序列
    Range("E3:F17").Sort Key1:=[E3], _
                Order1:=xlAscending, Key2:=[F3], Order2:=2, Header:=xlNo, _
                OrderCustom:=Application.CustomListCount + 1
    Application.DeleteCustomList ListNum:=Application.CustomListCount '删除自定义序列
End Sub

yaozong

测试附件     

yaozong

自定义序列:直接输入(数组)或引用区域数据通用程式时
Sub 自定义排列()
    'arr = Array("E", "C", "B", "A", "D")         '自定义序列(输入式→进数组)
    arr = Application.Transpose(Range("A3:A7"))  '自定义序列(引用式→区域参数进数组)
    Application.AddCustomList listArray:=arr     '创建自定义序列(引用数组arr)
    n = Application.GetCustomListNum(arr)
    Range("E3:F17").Sort [E3], 1, , [F3], 2, , , , n + 1 'E列自定义序列→升序 / F列→降序
    Application.DeleteCustomList n '从自定义序列库中删除该自定义序列 (也可以保留不删)
End Sub

minren118

yaozong 发表于 2013-12-9 09:49
自定义序列:直接输入(数组)或引用区域数据通用程式时
Sub 自定义排列()
    'arr = Array("E", "C", "B", ...

自定义排序Range("E3:F17").Sort [E3], 1, , [F3], 2, , , , n + 1 'E列自定义序列→升序 / F列→降序
这里的n+1为何要+1，【F3】是type参数吗？看帮助文件里说的不是太明白，如果可以的话解释一下就很感谢。
这段的sort代码不太能够理解到，可以解释一下么？  

yaozong

minren118 发表于 2013-12-12 13:03
自定义排序Range("E3:F17").Sort [E3], 1, , [F3], 2, , , , n + 1 'E列自定义序列→升序 / F列→降序
这 ...

这里的n是序列的数量,各电脑EXCEL设置不同,n+1是最后一行序列(因为第一行/新序列是标题)
查看:
→工具→选项→自定义序列

便于理解6楼代码可改为:
Sub 自定义排列() '引用区域参数用自定义序列
    Application.AddCustomList ListArray:=Range("A3:A7") '创建自定义序列
    n = Application.CustomListCount'自定义第n个
    Range("E3:F17").Sort [E3], 1, , [F3], 2, , , , n + 1
    Application.DeleteCustomList ListNum:=n '删除自定义序列
End Sub

'''添加新序列时,不必知晓n是多少!!(按原有序列排序要参考n了)

一念天堂

yaozong 发表于 2013-12-12 15:10
这里的n是序列的数量,各电脑EXCEL设置不同,n+1是最后一行序列(因为第一行/新序列是标题)
查看:
→工具 ...

大佬，我用 Application.AddCustomList ListArray:=Range("A3:A7") '创建自定义序列总是提示错误，是不是EXCLE2016版的版本问题？

一念天堂

大佬，我用 Application.AddCustomList ListArray:=Range("A3:A7") '创建自定义序列总是提示错误，是不是EXCLE2016版的版本问题？