Direkt zum Inhalt

Wie füge ich eine leere Zeile nach einem bestimmten Text in Excel ein?

Wenn Sie nach einem bestimmten Text leere Zeilen einfügen möchten, wie im folgenden Screenshot gezeigt, wie können Sie schnell und einfach damit umgehen, ohne sie einzeln manuell einzufügen?

Fügen Sie nach einem bestimmten Text mit VBA-Code leere Zeilen ein


Fügen Sie nach einem bestimmten Text mit VBA-Code leere Zeilen ein

Sie können den folgenden VBA-Code anwenden, um nach dem gewünschten Text leere Zeilen einzufügen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Fügen Sie nach dem spezifischen Text leere Zeilen ein

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

Note: Im obigen Code können Sie den Textwert ändern “In Bearbeitung”Zu allen anderen Werten, die Sie vom Skript gewünscht haben Wenn InStr (1, xRng.Cells (i, 1) .Value, "In progress")> 0 Dann.

3. Dann drücken F5 Wählen Sie im ausgeblendeten Dialogfeld die Option zum Ausführen des Codes aus. Wählen Sie die Spaltendaten aus, die den spezifischen Text enthalten, den Sie verwenden möchten. Siehe Abbildung:

4. Und dann klicken OK Klicken Sie auf die Schaltfläche, und die leeren Zeilen wurden nach dem von Ihnen angegebenen Text eingefügt. Siehe Screenshot:


Weitere relative Artikel zum Einfügen von Zeilen:

  • Kopieren Sie die Zeile mehrmals und fügen Sie sie ein oder duplizieren Sie die Zeile X-mal
  • Haben Sie in Ihrer täglichen Arbeit jemals versucht, eine Zeile oder jede Zeile zu kopieren und dann mehrmals unterhalb der aktuellen Datenzeile in ein Arbeitsblatt einzufügen? Zum Beispiel habe ich eine Reihe von Zellen. Jetzt möchte ich jede Zeile kopieren und dreimal in die nächste Zeile einfügen, wie im folgenden Screenshot gezeigt. Wie können Sie mit diesem Job in Excel umgehen?
  • Leere Zeilen einfügen, wenn sich der Wert in Excel ändert
  • Angenommen, Sie haben einen Datenbereich und möchten jetzt leere Zeilen zwischen die Daten einfügen, wenn sich der Wert ändert, damit Sie die aufeinander folgenden gleichen Werte in einer Spalte wie in den folgenden Screenshots trennen können. In diesem Artikel werde ich über einige Tricks sprechen, mit denen Sie dieses Problem lösen können.
  • Fügen Sie eine leere Zeile über einem bestimmten Text in Excel ein
  • Haben Sie jemals versucht, bei der Arbeit an einem Arbeitsblatt eine leere Zeile über einem bestimmten Text in eine Spalte einzufügen? Zum Beispiel gibt es einige Namen in Spalte A, jetzt möchte ich leere Zeilen über den Zellen einfügen, die den Namen "Mike" enthalten (siehe Abbildung links). Möglicherweise gibt es keine direkte Möglichkeit, diese Aufgabe in Excel zu lösen . In diesem Artikel werde ich über einige gute Tricks für den Umgang mit diesem Job in Excel sprechen.

  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
kte tab 201905
  • 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!
officetab unten
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is so helpful! But how do I add new rows after several different texts. For example, I want to add a row after SB2 and BB2, is this possible? or do I just need to run it two times with two different texts?
This comment was minimized by the moderator on the site
You can use the textjoin function by adding the same word at the end of each line and then delete that word with ctrl+f
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations