VBA Excelvariablessorting在多个键/订单上
我怎样才能在多个列（键/订单）在同一时间？ 当我运行我的下面的代码时，它执行每行时重新sorting数据，而不是sorting多列的一种sorting。 将“密钥”或“订单”号码从1更改为2等不起作用。 谢谢。
wsLast_Row = Cells(Rows.Count, 2).End(xlUp).Row Range("A3:BZ" & wsLast_Row).Sort key1:=Range("A3:A" & wsLast_Row), _ order1:=xlAscending, Header:=xlNo Range("A3:BZ" & wsLast_Row).Sort key1:=Range("B3:B" & wsLast_Row), _ order1:=xlAscending, Header:=xlNo Range("A3:BZ" & wsLast_Row).Sort key1:=Range("C3:C" & wsLast_Row), _ order1:=xlAscending, Header:=xlNo Range("A3:BZ" & wsLast_Row).Sort key1:=Range("D3:D" & wsLast_Row), _ order1:=xlAscending, Header:=xlNo Range("A3:BZ" & wsLast_Row).Sort key1:=Range("F3:F" & wsLast_Row), _ order1:=xlAscending, Header:=xlNo Sub sdad() wsLast_Row = Cells(Rows.Count, 2).End(xlUp).Row With ActiveWorkbook.ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=Range("A3:A" & wsLast_Row), Order:=xlAscending .SortFields.Add Key:=Range("B3:B" & wsLast_Row), Order:=xlAscending .SortFields.Add Key:=Range("C3:C" & wsLast_Row), Order:=xlAscending .SortFields.Add Key:=Range("D3:D" & wsLast_Row), Order:=xlAscending .SetRange Range("A3:BZ" & wsLast_Row) .Header = xlNo .Apply End With End Sub