使用自定义排序进行自定义排序

我想根据列中的值对行进行排序G。有 3 个可能的值：Green, Red and Yellow。我想要对行进行排序Green在上面，然后Yellow, then Red.

我尝试的所有结果都会按字母顺序排序：Green, Red then Yellow。列上有二次排序R，但效果很好。

我的最新代码如下。rr是最后一行的编号。我已经尝试过有和没有Order1:=xlAscending.

sCustomList =“绿色”“黄色”“红色”

Application.AddCustomList ListArray:=sCustomList
    Range("A3:T" & rr).Sort Key1:=Range("G3:G" & rr), Order1:=xlAscending, _
    OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, _
    DataOption1:=xlSortNormal, Key2:=Range("R3:R" & rr), Order2:=xlAscending

查看您的代码，sCustomList看起来像一个字符串类型变量而不是变体数组。我在自定义排序列表方面的成功在于每次都创建一个新的排序列表并使用最高的索引号来引用它。

Sub custom_sort()
    Dim vCustom_Sort As Variant, rr As Long

    vCustom_Sort = Array("green", "yellow", "red", Chr(42))
    Application.AddCustomList ListArray:=vCustom_Sort

    With Worksheets("Sheet2")    '<~~ set this properly!
        .Sort.SortFields.Clear
        rr = .Cells(Rows.Count, "G").End(xlUp).Row
        With .Range("A3:T" & rr)
            'use this to presort one or more secondary fields before the primary custom sort
            '.Cells.Sort Key1:=.Columns(18), Order1:=xlAscending, _
                        Key2:=.Columns(1), Order2:=xlDescending, _
                        Orientation:=xlTopToBottom, Header:=xlYes
            .Cells.Sort Key1:=.Columns(7), Order1:=xlAscending, _
                        Orientation:=xlTopToBottom, Header:=xlYes, MatchCase:=False, _
                        OrderCustom:=Application.CustomListCount + 1

        End With
        .Sort.SortFields.Clear
    End With

End Sub

之间有一个转折.Cells.Sort.SortFields.Add and .Cells.Sort这通常会产生一些混乱。这.SortFields.Add 方法 https://msdn.microsoft.com/en-us/library/office/ff836827.aspx uses a CustomOrder:=参数和范围排序方法 https://msdn.microsoft.com/en-us/library/office/ff840646.aspx uses a OrderCustom:=范围。这两者绝对不一样，但经常互换使用，带来灾难性的结果。