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.
Wählen Sie jede zweite oder n-te Zeile, Spalte aus und löschen Sie sie auf einmal
Die Funktion „Intervallzeilen & -spalten auswählen“ von Kutools für Excel kann Ihnen helfen, jede zweite oder n-te Zeile oder Spalte zu finden und auszuwählen, und dann können Sie einige Operationen durchführen, die Sie benötigen. Klicken Sie hier, um Kutools für Excel herunterzuladen!
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!
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins