Wie kann man schnell jede zweite Zeile in Excel löschen?

Wenn Sie schnell jede zweite Zeile oder Spalte in Excel löschen möchten, ist der Hauptpunkt, wie Sie zuerst jede zweite Zeile oder Spalte schnell auswählen und dann die Löschoperation darauf anwenden können. Dieser Artikel zeigt Ihnen einige Tricks, wie Sie zuerst jede zweite Zeile oder Spalte auswählen und sie dann schnell löschen.

Jede zweite Zeile in Excel mit dem Filterbefehl löschen

Jede zweite Zeile in Excel mit VBA-Code löschen

Jede zweite Zeile oder Spalte in Excel mit Kutools für Excel löschen

Jede zweite Zeile in Excel mit dem Filterbefehl löschen

Der Filterbefehl von Microsoft Excel kann Ihnen helfen, schnell jede zweite Zeile zu filtern und diese dann auf einmal zu löschen. Bitte gehen Sie wie folgt vor:

1. Geben Sie in einer leeren Spalte neben den ursprünglichen Daten 0,1,0,1…,0,1 ein. In diesem Fall geben wir die Zahlen in die Hilfsspalte C ein. Siehe folgenden Screenshot:

2. Wählen Sie Spalte C aus und klicken Sie auf die Schaltfläche Filter unter der Registerkarte Daten. Klicken Sie dann auf die Pfeilschaltfläche neben C1 und aktivieren Sie nur die 0 unter der Option Alle auswählen. Siehe Screenshot:

3. Dann werden alle Zeilen mit 1 ausgeblendet. Wählen Sie die sichtbaren Zeilen mit 0 aus und klicken Sie auf Start > Löschen > Arbeitsblattzeilen löschen, um diese Zeilen zu löschen. Dann wird jede zweite Zeile gelöscht, und Sie müssen erneut auf die Schaltfläche Filter klicken, um nur die Zeilen mit 1 anzuzeigen. Siehe Screenshots:

4. Schließlich können Sie die Hilfsspalte C bei Bedarf löschen.

Jede zweite Zeile in Excel mit VBA-Code löschen

Tatsächlich ist ein VBA-Makro auch eine gute Wahl, um dieses Problem zu lösen.

1. Halten Sie die Tasten Alt + F11 in Excel gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2.  Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Jede zweite Zeile in der Auswahl löschen:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Drücken Sie die Taste F5, um dieses Makro auszuführen. Dann erscheint ein Dialogfeld zur Auswahl eines Bereichs. Siehe Screenshot:

4.  Klicken Sie dann auf OK, und jede zweite Zeile im ausgewählten Bereich ab der zweiten Zeile wird sofort gelöscht. Siehe Screenshot:

Jede zweite Zeile oder Spalte in Excel mit Kutools für Excel löschen

Für einen Anfänger in Microsoft Excel ist die Verwendung eines VBA-Makros etwas kompliziert. Die Funktion „Intervallzeilen & -spalten auswählen“ von Kutools für Excel kann Ihnen helfen, jede zweite Zeile schnell zu löschen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie den Bereich aus, in dem Sie jede zweite Zeile löschen möchten, und wenden Sie dieses Hilfsprogramm an, indem Sie auf Kutools > Auswählen > Intervallzeilen & -spalten… klicken.

2. Geben Sie im Dialogfeld „Intervallzeilen & -spalten auswählen“ die Einstellungen wie im folgenden Screenshot gezeigt an, und klicken Sie auf die Schaltfläche OK, um zuerst jede zweite Zeile auszuwählen.

3. Dann wird jede zweite Zeile in der Auswahl ausgewählt und hervorgehoben. Siehe Screenshot:

4. Dann können Sie die ausgewählten Zeilen schnell löschen, indem Sie auf Start > Löschen > Arbeitsblattzeilen löschen klicken, um all diese Zeilen zu löschen. Siehe Screenshots:

Mit dieser Funktion können Sie auch jede n-te Zeile oder Spalte nach Bedarf löschen.

Jetzt Kutools für Excel herunterladen und kostenlos testen!