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:

Odklenite Excel Magic z Kutools AI

• Pametna izvedba: Izvajajte celične operacije, analizirajte podatke in ustvarjajte grafikone – vse poganjajo preprosti ukazi.
• Formule po meri: Ustvarite prilagojene formule za poenostavitev delovnih tokov.
• Kodiranje VBA: Napišite in implementirajte kodo VBA brez truda.
• Razlaga formule: Z lahkoto razumejte zapletene formule.
• Prevajanje besedila: Odpravite jezikovne ovire v vaših preglednicah.

Izboljšajte svoje zmogljivosti Excela z orodji, ki jih poganja AI. Prenesi zdaj in izkusite učinkovitost kot še nikoli prej!

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: