Question

我想对2列进行扩展排序（列永远不会改变）。代码应首先对列D进行排序，然后对列E进行排序。虽然我可以使用宏录制器来完成此操作，但它会产生大约20行代码，实际上，我知道它可以在大约5或6中完成。 / p>

以下代码适用于一列，但我认为即使它可以清理一些。

Worksheets("CSAT Details").Sort.SortFields.Add Key:=Range("E1"), SortOn:=xlSortOnValues, Order:=xlAscending
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
With Worksheets("CSAT Details").Sort
    .SetRange Range("A2:F" & lastRow)
    .Orientation = xlTopToBottom
    .Apply
End With

我创建了以下代码来尝试对2列进行排序，但它还没有工作，给出了

448命名参数未找到错误

lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Worksheets("CSAT Details").Sort.SortFields.Add _
    Key1:=Range("D1"), SortOn1:=xlSortOnValues, Order1:=xlAscending, _
    Key2:=Range("E1"), SortOn2:=xlSortOnValues, Order2:=xlAscending
With Worksheets("CSAT Details").Sort
    .SetRange Range("A2:F" & lastRow)
    .Orientation = xlTopToBottom
    .Apply
End With

我不确定我错过了什么。

Answer 1

如下所示（在运行前简单指定范围）：

Sub foo()
Range("A1:G6").Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("D1") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
End Sub

Answer 2

这样的事情对你有用：

Sub tgr()

    Dim ws As Worksheet
    Dim LastRow As Long

    Set ws = ActiveWorkbook.Sheets("CSAT Details")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    With ws.Range("D1:E" & LastRow)
        .Sort .Resize(, 1), xlAscending, .Offset(, 1).Resize(, 1), , xlAscending, Header:=xlYes
    End With

End Sub

Excel VBA - 对两个未命名列进行排序的正确方法

2 个答案: