0

我正在尝试对特定范围的多个列进行排序。我的工作表有 4 列（A、B、C、D）和 80 行......但是，我想按 D 列排序。但是，我只想在第 2-20 行之间按降序排序。有人可以帮我处理这段代码吗？

这是我的代码：

Sub Macro1()
Range("A2:D20").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D2:D20") _
     , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("A1:D20")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

先感谢您。

4

1 回答 1

1

怎么样：

Range("A2:D20").Sort key1:=Cells(20, 4), order1:=xlDescending, Header:=xlNo
于 2012-11-26T23:46:28.230 回答