如何在Excel中使用已定义的名称进行sorting？
我有一个macros按类别名称与自定义顺序sorting数据库列。 我不知道是否有可能，但我想使用一个定义的名称，其中包含所有名为Sorting_List的类别名称。 我想要定义的名称Sorting_List来replace“FL，MF，HF，熔炉英语，Launder，CM，CM Eng，ML，PP，实验室SOT，实验室AT，SSP，SII，NAPS，ES，FM，PW， C2H2，CA，stream体，stream体Eng，电子，PMDA，电动工具，CH SW，CH SII，CH标准，CH高，CH电子，CH英语，CH FS，FS SW，FS SII，FS电气，实验室，实验室软件“，所以如果我改变了定义的名单中的任何东西，它会自动改变我的macros。 以下是我的代码。 任何帮助深表感谢。
ActiveWorkbook.Worksheets("Database").ListObjects("Database").Sort.SortFields. _ Add Key:=Range("Database[Category]"), SortOn:=xlSortOnValues, Order:= _ xlAscending, CustomOrder:= _ "FL,MF,HF,Furnace Eng,Launder,CM,CM Eng,ML,PP,Lab SOT,Lab AT,SSP,SII,NAPS,ES,FM,PW,C2H2,CA,Fluids,Fluids Eng,Elec,PMDA,Elec Eng,CH SW,CH SII,CH Std,CH High,CH Elec,CH Eng,CH FS,FS SW,FS SII,FS Elec,Eng,Train,Lab,Lab SW" _ , DataOption:=xlSortNormal Dim sCustomOrder as String Dim rng as Range sCustomOrder = "" For Each rng in ActiveWorkbook.Names("Sorting_List").RefersToRange If rng.Text <> "" Then sCustomOrder = sCustomOrder & "," & rng.Text Next rng ActiveWorkbook.Worksheets("Database").ListObjects("Database").Sort.SortFields.Add _ Key:=Range("Database[Category]"), _ SortOn:=xlSortOnValues, _ Order:= xlAscending, _ CustomOrder:= sCustomOrder, _ DataOption:=xlSortNormal