使用VBA排序给出错误的结果

Question

我有这个代码来分类Excel表格

'for the ascending order
Range("A14:CB" & lastRow).Sort key1:=Range(Col & "14:" & Col & lastRow), Order1:=xlAscending, Header:=xlNo, key2:=Range("C14:C" & lastRow), Order2:=xlAscending, Header:=xlNo
'for the descending order
Range("A14:CB" & lastRow).Sort key1:=Range(Col & "14:" & Col & lastRow), Order1:=xlDescending, Header:=xlNo, key2:=Range("C14:C" & lastRow), Order2:=xlAscending, Header:=xlNo

这是我在Col=J

上进行升序排序时得到的结果

这是我在Col=J

进行降序排序时得到的结果

两者都显然是错误的。我在VBA代码中没有看到任何错误吗？

Answer 1

Excel的排序效果很好，例如选择一个范围并运行以下内容：

Option Explicit

Sub TestMe()

    Selection.Sort key1:=Selection, Order1:=xlDescending

End Sub

在您的代码中，您应该检查定义范围的变量。例如。 lastRow和Col。在代码的顶部写下这样的东西：

debug.print lastRow
debug.print Col