Wie sortiert man Daten auf mehreren Arbeitsblättern gleichzeitig?

In Excel können wir Daten in einem Arbeitsblatt schnell und einfach basierend auf einer bestimmten Spalte sortieren. Haben Sie jemals versucht, Daten über mehrere Arbeitsblätter hinweg zu sortieren? Das Sortieren von jedem einzeln wäre zeitaufwendig. In diesem Artikel stelle ich eine einfache Lösung dafür vor.

Daten auf mehreren Arbeitsblättern gleichzeitig mit VBA-Code sortieren

Daten auf mehreren Arbeitsblättern gleichzeitig mit VBA-Code sortieren

Um Daten basierend auf einer Spalte in allen Blättern Ihrer Arbeitsmappe zu sortieren, kann Ihnen der folgende VBA-Code helfen.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Daten auf mehreren Arbeitsblättern gleichzeitig sortieren:

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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Alle Blätter mit dem gleichen Format wurden basierend auf Spalte E jedes Blatts in absteigender Reihenfolge gleichzeitig sortiert.

Hinweis: Im obigen Code ist A:F der Datenbereich, den Sie sortieren möchten, und E ist der Spaltenbuchstabe, nach dem Sie sortieren möchten.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!