Hur sorterar jag flera rader eller kolumner oberoende samtidigt i Excel?
I Excel kan du använda funktionen Sortera för att bara sortera en rad eller kolumn i ett antal kolumner, men om du behöver sortera flera rader eller kolumner separat för att få följande skärmdump att visas. Finns det några snabba sätt att lösa denna uppgift i Excel?
Sortera flera kolumner oberoende samtidigt med VBA-kod
Sortera flera rader oberoende samtidigt med VBA-kod
Sortera flera kolumner oberoende samtidigt med VBA-kod
För att sortera flera kolumner oberoende i stigande ordning kan följande VBA-kod hjälpa dig, gör så här:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Sortera flera kolumner oberoende samtidigt:
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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja det dataområde som du vill sortera baserat på varje kolumn, se skärmdump:
4. Och klicka sedan på OK, har varje kolumn sorterats beroende på en gång, se skärmdump:
Sortera flera rader oberoende samtidigt med VBA-kod
Om du vill sortera flera rader oberoende är här också en VBA-kod för dig.
1. Välj de data som du vill sortera baserat på varje rad.
2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
3. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Sortera flera rader oberoende samtidigt:
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. Tryck sedan på F5 nyckel för att köra den här koden, data i varje rad har sorterats på en gång, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
