Wie fügt man denselben Text in jede zweite Zeile in Excel ein?
In diesem Artikel zeigen wir Ihnen, wie Sie denselben Text in jede zweite Zeile in Excel einfügen – lesen Sie weiter, um alle Details zu erfahren.
Denselben Text in jede einzelne Zeile mit VBA-Code einfügen
Denselben Text in jede zweite Zeile mit Kutools für Excel einfügen
Denselben Text in jede einzelne Zeile mit VBA-Code einfügen
Angenommen, Sie möchten den Text „Name“, „Data“ und „Score“ in jede zweite Zeile eines begrenzten Bereichs einfügen, wie in der folgenden Abbildung dargestellt. Probieren Sie dazu bitte den folgenden VBA-Code aus.
1. Drücken Sie im Arbeitsblatt gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul. Siehe Abbildung:
3. Kopieren Sie den folgenden VBA-Code, und fügen Sie ihn in den Code-Editor ein.
VBA-Code: Denselben Text in jede einzelne Zeile in Excel einfügen
Sub inserttexteveryonerow()
Dim Last As Integer
Dim emptyRow As Integer
Last = Range("A" & Rows.Count).End(xlUp).Row
For emptyRow = Last To 2 Step - 1
If Not Cells(emptyRow, 1).Value = "" Then
Rows(emptyRow).Resize(1).Insert
Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
End If
Next emptyRow
End SubHinweise: Im obigen Code:
Denselben Text in jede zweite Zeile mit Kutools für Excel einfügen
Mit dem obigen Code können Sie Text lediglich in jede einzelne Zeile einfügen. Doch wie sieht es aus, wenn Sie Text in jede n-te Zeile in Excel einfügen möchten? In diesem Abschnitt stellen wir Ihnen das Hilfsprogramm Titelzeilen einfügen von Kutools für Excel vor. Mit diesem Tool wird das Einfügen von Text in jede n-te Zeile kinderleicht.
1. Klicken Sie auf Kutools > Einfügen > Titelzeilen einfügen, um dieses Hilfsprogramm zu aktivieren.
2. Führen Sie im Dialogfeld Titelzeilen einfügen folgende Schritte aus:
Der angegebene Text wurde nun in jede n-te Zeile des ausgewählten Bereichs eingefügt.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins