我有这段代码可以完美地工作：
ActiveWorkbook.Worksheets("compleanni").Sort.SortFields.Add2 Key:=Range( _
"I6:I23"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
我想这样更改：
myorder="xlAscending"
....
....
Order:=myorder
但是它不起作用：我收到运行时错误13.有什么建议吗？
xlAscending是VBA（Excel）中的预定义常数，其类型为long（值是1，但这并不重要）。
将变量变暗myorder为Long常量并将其赋值：
Dim myorder as Long
myorder = xlAscending ' (or xlDescending)
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句