使用数组的自定义排序会导致Excel崩溃

Question

我正在使用以下代码使用要排序的值数组以自定义方式进行排序

Sub Sort_Custom()
Dim n           As Long

Application.AddCustomList Array("A", "D", "B", "-")
n = Application.CustomListCount

With Sheets("Data")
    .Range("A1").CurrentRegion.Sort Key1:=.Range("E1"), Header:=xlYes, OrderCustom:=n + 1
End With

Application.DeleteCustomList n
End Sub

该代码可以正常工作，并且按预期.. 但是问题在运行代码后出现，并且在保存代码时，应用程序崩溃了，我必须重新启动 有任何解决办法的想法吗？

---

我还有另一个工作代码，运行它很好，保存过程没有问题

Sub NewTest()
Dim w           As Worksheet
Dim x As Variant

'x = "A"
Set w = Worksheets("Data")

With w.Sort
    .SortFields.Clear
    .SortFields.Add w.Range("E1"), CustomOrder:="A"
    .Header = xlYes
    .SetRange w.Range("A1").CurrentRegion
    .Apply
End With
End Sub

我只需要一点..它使用变量而不是直接使用“ A” 我尝试了x =“ A”，并在CustomOrder：=之后使用了x，但这不起作用