Wie sortiert man mehrere Zeilen oder Spalten gleichzeitig unabhängig voneinander in Excel?

In Excel können Sie die Sortierfunktion anwenden, um nur eine Zeile oder Spalte in einem Bereich von Spalten zu sortieren. Wenn Sie jedoch mehrere Zeilen oder Spalten gleichzeitig unabhängig voneinander sortieren müssen, wie im folgenden Screenshot gezeigt, gibt es dann schnelle Möglichkeiten, diese Aufgabe in Excel zu lösen?

Mehrere Spalten gleichzeitig unabhängig mit VBA-Code sortieren

Mehrere Zeilen gleichzeitig unabhängig mit VBA-Code sortieren

Mehrere Spalten gleichzeitig unabhängig mit VBA-Code sortieren

Um mehrere Spalten gleichzeitig unabhängig in aufsteigender Reihenfolge zu sortieren, kann der folgende VBA-Code helfen. Bitte gehen Sie wie folgt vor:

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 in das Modulfenster ein.

VBA-Code: Mehrere Spalten gleichzeitig unabhängig sortieren:

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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Dialogfeld erscheint, das Sie auffordert, den Datenbereich auszuwählen, den Sie basierend auf jeder Spalte sortieren möchten, siehe Screenshot:

4. Klicken Sie dann auf OK, und jede Spalte wurde sofort unabhängig sortiert, siehe Screenshot:

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!

Mehrere Zeilen gleichzeitig unabhängig mit VBA-Code sortieren

Wenn Sie mehrere Zeilen unabhängig voneinander sortieren möchten, hier ist ebenfalls ein VBA-Code für Sie.

1. Wählen Sie die Daten aus, die Sie basierend auf jeder Zeile sortieren möchten.

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

3. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Mehrere Zeilen gleichzeitig unabhängig sortieren:

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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und die Daten in jeder Zeile wurden sofort sortiert, siehe Screenshot: