So löschen Sie jede andere Zeile in Excel (oder jede N-te Zeile)

Video ansehen - Löschen Sie jede andere Zeile in Excel

Manchmal müssen Sie möglicherweise jede zweite Zeile (d. h. alternative Zeilen) oder jede dritte / vierte / fünfte Zeile in Excel löschen.

Ein Anwendungsfall hierfür könnte sein, wenn Sie wöchentliche Daten haben und die Daten nur für gerade Wochen oder ungerade Wochen benötigen. Ein anderer könnte sein, wenn Sie einen Datendump aus einer Datenbank erhalten und alle nützlichen Daten nur in jeder zweiten oder dritten Zeile vorhanden sind.

Sie haben zwar immer die Möglichkeit, Zeilen manuell auszuwählen und zu löschen, dies ist jedoch bei einem großen Dataset ineffizient.

Es gibt bessere Möglichkeiten, dies zu tun.

In diesem Tutorial zeige ich Ihnen einige Möglichkeiten, jede zweite Zeile in Excel mit einer einfachen Filtertechnik zu löschen. Und wenn Sie mit der Verwendung eines VBA-Makrocodes cool sind, habe ich auch einen kurzen VBA-Code angegeben, der dies mit einem einzigen Klick erledigt. Die Methoden werden in dieser Tutorialarbeit für alle Excel-Versionen (2007, 2010, 2013 und 2016) gezeigt.

Während das Löschen jeder zweiten Zeile in Excel recht einfach sein kann, kann es eine Herausforderung sein, jede zweite Spalte zu löschen. Dies liegt daran, dass Sie in Excel keine Spalten filtern können (wie Sie Zeilen filtern können). Im letzten Abschnitt dieses Tutorials zeige ich Ihnen auch einige Möglichkeiten zum Löschen alternativer Spalten (oder jeder N-ten Spalte) in Excel.

Löschen Sie jede andere Zeile durch Filtern des Datasets (mit einer Formel)

Wenn Sie alle geraden oder ungeraden Zeilen irgendwie filtern könnten, wäre es super einfach, diese Zeilen/Datensätze zu löschen.

Obwohl hierfür keine integrierte Funktion vorhanden ist, können Sie eine Hilfsspalte verwenden, um die Zeilen zuerst in ungerade und gerade zu unterteilen und dann basierend auf dem Wert der Hilfsspalte zu filtern.

Angenommen, Sie haben ein Dataset wie unten gezeigt, das Verkaufsdaten für jeden Vertriebsmitarbeiter für zwei Regionen (USA und Kanada) enthält, und Sie möchten die Daten für Kanada löschen.

Nachfolgend finden Sie die Schritte zum Filtern und Löschen jeder zweiten Zeile (die Daten für Kanada enthält):

1. Geben Sie in die Zelle neben der letzten Spaltenüberschrift den Text ein HelferSpalte (oder einen beliebigen Kopfzeilentext, den die Hilfsspalte haben soll)
2. Geben Sie in die Zelle unter der Überschrift der Hilfsspalte die folgende Formel ein: =AUSGEBEN(ZEILE()). Kopieren Sie diese Formel für alle Zellen. Diese Formel gibt TRUE für alle geraden Zeilen und FALSE für alle UNGERADE Zeilen zurück
3. Wählen Sie den gesamten Datensatz aus (einschließlich der Zellen, in die wir die Formel im obigen Schritt eingegeben haben).
4. Klicken Sie auf die Registerkarte Daten
5. Klicken Sie auf das Filtersymbol. Dadurch wird ein Filter auf alle Header im Datensatz angewendet
6. Klicken Sie in der Zelle HelperColumn auf das Symbol Filter.
7. Deaktivieren Sie die Option WAHR (damit wird nur die Option FALSCH ausgewählt)
8. OK klicken. Dadurch werden die Daten gefiltert und nur die Datensätze angezeigt, bei denen der HelperColumn-Wert FALSE ist.
9. Wählen Sie alle gefilterten Zellen in der Hilfsspalte aus (mit Ausnahme der Kopfzeile).
10. Klicken Sie mit der rechten Maustaste auf eine der ausgewählten Zellen und klicken Sie auf "Zeile löschen".
11. Klicken Sie im sich öffnenden Dialogfeld auf OK. Dadurch werden alle sichtbaren Datensätze gelöscht und Sie sehen ab jetzt nur die Kopfzeile.
12. Klicken Sie auf die Registerkarte Daten und dann auf das Symbol Filter. Dadurch wird der Filter entfernt und Sie können alle verbleibenden Datensätze sehen.

Die obigen Schritte filtern jede zweite Zeile im Dataset und löscht dann diese Zeilen.

Machen Sie sich zu diesem Zeitpunkt keine Sorgen um die Werte der Hilfsspalten. Die resultierenden Daten enthalten nur die Zeilen für die USA und alle Kanada-Zeilen werden gelöscht. Sie können die Hilfsspalte jetzt löschen.

Falls Sie jede zweite Zeile ab der ersten Zeile löschen möchten, wählen Sie in Schritt 7 die Option TRUE und deaktivieren Sie die Option FALSE.

Hinweis: Wenn Sie die Zeilen in Excel mit der obigen Methode löschen, werden auch alle Daten gelöscht, die Sie möglicherweise insgesamt haben (außer denen im Datensatz). Stellen Sie bei dieser Methode sicher, dass sich links und rechts neben dem zu löschenden Dataset nichts befindet.

Obwohl die obige Methode großartig ist, hat sie zwei Nachteile:

1. Sie müssen eine neue Spalte hinzufügen (die HelferSpalte in unserem Beispiel oben)
2. Es kann zeitaufwändig sein, wenn Sie alternative Zeilen oft löschen müssen

Zugehöriges Tutorial: Zeilen basierend auf einem Zellenwert (oder einer Bedingung) in Excel löschen

Löschen Sie jede n-te Zeile durch Filtern des Datasets (mit einer Formel)

In der obigen Methode habe ich Ihnen gezeigt, wie Sie jede zweite Zeile (alternative Zeile) in Excel löschen.

Und Sie können dieselbe Logik verwenden, um auch jede dritte oder vierte Zeile in Excel zu löschen.

Angenommen, Sie haben einen Datensatz wie unten gezeigt und möchten jede dritte Zeile löschen.

Die Schritte zum Löschen jeder dritten Zeile sind fast die gleichen wie im obigen Abschnitt (zum Löschen alternativer Zeilen). Der einzige Unterschied besteht in der in Schritt 2 verwendeten Formel.

Im Folgenden sind die Schritte dazu aufgeführt:

1. Geben Sie in die Zelle neben der letzten Spaltenüberschrift den Text ein HelferSpalte (oder einen beliebigen Kopfzeilentext, den die Hilfsspalte haben soll)
2. Geben Sie in die Zelle unter der Überschrift der Hilfsspalte die folgende Formel ein: =MOD(ZEILE(),3)=1. Diese Formel gibt TRUE für jede dritte Zeile und FALSE für jede zweite Zeile zurück.
3. Wählen Sie den gesamten Datensatz aus (einschließlich der Zellen, in die wir die Formel im obigen Schritt eingegeben haben).
4. Klicken Sie auf die Registerkarte Daten
5. Klicken Sie auf das Filtersymbol. Dadurch wird ein Filter auf alle Header im Datensatz angewendet
6. Klicken Sie in der Zelle HelperColumn auf das Symbol Filter.
7. Deaktivieren Sie die Option WAHR (damit wird nur die Option FALSCH ausgewählt)
8. OK klicken. Dadurch werden die Daten gefiltert und nur die Datensätze angezeigt, bei denen der HelperColumn-Wert FALSE ist.
9. Wählen Sie alle Zellen in der Hilfsspalte aus
10. Klicken Sie mit der rechten Maustaste auf eine der ausgewählten Zellen und klicken Sie auf Zeile löschen
11. Klicken Sie im sich öffnenden Dialogfeld auf OK. Dadurch werden alle sichtbaren Datensätze gelöscht und Sie sehen ab jetzt nur die Kopfzeile.
12. Klicken Sie auf die Registerkarte Daten und dann auf das Symbol Filter. Dadurch wird der Filter entfernt und Sie können alle verbleibenden Datensätze sehen.

Die obigen Schritte würden jede dritte Zeile aus dem Dataset löschen und Sie erhalten die resultierenden Daten wie unten gezeigt.

Machen Sie sich zu diesem Zeitpunkt keine Sorgen um die Werte der Hilfsspalten. Sie können die Helferspalte jetzt löschen.

Die in Schritt 2 verwendete Formel verwendet die MOD-Funktion - die den Rest ergibt, wenn eine Zahl durch die andere geteilt wird. Hier habe ich die ROW-Funktion verwendet, um die Zeilennummer zu erhalten, und sie wird durch 3 geteilt (weil wir jede dritte Zeile löschen möchten).

Da unser Datensatz ab der zweiten Zeile beginnt (d. h. Zeile #2 enthält den ersten Datensatz), verwende ich die folgende Formel:=MOD(ZEILE(),3)=1

Ich setze es mit 1 gleich und für jede dritte Zeile gibt die MOD-Formel den Rest als 1.

Sie können die Formel entsprechend anpassen. Wenn beispielsweise der erste Datensatz Ihres Datasets ab der dritten Zeile beginnt, lautet die Formel: =MOD(REIHE(),3)=2

Löschen Sie automatisch jede andere Zeile (oder N-te Zeile) mit VBA-Makro (Schnellmethode)

Wenn Sie häufig jede zweite Zeile (oder jede n-te Zeile) löschen müssen, können Sie einen VBA-Code verwenden und ihn in der Symbolleiste für den Schnellzugriff verfügbar haben. Auf diese Weise können Sie schnell alternative Zeilen mit einem einzigen Klick löschen.

Unten sehen Sie den Code, der Sie zuerst auffordert, den Bereich auszuwählen, in dem Sie alternative Zeilen löschen möchten, und dann jede zweite Zeile im ausgewählten Dataset zu löschen.

Sub Delete_Every_Other_Row() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Then Rng.Rows(i).Delete End If Next i End Sub

Wenn Sie den obigen Code ausführen, werden Sie zuerst aufgefordert, den Zellbereich auszuwählen. Sobald Sie die Auswahl getroffen haben, wird jede Zeile durchgegangen und jede zweite Zeile gelöscht.

Wenn Sie stattdessen jede dritte Zeile löschen möchten, können Sie den folgenden Code verwenden:

Sub Delete_Every_Third_Row() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Then Rng.Rows(i).Delete End If Next i End Sub

Wo soll dieser VBA-Makrocode abgelegt werden?

Sie müssen diesen Code in einem regulären Modul im VB-Editor in Excel platzieren.

Unten sind die Schritte zum Öffnen des Vb-Editors, Hinzufügen eines Moduls und Platzieren des Codes darin:

1. Kopieren Sie den obigen VBA-Code.
2. Wechseln Sie zur Registerkarte Entwickler.
3. Klicken Sie auf Visual Basic.
4. Klicken Sie im VB-Editor mit der rechten Maustaste auf eines der Arbeitsmappenobjekte.
5. Gehen Sie zu Einfügen und klicken Sie auf Modul.
6. Fügen Sie im Modul den obigen VBA-Code ein.
7. Schließen Sie den VB-Editor.

Sobald Sie den Code im VB-Editor haben, können Sie den Code mit den folgenden Methoden ausführen:

• Führen Sie ein Makro aus dem VB-Editor aus (indem Sie auf die grüne Wiedergabeschaltfläche in der VB-Editor-Symbolleiste klicken)
• Durch Platzieren des Cursors auf einer beliebigen Zeile im Code und Drücken der Taste F5
• Durch Zuweisen des Makros zu einer Schaltfläche/Form
• Durch Hinzufügen des Makros zur Symbolleiste für den Schnellzugriff

Hier ist ein detailliertes Tutorial zum Ausführen eines Makros in Excel.

Wenn Sie dies häufig tun müssen, können Sie den VBA-Code zur persönlichen Makroarbeitsmappe hinzufügen. Auf diese Weise steht es Ihnen immer zur Verwendung in allen Arbeitsmappen zur Verfügung.

Wenn Sie einen VBA-Code in einer Arbeitsmappe haben, müssen Sie ihn als Makro-aktiviertes Feld (mit der Erweiterung .XLSM) speichern.

Hinweis: Da alle vom VBA-Code vorgenommenen Änderungen irreversibel sind, erstellen Sie am besten zuerst eine Sicherungskopie der Arbeitsmappe/des Arbeitsblatts und führen Sie dann diesen Code aus.

Löschen Sie jede andere Spalte (oder jede N-te Spalte)

Das Löschen jeder alternativen Zeile oder jeder dritten/vierten Zeile ist einfach, da Sie die Filteroption verwenden können. Sie müssen lediglich eine Formel verwenden, die alternative Zeilen (oder jede dritte/vierte Zeile) identifiziert und diese Zeilen filtert.

Leider funktioniert dieselbe Methode nicht mit Spalten – da Sie Spalten nicht so filtern können, wie Sie Zeilen filtern.

Wenn Sie also jede zweite Spalte (oder jede dritte/vierte/n-te Spalte) löschen müssen, müssen Sie etwas kreativer sein.

In diesem Abschnitt zeige ich Ihnen zwei Methoden, mit denen Sie jede zweite Spalte in Excel löschen können (und Sie können dieselbe Methode verwenden, um jede dritte/vierte/n-te Spalte zu löschen, wenn Sie möchten).

Löschen Sie alternative Spalten mithilfe von Formeln und Sortiermethode

Angenommen, Sie haben einen Datensatz wie unten gezeigt und möchten jede andere Spalte löschen (mit Ausnahme der Kopfspalte A).

Der Trick hier wäre, alternative Spalten mithilfe einer Formel zu identifizieren und die Spalten dann basierend auf dieser Formel zu sortieren. Sobald Sie die sortierten Spalten zusammen haben, können Sie diese manuell auswählen und löschen.

Unten sind die Schritte zum Löschen jeder anderen Spalte in Excel:

1. Fügen Sie eine Zeile über der Kopfzeile ein (klicken Sie mit der rechten Maustaste auf eine beliebige Zelle in der Kopfzeile, klicken Sie auf Einfügen und dann auf die Option Ganze Zeile)
2. Geben Sie die folgende Formel in die Zelle über der Spalte ganz links im Datensatz ein und kopieren Sie sie für alle Zellen: =MOD(SPALTE(),2)
3. Wandeln Sie die Formelwerte in Zahlen um. Kopieren Sie dazu die Zellen, klicken Sie mit der rechten Maustaste und gehen Sie zu Inhalte einfügen -> Werte einfügen.
4. Wählen Sie das gesamte Dataset aus (mit Ausnahme aller Überschriften in der Spalte). In diesem Beispiel habe ich B1:G14 gewählt (und NICHT Spalte A)
5. Klicken Sie auf die Registerkarte Daten
6. Klicken Sie auf das Sortieren-Symbol
7. Nehmen Sie im Dialogfeld Sortieren die folgenden Änderungen vor:
   • Klicken Sie auf die Schaltfläche „Optionen“ und im sich öffnenden Dialogfeld auf „Von links nach rechts sortieren“ und dann auf Ok
   • Wählen Sie im Dropdown-Menü Sortieren nach Zeile 1 aus. Dies ist die Zeile mit den Formelergebnissen
   • Wählen Sie in der Dropdown-Liste Reihenfolge die Option Vom Kleinsten zum Größten aus.
8. OK klicken

Die obigen Schritte sortieren alle Spalten und bringen alle alternativen Spalten an einer Stelle (am Ende) zusammen.

Jetzt können Sie alle diese Spalten (für die der Formelwert 1 ist) auswählen und diese löschen.

Obwohl dies nicht die beste Lösung ist, wird die Arbeit dennoch erledigt.

Falls Sie jede dritte Spalte oder jede vierte Spalte löschen möchten, müssen Sie die Formel entsprechend anpassen.

Zugehöriges Tutorial: So sortieren Sie in Excel (nach Zeilen, Spalten, Farben, Datumsangaben und Zahlen)

Löschen Sie alternative Spalten mit VBA

Eine andere schnelle Möglichkeit, alternative Spalten zu löschen, besteht darin, den folgenden VBA-Code zu verwenden:

Sub Delete_Every_Other_Column() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Then Rng.Columns(i).Delete End If Next i End Sub

Der obige Code fordert Sie auf, einen Zellbereich auszuwählen, der die Spalten enthält. Hier müssen Sie die Spalten auswählen, mit Ausnahme derjenigen, die die Überschrift hat.

Sobald Sie den Zellbereich mit den Daten angegeben haben, wird eine For-Schleife verwendet und jede andere Spalte gelöscht.

Falls Sie jede dritte Spalte löschen möchten, können Sie den folgenden Code verwenden (und entsprechend anpassen, um die N-te Spalte zu löschen).

Sub Delete_Every_Third_Column() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Then Rng.Columns(i).Delete End If Next i End Sub

Die Schritte zum Platzieren dieses VBA-Codes und zur Verwendung im obigen Abschnitt mit dem Titel - „Automatisch jede andere Zeile (oder N-te Zeile) mit VBA-Makro (Schnellmethode) löschen“

Ich hoffe, Sie fanden dieses Excel-Tutorial nützlich.