Como classificar várias linhas ou colunas independentemente de uma só vez no Excel?

No Excel, você pode aplicar o recurso Classificar para ordenar apenas uma linha ou coluna em um intervalo de colunas. No entanto, se você precisar classificar várias linhas ou colunas independentemente de uma só vez para obter a seguinte captura de tela mostrada, existem maneiras rápidas de resolver essa tarefa no Excel?

Classificar várias colunas independentemente de uma só vez com código VBA

Classificar várias linhas independentemente de uma só vez com código VBA

Classificar várias colunas independentemente de uma só vez com código VBA

Para classificar várias colunas independentemente em ordem crescente, o seguinte código VBA pode ajudá-lo; por favor, faça o seguinte:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Classificar várias colunas independentemente de uma só vez:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso será exibida para lembrá-lo de selecionar o intervalo de dados que deseja classificar com base em cada coluna, veja a captura de tela:

4. E então clique em OK, cada coluna terá sido classificada independentemente de uma só vez, veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Classificar várias linhas independentemente de uma só vez com código VBA

Se você quiser classificar várias linhas independentemente, aqui também há um código VBA para você.

1. Selecione os dados que deseja classificar com base em cada linha.

2. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Classificar várias linhas independentemente de uma só vez:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Em seguida, pressione a tecla F5 para executar este código, os dados em cada linha terão sido classificados de uma só vez, veja a captura de tela: