在 vba 中为 CustomOrder 参数分配变量

Question

我有以下代码

Sub Test()
    Dim x
    x = "ow, bv, xz"
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("D1"), CustomOrder:=x
        .SortFields.Add Key:=Range("C1"), Order:=xlDescending
        .SortFields.Add Key:=Range("B1"), Order:=xlAscending
        .SetRange Range("A1").CurrentRegion
        .Header = xlYes
        .Apply
    End With
End Sub

我尝试使用 CustomOrder 并将变量 x 分配给字符串。直接使用字符串时效果很好但不使用变量知道如何解决这个问题吗？

Answer 1

似乎是一个错误。以下工作适合我：

CustomOrder:=Cstr(x)

CustomOrder:=Join(Split(x)) 'overkill, but for laughs

CustomOrder:=x & vbNullString

在 vba 中为 CustomOrder 参数分配变量

Assign variable for CustomOrder parameter in vba

excel

vba