Hvordan sorterer jeg flere rækker eller kolonner uafhængigt af hinanden i Excel?
I Excel kan du anvende sorteringsfunktionen til kun at sortere en række eller kolonne i en række kolonner, men hvis du skal sortere flere rækker eller kolonner uafhængigt på én gang for at få vist følgende skærmbillede. Er der nogen hurtige måder at løse denne opgave på i Excel?
Sorter flere kolonner uafhængigt af hinanden med VBA-kode
Sorter flere rækker uafhængigt på én gang med VBA-kode
Sorter flere kolonner uafhængigt af hinanden med VBA-kode
For at sortere flere kolonner uafhængigt af hinanden i stigende rækkefølge kan følgende VBA-kode hjælpe dig, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Sorter flere kolonner uafhængigt på én gang:
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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde dig om at vælge det dataområde, du vil sortere baseret på hver kolonne, se skærmbillede:
4. Og klik derefter på OK, hver kolonne er sorteret afhængigt på én gang, se skærmbillede:
Sorter flere rækker uafhængigt på én gang med VBA-kode
Hvis du vil sortere flere rækker uafhængigt, er der også en VBA-kode til dig.
1. Vælg de data, du vil sortere ud fra hver række.
2. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Sorter flere rækker uafhængigt på én gang:
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. Tryk derefter på F5 nøgle til at køre denne kode, dataene i hver række er sorteret på én gang, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
