Hoe sorteert u gegevens op meerdere werkbladen tegelijk?

In Excel kunnen we gegevens in een werkblad snel en eenvoudig sorteren op basis van een specifieke kolom, maar hebt u ooit geprobeerd om gegevens over meerdere werkbladen te sorteren? Het één voor één sorteren zou tijdrovend zijn. In dit artikel introduceer ik een eenvoudige manier om dit probleem op te lossen.

Gegevens op meerdere werkbladen tegelijk sorteren met VBA-code

Gegevens op meerdere werkbladen tegelijk sorteren met VBA-code

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

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

VBA-code: Gegevens op meerdere werkbladen tegelijk sorteren:

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 de F5-toets om deze code uit te voeren. Alle werkbladen met dezelfde opmaak zijn nu gesorteerd op kolom E van elk werkblad in aflopende volgorde.

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

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!