Direkt zum Inhalt

Wie lösche ich schnell jede zweite Zeile in Excel?

Wenn Sie jede andere Zeile oder Spalte in Excel schnell löschen möchten, ist der wichtigste Punkt, wie Sie schnell jede andere Zeile oder Spalte zuerst auswählen und dann den Löschvorgang auf sie anwenden können. In diesem Artikel erfahren Sie, wie Sie zuerst jede zweite Zeile oder Spalte auswählen und dann schnell löschen können.

Löschen Sie jede zweite Zeile in Excel mit dem Befehl Filter

Löschen Sie jede zweite Zeile in Excel mit VBA-Code

Löschen Sie jede andere Zeile oder Spalte in Excel mit Kutools for Excel


Pfeil blau rechte Blase Löschen Sie jede zweite Zeile in Excel mit dem Befehl Filter

Microsoft Excel Filter Mit dem Befehl können Sie jede zweite Zeile schnell filtern und dann sofort löschen. Gehen Sie dazu wie folgt vor:

1. Geben Sie in eine leere Spalte neben den Originaldaten ein 0,1,0,1…, 0,1. In diesem Fall geben wir die Zahlen in die Hilfsspalte C ein. Siehe folgenden Screenshot:

2. Wählen Sie die Spalte C aus und klicken Sie auf Filter Schaltfläche unter Datum Tab. Klicken Sie dann auf die Pfeilschaltfläche neben C1 und überprüfen Sie nur die 0 unter dem Alle auswählen Möglichkeit. Siehe Screenshot:

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

doc-lösche-jede-andere-zeile5 -2 doc-lösche-jede-andere-zeile12

4. Zuletzt können Sie die Hilfsspalte C nach Bedarf löschen.


Wählen Sie jede andere oder n-te Zeile und Spalte aus und löschen Sie sie sofort

Kutools for Excel's Wählen Sie Intervallzeilen und -spalten Das Dienstprogramm kann Ihnen dabei helfen, jede andere oder n-te Zeile oder Spalte zu finden und auszuwählen. Anschließend können Sie nach Bedarf einige Vorgänge ausführen. Klicken Sie hier, um Kutools für Excel herunterzuladen!


Pfeil blau rechte Blase Löschen Sie jede zweite Zeile in Excel mit VBA-Code

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

1. Halten Sie die Andere + F11 Tasten in Excel, und es öffnet sich die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.

VBA-Code: Löschen Sie jede zweite Zeile in der Auswahl:

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 auf F5 Schlüssel zum Ausführen dieses Makros. Anschließend wird ein Dialogfeld zur Auswahl eines Bereichs angezeigt. Siehe Screenshot:

4. Dann klick OKwird jede zweite Zeile im ausgewählten Bereich aus der zweiten Zeile sofort gelöscht, siehe Screenshot:

doc-lösche-jede-andere-zeile5 -2 doc-lösche-jede-andere-zeile12

Pfeil blau rechte Blase Löschen Sie jede andere Zeile oder Spalte in Excel mit Kutools for Excel

Für einen Anfänger von Microsoft Excel ist die Verwendung des VBA-Makros etwas kompliziert. Das Wählen Sie Intervallzeilen und -spalten Nutzen von Kutools for Excel kann Ihnen helfen, jede zweite Zeile schnell zu löschen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Wählen Sie den Bereich aus, in dem Sie alle anderen Zeilen löschen möchten, und wenden Sie dieses Dienstprogramm an, indem Sie auf klicken Kutoolen > Auswählen > Wählen Sie Intervallzeilen und -spalten….

2. Im Wählen Sie Intervallzeilen und -spalten Geben Sie im Dialogfeld die Einstellungen wie folgt ein und klicken Sie auf OK Schaltfläche, um zuerst alle anderen Zeilen auszuwählen.

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

4. Anschließend können Sie alle ausgewählten Zeilen schnell löschen, indem Sie auf klicken Home > Löschen > Blattzeilen löschen um alle diese Zeilen zu löschen. Siehe Screenshots:

doc-lösche-jede-andere-zeile5 -2 doc-lösche-jede-andere-zeile12

Klicken Sie hier, um mehr über diese Funktion zum Auswählen von Intervallzeilen und -spalten zu erfahren.

Mit dieser Funktion können Sie auch alle n-ten Zeilen oder Spalten nach Bedarf löschen.

Kutools für Excel jetzt herunterladen und kostenlos testen!


Pfeil blau rechte BlaseDemo: Löschen Sie jede zweite Zeile oder Spalte mit Kutools for Excel

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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 ...

Beschreibung


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!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
An easy way to put 0 or 1 in the column instead is to add a formula column: =IF(MOD(ROW(), 2) = 0, 0, 1). That might help if you'd rather not type 0,1,01, etc.
This comment was minimized by the moderator on the site
another way is to add a new column in front of your data, so column A is blank, then just enter a b a b a b as you go down the rows in column A - so "a" in A1, "b" in A2, "a" in A3, "b" in A4. then you can drag the new "a" and "b" cells down for all rows of data. then sort column A alphabetically, and you get all the odd rows with an "a" at the top and all the even rows with a "b" at the bottom. this is probably the easiest way.
This comment was minimized by the moderator on the site
You're genious :)
This comment was minimized by the moderator on the site
Easiest? How is that different from the 0,1 method? ;-)
This comment was minimized by the moderator on the site
This is actually very useful if you have a large number of rows and can't enter the 2 settings in manually. if you drag 0,1 down, it continues to 2, 3, 4...but if you drag a,b down, it will repeat as a,b,a,b...all the way down. Thanks!
This comment was minimized by the moderator on the site
That would be great, except column C is all 0
This comment was minimized by the moderator on the site
This is really really helpful. thanks
This comment was minimized by the moderator on the site
Great trick...thank you. I love simple sneaky tricks like this
This comment was minimized by the moderator on the site
This was really helpful. thanks,
This comment was minimized by the moderator on the site
In cell B1: =row(A1) Drag this down all of column B. In cell C1: =mod(B1,2) Drag this down all of column C. Apply a filter and in column C select all 0s or 1s as required.
This comment was minimized by the moderator on the site
Richarddddd, Sneaky! I like that, and it was useful to me today. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations