Kako razvrstiti več vrstic ali stolpcev naenkrat neodvisno v Excelu?
V Excelu lahko funkcijo Razvrsti uporabite za razvrščanje samo ene vrstice ali stolpca v obsegu stolpcev, če pa morate hkrati razvrstiti več vrstic ali stolpcev, da se prikaže naslednji posnetek zaslona. Ali obstajajo hitri načini za rešitev te naloge v Excelu?
Razvrstite več stolpcev naenkrat neodvisno s kodo VBA
Razvrstite več vrstic naenkrat neodvisno s kodo VBA
Razvrstite več stolpcev naenkrat neodvisno s kodo VBA
Če želite neodvisno razvrstiti več stolpcev v naraščajočem vrstnem redu, vam bo morda v pomoč naslednja koda VBA, naredite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Razvrstite več stolpcev neodvisno hkrati:
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. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vas opomni, da izberete obseg podatkov, ki ga želite razvrstiti glede na posamezen stolpec, glejte posnetek zaslona:
4. In nato kliknite OK, so bili vsi stolpci razvrščeni naenkrat, glej posnetek zaslona:
Razvrstite več vrstic naenkrat neodvisno s kodo VBA
Če želite samostojno razvrstiti več vrstic, je tukaj tudi koda VBA.
1. Izberite podatke, ki jih želite razvrstiti glede na posamezne vrstice.
2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Razvrsti več vrstic neodvisno hkrati:
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. Nato pritisnite F5 ključ za zagon te kode, podatki v vsaki vrstici so bili razvrščeni hkrati, glejte posnetek zaslona:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
