自定义订单排序

您好，我想根据值（关键、高、中、低）对整个 C 列进行排序。我正在启用宏的工作表上运行此代码

这是我的代码。

Sub run()
Range("C:C").Sort Key1:=Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="Critical,High,Medium,Low", DataOption:=xlSortNormal
End Sub

它不起作用，因为有错误指示。没有争论。纠正这个问题的解决方案是什么？谢谢。

您的自定义排序标准需要位于数组中。尝试，

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

    vCustom_Sort = Array("Critical","High","Medium","Low", Chr(42))
    Application.AddCustomList ListArray:=vCustom_Sort

    with Range("C:C")
        .parent.Sort.SortFields.Clear

        'sort on custom order with header
        .Cells.Sort Key1:=.Columns(1), Order1:=xlAscending, _
                    Orientation:=xlTopToBottom, Header:=xlYes, MatchCase:=False, _
                    OrderCustom:=Application.CustomListCount + 1

        .parent.Sort.SortFields.Clear

    End With

End Sub

如果这是在公共模块中，则合格的父工作表参考会有所帮助。