Question

我必须在Excel中对其值中的单独列进行排序。我制定了以下程序：

                With calcCalculations

With .Sort

.SortFields.Add Key:=Range("BR2:BR5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("BV2:BV5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("CA2:CA5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("CD2:CD5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

         .SetRange Range("BR:CD")
         .Header = xlYes
         .MatchCase = True
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin


        End With

End with

该过程不会出错，但它不会对我的数据进行排序。我错过了什么吗？

Answer 1

正如用户3514930所说：您在.Apply

之前错过了End With

Answer 2

                With calcCalculations

With .Sort

.SortFields.Add Key:=Range("BR2:BR5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("BV2:BV5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("CA2:CA5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SortFields.Add Key:=Range("CD2:CD5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

         .SetRange Range("BR:CD")
         .Header = xlYes
         .MatchCase = True
         .Orientation = xlTopToBottom
         .SortMethod = xlPinYin
         .Apply
        End With

End with

如其他用户所说。

使用VBA在Excel中对多个列进行排序

2 个答案: