Wie sortiere ich mehrere Zeilen oder Spalten gleichzeitig in Excel?
In Excel können Sie die Sortierfunktion anwenden, um nur eine Zeile oder Spalte in einem Spaltenbereich zu sortieren. Wenn Sie jedoch mehrere Zeilen oder Spalten gleichzeitig sortieren müssen, wird der folgende Screenshot angezeigt. Gibt es schnelle Möglichkeiten, diese Aufgabe in Excel zu lösen?
Sortieren Sie mehrere Spalten gleichzeitig unabhängig mit VBA-Code
Sortieren Sie mehrere Zeilen gleichzeitig mit VBA-Code
Sortieren Sie mehrere Spalten gleichzeitig unabhängig mit VBA-Code
Um mehrere Spalten unabhängig voneinander in aufsteigender Reihenfolge zu sortieren, kann der folgende VBA-Code hilfreich sein. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Mehrere Spalten gleichzeitig unabhängig voneinander 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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie anhand der einzelnen Spalten sortieren möchten. Siehe Screenshot:
4. Und dann klick OKwurden alle Spalten auf einmal abhängig sortiert, siehe Screenshot:
Sortieren Sie mehrere Zeilen gleichzeitig mit VBA-Code
Wenn Sie mehrere Zeilen unabhängig voneinander sortieren möchten, finden Sie hier auch einen VBA-Code für Sie.
1. Wählen Sie die Daten aus, die Sie nach den einzelnen Zeilen sortieren möchten.
2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Sortieren Sie mehrere Zeilen gleichzeitig unabhängig voneinander:
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. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, die Daten in jeder Zeile wurden sofort sortiert, siehe Screenshot:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!