excel - excel中的单个多列排序

Question

我正在尝试对 excel 中的多个列进行独立排序。我有很多列，但保持行之间的顺序并不重要。有什么简单的技巧吗？

Answer 1

这是一个宏。要编写宏，请确保进入开发功能区部分并将其添加到:

Sub SortIndividualJR()
    Dim rngFirstRow As Range
    Dim rng As Range
    Dim ws As Worksheet

    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    Set rngFirstRow = ws.Range("A1:JR1")
    For Each rng In rngFirstRow
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=rng, Order:=xlAscending
            'assuming there are no blank cells..
            .SetRange ws.Range(rng, rng.End(xlDown))
            .Header = xlYes
            .MatchCase = False
            .Apply
        End With
    Next rng
    Application.ScreenUpdating = True
    End Sub

您可以更改范围以适合您拥有的列数。