Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako razvrstiti več vrstic ali stolpcev hkrati v Excelu?

V Excelu lahko uporabite funkcijo »Sortiraj«, če želite razvrstiti samo eno vrstico ali stolpec v razponu stolpcev, če pa želite, da se prikaže naslednji prikaz zaslona, ​​morate hkrati razvrstiti več vrstic ali stolpcev hkrati. Ali obstajajo kakšni hitri načini rešitve te naloge v Excelu?

doc sortiranje več stolpcev 1

Razvrsti več stolpcev hkrati s kodo VBA

Razvrstite več vrstic hkrati s kodo VBA


puščica modra desno mehurček Razvrsti več stolpcev hkrati s kodo VBA


Če želite razvrstiti več stolpcev neodvisno v naraščajočem vrstnem redu, vam lahko pomagajo naslednja koda VBA, storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

Kodo VBA: hkrati razvrstite več stolpcev:

Sub SortIndividualJR()
'Updateby Extendoffice 20161123
    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 ključ za zagon te kode in izpisano polje za hitro klicanje, ki vas opomni, da izberete obseg podatkov, ki ga želite razvrstiti na podlagi vsakega stolpca. Oglejte si posnetek zaslona:

doc sortiranje več stolpcev 2

4. In nato kliknite OK, so bili vsi stolpci hkrati razvrščeni odvisno, glejte sliko zaslona:

doc sortiranje več stolpcev 1


puščica modra desno mehurček Razvrstite več vrstic hkrati s kodo VBA

Če želite samostojno razvrščati več vrstic, tukaj je tudi kodo VBA za vas.

1. Izberite podatke, ki jih želite razvrščati glede na vsako vrstico.

doc sortiranje več stolpcev 3

2. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

Kodo VBA: hkratno razvrstite več vrstic neodvisno:

Sub SortIndividualR()
'Updateby Extendoffice 20161123
    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 Če želite zagnati to kodo, so podatki v vsaki vrstici hkrati razvrščeni, glejte sliko zaslona:

doc sortiranje več stolpcev 4


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    EVAN · 2 months ago
    I love this, I'm curious as to the functionality of sorting by color for each column individually. I tried this but it didn't work:


    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, _
    SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
    .SetRange ws.Range(yRg, yRg.End(xlDown))
    .Header = xlNo
    .MatchCase = False
    .Apply
    End With
    Next yRg
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Kevin · 3 months ago
    ¿Cómo puedo ordenar por color múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
  • To post as a guest, your comment is unpublished.
    Chris · 4 months ago
    When I try to sort the columns it sorts data outside of the sected range! Why is this?