Video ansehen - Leere Zeile nach jeder Zeile in Excel einfügen
Menschen, die mit großen Datensätzen arbeiten, benötigen oft einfache Dinge wie das Einfügen/Löschen von Zeilen oder Spalten.
Während es in Excel bereits viele verschiedene (und einfache) Möglichkeiten gibt, Zeilen hinzuzufügen, wird es beim Einfügen einer leeren Zeile nach jeder zweiten Zeile (oder jeder dritten oder vierten Zeile) etwas kompliziert.
Fügen Sie nach jeder anderen Zeile eine leere Zeile ein
In diesem Tutorial zeige ich Ihnen einige wirklich einfache Möglichkeiten, um nach jeder Zeile im vorhandenen Dataset (oder jeder n-ten Zeile) eine leere Zeile einzufügen.
Da es keine direkte Möglichkeit gibt, Zeilen zwischen Zeilen hinzuzufügen, sind die in diesem Artikel behandelten Methoden Workarounds, um dies zu erreichen. Und wenn Sie mit VBA vertraut sind, können Sie dies mit einem einzigen Klick tun.
Verwenden der Hilfsspalte und der Sortierfunktion
Angenommen, Sie haben ein Dataset wie unten gezeigt und möchten ein Leerzeichen zwischen den vorhandenen Zeilen einfügen.
Im Folgenden sind die Schritte zum Einfügen leerer Zeilen zwischen vorhandenen Zeilen aufgeführt:
- Fügen Sie links neben dem Dataset eine leere Spalte ein. Klicken Sie dazu mit der rechten Maustaste auf den Spaltenkopf der Spalte ganz links und klicken Sie auf Einfügen.
- Geben Sie den Text „HelperColumn“ in A1 ein (Sie können einen beliebigen Text verwenden)
- Geben Sie 1 in Zelle A2 und 2 in Zelle A3 ein.
- Markieren Sie beide Zellen und platzieren Sie den Cursor unten rechts in der Auswahl. Wenn sich der Cursor in ein Plus-Symbol verwandelt, doppelklicken Sie darauf. Dadurch wird die gesamte Spalte mit aufsteigenden Zahlen gefüllt
- Gehen Sie zur letzten gefüllten Zelle in der Hilfsspalte und wählen Sie dann die Zelle darunter aus.
- Geben Sie 1 in diese Zelle und 2 in die Zelle darunter ein
- Markieren Sie beide Zellen und platzieren Sie den Cursor unten rechts in der Auswahl.
- Wenn sich der Cursor in ein Plus-Symbol verwandelt, klicken Sie darauf und ziehen Sie es nach unten. Dadurch wird eine Reihe von Zahlen gefüllt (genau wie in Schritt 3). Stellen Sie sicher, dass Sie mehr Zahlen erhalten, als Sie im Datensatz haben. Wenn das Dataset beispielsweise 10 Datensätze enthält, stellen Sie sicher, dass in diesem Schritt mindestens 10 Zellen ausgefüllt werden. Sobald dies erledigt ist, würde Ihr Dataset wie unten gezeigt aussehen.
- Wählen Sie den gesamten Datensatz aus (einschließlich aller Zellen in der Hilfsspalte).
- Klicken Sie auf die Registerkarte Daten
- Klicken Sie auf die Option Sortieren
- Verwenden Sie im Dialogfeld Sortieren die folgenden Einstellungen:
- Sortieren nach: Helfer
- Sortieren nach: Zellenwert
- Reihenfolge: Vom Kleinsten zum Größten
- OK klicken. Dadurch erhalten Sie den unten gezeigten Datensatz.
- Löschen Sie die Hilfsspalte.
Sobald Sie im Dialogfeld Sortieren auf OK klicken, werden die Zeilen sofort neu angeordnet und Sie haben jetzt nach jeder Zeile Ihres Datasets eine leere Zeile.
In Wirklichkeit ist dies nicht wirklich das Einfügen einer leeren Zeile. Bei dieser Sortiermethode werden die Daten einfach neu angeordnet, indem leere Zeilen von unterhalb des Datasets zwischen die Zeilen im Dataset eingefügt werden.
Sie können die gleiche Logik auch erweitern auf fügen Sie nach jeweils zwei Zeilen oder alle drei Zeilen eine leere Zeile ein.
Angenommen, Sie haben das unten gezeigte Dataset und möchten nach jeweils zwei Zeilen eine leere Zeile erhalten.
Im Folgenden sind die Schritte dazu aufgeführt:
- Fügen Sie links neben dem Dataset eine leere Spalte ein. Klicken Sie dazu mit der rechten Maustaste auf den Spaltenkopf der Spalte ganz links und klicken Sie auf Einfügen.
- Geben Sie den Text „HelperColumn“ in A1 ein (Sie können einen beliebigen Text verwenden)
- Geben Sie 1 in Zelle A2 und 2 in Zelle A3 ein.
- Markieren Sie beide Zellen und platzieren Sie den Cursor unten rechts in der Auswahl. Wenn sich der Cursor in ein Plus-Symbol verwandelt, doppelklicken Sie darauf. Dadurch wird die gesamte Spalte mit aufsteigenden Zahlen gefüllt
- Gehen Sie zur letzten gefüllten Zelle in der Hilfsspalte und wählen Sie dann die Zelle darunter aus.
- Geben Sie 2 in diese Zelle und 4 in die Zelle darunter ein. Wir verwenden Zahlen in Vielfachen von 2, da wir nach jeweils zwei Zeilen eine leere Zeile wünschen.
- Markieren Sie beide Zellen und platzieren Sie den Cursor unten rechts in der Auswahl.
- Wenn sich der Cursor in ein Plus-Symbol verwandelt, klicken Sie darauf und ziehen Sie es nach unten. Dadurch wird eine Reihe von Zahlen gefüllt (genau wie in Schritt 3). Stellen Sie sicher, dass Sie eine Nummer erhalten, die größer ist als die, die Sie im Dataset haben. Wenn der Datensatz beispielsweise 10 Datensätze enthält, stellen Sie sicher, dass Sie mindestens bis zur Zahl 10 kommen.
- Wählen Sie den gesamten Datensatz aus (einschließlich aller Zellen in der Hilfsspalte).
- Klicken Sie auf die Registerkarte Daten
- Klicken Sie auf die Option Sortieren
- Verwenden Sie im Dialogfeld Sortieren die folgenden Einstellungen:
- Sortieren nach: Helfer
- Sortieren nach: Zellenwert
- Reihenfolge: Vom Kleinsten zum Größten
- OK klicken. Dadurch erhalten Sie den endgültigen Datensatz wie unten gezeigt (mit einer leeren Zeile nach jeder zweiten Zeile des Datensatzes).
- Löschen Sie die Hilfsspalte.
Wenn Sie nach jeder dritten Zeile eine leere Zeile einfügen möchten, verwenden Sie in Schritt 5 die Nummern 3, 6, 9 usw.
Verwenden eines einfachen VBA-Codes
Während Sie viele Problemumgehungen benötigen, um alternative leere Zeilen in Excel einzufügen, ist mit VBA alles ein Kinderspiel.
Mit einem einfachen VBA-Code müssen Sie lediglich das Dataset auswählen, in das Sie nach jeder Zeile eine leere Zeile einfügen möchten, und den Code einfach ausführen (erfordert einen einzigen Klick).
Unten ist der VBA-Code, der nach jeder Zeile im Dataset eine leere Zeile einfügt:
Sub InsertAlternateRows() 'Dieser Code fügt eine Zeile nach jeder Zeile in der Auswahl ein 'Dieser Code wurde von Sumit Bansal von trumpexcel.com erstellt Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset(1, 0).EntireRow.Insert ActiveCell.Offset(2, 0).Select Next i End Sub
Der obige Code zählt die Gesamtzahl der Zeilen in der Auswahl und verwendet eine For Next-Schleife, um jede Zeile zu durchlaufen und nach jeder vorhandenen Zeile im Dataset eine leere Zeile einzufügen.
Hier sind die Schritte, um diesen VBA-Code im VB-Editor in Excel zu platzieren:
- Kopiere den obigen Code
- Gehen Sie zur Registerkarte Entwickler und klicken Sie auf die Option Visual Basic. Dies öffnet den VB-Editor. Sie können auch die Tastenkombination verwenden ALT + F11
- Klicken Sie im VB-Editor mit der rechten Maustaste auf ein beliebiges Objekt im Projekt-Explorer
- Bewegen Sie den Cursor über die Option Einfügen und klicken Sie dann auf Modul. Dadurch wird ein neues Modul eingefügt
- Fügen Sie im Fenster Modulcode den obigen Code ein.
Sobald Sie den Code im VB-Editor haben, können Sie diesen Code jetzt verwenden, um nach jeder zweiten Zeile im Dataset leere Zeilen einzufügen.
Hier sind die Schritte, um den Code zu verwenden, um nach jeder Zeile leere Zeilen einzufügen:
- Wählen Sie den gesamten Datensatz aus (außer der Kopfzeile)
- Klicken Sie auf die Registerkarte Entwickler (falls Sie die Registerkarte Entwickler nicht haben, klicken Sie hier, um zu erfahren, wie Sie sie erhalten)
- Klicken Sie auf die Option „Makros“
- Wählen Sie im Dialogfeld "Makro" das Makro aus - "InsertAlternateRows"
- Klicken Sie auf Ausführen
Das ist es!
Die obigen Schritte würden sofort abwechselnd leere Zeilen in das Dataset einfügen.
Es gibt viele verschiedene Möglichkeiten, ein Makro in Excel auszuführen. Wenn Sie dies beispielsweise häufig tun müssen, können Sie dieses Makro zur Symbolleiste für den Schnellzugriff hinzufügen, damit Sie es mit einem einzigen Klick ausführen können.
Weitere Informationen zu den verschiedenen Möglichkeiten zum Ausführen von Makros finden Sie hier.
Falls Sie nach jeder zweiten Zeile eine leere Zeile einfügen möchten, können Sie den folgenden Code verwenden:
Sub InsertBlankRowAfterEvery2ndRow() 'Dieser Code fügt eine Zeile nach jeder zweiten Zeile in die Auswahl ein 'Dieser Code wurde von Sumit Bansal von trumpexcel.com erstellt Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset(2, 0).EntireRow.Insert ActiveCell.Offset(3, 0).Select Next i End Sub
Ich hoffe, Sie fanden dieses Tutorial nützlich.
