Note: The other languages of the website are Google-translated. Back to English

Hoe meerdere rijen of kolommen onafhankelijk tegelijk sorteren in Excel?

In Excel kunt u de sorteerfunctie toepassen om slechts één rij of kolom in een reeks kolommen te sorteren, maar als u meerdere rijen of kolommen tegelijk onafhankelijk moet sorteren om de volgende schermafbeelding te laten zien. Zijn er snelle manieren om deze taak in Excel op te lossen?

doc sorteer meerdere kolommen 1

Sorteer meerdere kolommen tegelijk onafhankelijk met VBA-code

Sorteer meerdere rijen onafhankelijk tegelijk met VBA-code


pijl blauw rechts bel Sorteer meerdere kolommen tegelijk onafhankelijk met VBA-code

Om meerdere kolommen onafhankelijk in oplopende volgorde te sorteren, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: Sorteer meerdere kolommen onafhankelijk van elkaar tegelijk:

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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u wilt sorteren op basis van elke kolom, zie screenshot:

doc sorteer meerdere kolommen 2

4. En klik vervolgens op OK, elke kolom is in één keer afhankelijk van elkaar gesorteerd, zie screenshot:

doc sorteer meerdere kolommen 1


pijl blauw rechts bel Sorteer meerdere rijen onafhankelijk tegelijk met VBA-code

Als u meerdere rijen onafhankelijk van elkaar wilt sorteren, is hier ook een VBA-code voor u.

1. Selecteer de gegevens die u wilt sorteren op basis van elke rij.

doc sorteer meerdere kolommen 3

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: Sorteer meerdere rijen onafhankelijk van elkaar tegelijk:

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. Druk vervolgens op F5 sleutel om deze code uit te voeren, de gegevens in elke rij zijn in één keer gesorteerd, zie screenshot:

doc sorteer meerdere kolommen 4


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (11)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Wanneer ik de kolommen probeer te sorteren, worden gegevens buiten het afgebakende bereik gesorteerd! Waarom is dit?
Deze opmerking is gemaakt door de moderator op de site
Het werkt geweldig! bedankt !
Deze opmerking is gemaakt door de moderator op de site
Cómo puedo ordernar por colour múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
Deze opmerking is gemaakt door de moderator op de site
Ik vind dit geweldig, ik ben benieuwd naar de functionaliteit van het sorteren op kleur voor elke kolom afzonderlijk. Ik heb dit geprobeerd maar het werkte niet:


Dim xRg als bereik
Dim yRg als bereik
Dim ws Als werkblad
Stel ws = ActiveSheet in
On Error Resume Next
Stel xRg = Application.InputBox in (Prompt:="Bereikselectie:", _
Titel:="Kutools voor Excel", Type:=8)
Application.ScreenUpdating = False
Voor elke yRg In xRg
Met ws.Sort
.Sorteervelden.Wissen
.SortFields.Toevoegen sleutel:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormaal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Kop = xlNee
.MatchCase = False
.Toepassen
Eindigt met
Volgende jaarRg
Application.ScreenUpdating = True
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hartelijk dank hiervoor. Het heeft echt geholpen. Ik zou ook graag willen weten hoe ik op kleur kan sorteren. Ik heb 26 kolommen, elk met verschillende soorten items die worden geïdentificeerd door de letterkleur. Ik wil alle kolommen afzonderlijk alfabetiseren, maar in een specifieke kleurvolgorde. Hoe doe ik dit?
Deze opmerking is gemaakt door de moderator op de site
Je hebt me zojuist een aantal hoofdpijnen bespaard met deze oplossing! Heel erg bedankt!
Deze opmerking is gemaakt door de moderator op de site
uitstekende post, heel erg bedankt!
Deze opmerking is gemaakt door de moderator op de site
асибо ебе еловек!!
Deze opmerking is gemaakt door de moderator op de site
Mijn gegevens variëren van 0-100; Wanneer ik meerdere rijen tegelijk probeer te sorteren, begint het de gegevens met de 100's en sorteert de rest numeriek van het minst naar het grootste, waarbij de 100's aan de minste kant van het bereik worden geplaatst. Hoe kan ik dit oplossen?
Deze opmerking is gemaakt door de moderator op de site
Update; Ik heb me gerealiseerd dat het alleen op het eerste cijfer van het nummer sorteert - Hoe kan ik ervoor zorgen dat het op het hele nummer sorteert?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Devyn,
De code werkt goed in mijn werkblad. Kunt u hier uw Excel-bestand of gegevensscreenshot uploaden? Zodat we kunnen helpen om te controleren waar het probleem zit?
Dank je!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL