Wie fügt man eine leere Zeile nach einem bestimmten Text in Excel ein?

In Excel kann das Einfügen einer leeren Zeile nach einem bestimmten Text die Lesbarkeit verbessern und Daten effizienter organisieren. Ob Sie mit einer Liste von Aufgaben, Transaktionen oder strukturierten Daten arbeiten, das Hinzufügen leerer Zeilen nach einem bestimmten Text kann zusammengehörige Einträge trennen und gruppieren, um eine bessere Übersichtlichkeit zu erreichen. Hier ist eine umfassende Anleitung, um dies mit verschiedenen Methoden zu erreichen.

Leere Zeilen nach einem bestimmten Text mit VBA-Code einfügen

Leere Zeilen nach einem bestimmten Text mit Kutools AI einfügen

Leere Zeilen nach einem bestimmten Text mit VBA-Code einfügen

Sie können den folgenden VBA-Code anwenden, um leere Zeilen nach dem gewünschten spezifischen Text einzufügen. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten "ALT + F11" gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie auf "Einfügen" > "Modul" und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Leere Zeilen nach einem bestimmten Text einfügen

Sub Insertrowbelow()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

Hinweis: Im obigen Code können Sie den Text "In progressing" in diesem Skript ersetzen: "If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then".

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Wählen Sie im erscheinenden Dialogfeld die Spalte aus, die den spezifischen Text enthält, den Sie verarbeiten möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und leere Zeilen werden nach dem angegebenen Text eingefügt, siehe Screenshot:

Leere Zeilen nach einem bestimmten Text mit Kutools AI einfügen

Schwierigkeiten beim Einfügen leerer Zeilen nach einem bestimmten Text in Excel? Lassen Sie "Kutools AI" die Aufgabe für Sie vereinfachen! Mit seinen leistungsstarken KI-Fähigkeiten müssen Sie Ihre Datensätze nicht mehr manuell durchsuchen oder komplexe VBA-Codes schreiben. Kutools AI identifiziert sofort die Zeilen mit dem spezifischen Text und fügt dort, wo Sie sie benötigen, leere Zeilen ein.

Nach der Installation von Kutools für Excel klicken Sie bitte auf "Kutools" > "AI-Assistent", um den Bereich "Kutools AI-Assistent" zu öffnen.

1. Wählen Sie die Datenspalte aus, in der Sie basierend auf einem bestimmten Text leere Zeilen einfügen möchten;
2. Geben Sie dann die Anforderung im Chatfenster ein, zum Beispiel:
   Fügen Sie eine leere Zeile nach dem spezifischen Text "In progressing" aus der Auswahl ein
3. Drücken Sie dann die Eingabetaste oder klicken Sie auf die Schaltfläche "Senden". Kutools AI analysiert die Frage und nach Abschluss des Vorgangs klicken Sie auf die Schaltfläche "Ausführen", um das Ergebnis zu erhalten.

Das Einfügen einer leeren Zeile nach einem bestimmten Text in Excel kann auf verschiedene Weisen erreicht werden, abhängig von der Größe Ihres Datensatzes und Ihrem bevorzugten Automatisierungsgrad. Wenn Sie daran interessiert sind, weitere Excel-Tipps und -Tricks zu erkunden, bietet unsere Website Tausende von Tutorials.

Weitere Artikel zum Einfügen von Zeilen: