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

Hoe gegevens op meerdere werkbladen tegelijk sorteren?

In Excel kunnen we gegevens in een werkblad snel en gemakkelijk sorteren op basis van een specifieke kolom, maar heb je ooit geprobeerd de gegevens op meerdere werkbladen te sorteren? Om ze een voor een te sorteren, zal tijdrovend zijn, in dit artikel zal ik een eenvoudige manier introduceren om het op te lossen.

Sorteer gegevens op meerdere werkbladen tegelijk met VBA-code


pijl blauw rechts bel Sorteer gegevens op meerdere werkbladen tegelijk met VBA-code

Om gegevens te sorteren op basis van één kolom in alle bladen van uw werkmap, kan de volgende VBA-code u helpen.

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 gegevens op meerdere werkbladen tegelijk:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, alle bladen met dezelfde opmaak zijn gesorteerd op basis van kolom E van elk blad in aflopende volgorde tegelijk.

Opmerking:: In de bovenstaande code, A: F is het gegevensbereik dat u wilt sorteren, E is de kolomletter waarop u wilt sorteren op basis van.


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
Werkt niet ...
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik dit voor meerdere kolommen laten werken. Ik probeer sommige te sorteren op de K-kolom en sommige op de M-kolom en ik weet de exacte bladnummers. Mijn M-kolom (wanneer ik de bovenstaande code gebruik) wordt alleen gesorteerd op K, niet op M, dus daarom werkt het niet. 
Deze opmerking is gemaakt door de moderator op de site
werkte als een tierelier voor mij...bedankt!
Deze opmerking is gemaakt door de moderator op de site
werkt goed, maar hoe kan ik voorkomen dat de koppen (dwz rij 1?)
Deze opmerking is gemaakt door de moderator op de site
Hallo, Lucy,
Om alle bladen te sorteren, exclusief de koprij, past u de onderstaande vba-code toe: (Opmerking: verander de celverwijzingen naar uw behoefte)

Sub SorteerAlle Bladen()
'Bijwerken door' Extendoffice
Dim WS als werkblad
Dim xIntR als geheel getal
ActiveSheet.Bereik ("A1:F1").Selecteer
On Error Resume Next
Application.ScreenUpdating = False
Voor elke WS in werkbladen
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Bereik("A2:F" & xIntR).Sorteersleutel1:=WS.Bereik("A2:A" & xIntR), Order1:=xlDescending
Volgende WS
Application.ScreenUpdating = True
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
In de hoop dat je dit ziet...! Dit werkt wonderwel, maar het bevat cellen met een formule maar geen gegevens, waardoor gaten in de tabbladen ontstaan ​​en de gegevens in de rijen worden verpest. Ik moet die cellen in mijn tabbladen houden terwijl ze namen opzoeken die zijn toegevoegd aan het 'hoofdtabblad'. Ik wil dat het alleen cellen met een echte naam sorteert - een snelle oplossing ???
Deze opmerking is gemaakt door de moderator op de site
Zeer nuttige code Bedankt
Deze opmerking is gemaakt door de moderator op de site
Hey dit is geweldig, heel erg bedankt hiervoor! Mijn enige probleem met deze code is dat deze niet wordt uitgevoerd op mijn eerste blad. Het wordt uitgevoerd op mijn resterende bladen. HOE zou ik dit op alle bladen kunnen laten uitvoeren? Het is alsof de code het eerste blad overslaat. Alle hulp zou zeer op prijs worden gesteld :)
Deze opmerking is gemaakt door de moderator op de site
ik wil de gegevens in meerdere werkboeken splitsen en vervolgens de waarde in een van de kolommen toevoegen.

ik heb de code voorbereid om de gegevens in werkmappen te splitsen .. maar heb hulp nodig bij het toevoegen van het totaal in een van de kolommen
Deze opmerking is gemaakt door de moderator op de site
Kun je dit uitvoeren zonder alle bladen op te nemen? Dwz wat bladen uit de macro laten?
Deze opmerking is gemaakt door de moderator op de site
Dit leek niet te werken voor mij. Ik heb een werkmap met 12 bladen geordend op maanden van het jaar, elk blad met bijbehorende gegevens over bedrijfsproducten enz. Mijn doel is om alle bladen in de werkmap te sorteren en te filteren. Ik zou graag één blad willen hebben dat als bovenliggend blad zou fungeren (bijv. eerste maand van het jaar), waarop ik een filter- of sorteerfunctie zou uitvoeren (bijv. A -> Z sorteren) en automatisch de andere bladen hetzelfde zou laten volgen sorteren of filteren. Als ik bijvoorbeeld het blad met het label "Januari" gebruik als ik bijvoorbeeld kolom "D" kies met de dagen in de maand die ik wil in "oplopende" volgorde - bij het actualiseren van de A -> Z-sortering op het blad "Januari" , ik wil dat dit effect heeft op de rest van alle bladen in de reeks (feb-dec) met alle dagen van de maand gesorteerd A -> Z. Elke wijziging die op het blad "januari" wordt aangebracht met betrekking tot sorteren en filteren, moet de balans van de bladen in de werkmap beïnvloeden.
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