Como classificar várias linhas ou colunas independentemente de uma vez no Excel?
No Excel, você pode aplicar o recurso Classificar para classificar apenas uma linha ou coluna em um intervalo de colunas, mas, se precisar classificar várias linhas ou colunas independentemente de uma vez, para obter a seguinte captura de tela exibida. Existe alguma maneira rápida de resolver essa tarefa no Excel?
Classifique várias colunas independentemente de uma vez com o código VBA
Classifique várias linhas independentemente de uma vez com o código VBA
Classifique várias colunas independentemente de uma vez com o código VBA
Para classificar várias colunas independentemente em ordem crescente, o seguinte código VBA pode ajudá-lo, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: classifique várias colunas independentemente de uma 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. Então aperte F5 para executar este código e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que deseja classificar com base em cada coluna, consulte a captura de tela:
4. E, em seguida, clique em OK, cada coluna foi classificada de forma dependente de uma vez, consulte a captura de tela:
Classifique várias linhas independentemente de uma vez com o código VBA
Se você deseja classificar várias linhas independentemente, aqui também está um código VBA para você.
1. Selecione os dados que você deseja classificar com base em cada linha.
2. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: classifique várias linhas independentemente de uma 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. Então aperte F5 chave para executar este código, os dados em cada linha foram classificados de uma vez, veja a captura de tela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!