Wie füge ich in jede zweite Zeile in Excel denselben Text ein?
In diesem Artikel zeigen wir Ihnen, wie Sie in jede zweite Zeile in Excel denselben Text einfügen. Bitte suchen Sie nach weiteren Details.
Fügen Sie in jede Zeile denselben Text mit VBA-Code ein
Fügen Sie mit Kutools for Excel denselben Text in jede zweite Zeile ein
Fügen Sie in jede Zeile denselben Text mit VBA-Code ein
Angenommen, Sie möchten die Texte "Name", "Daten" und "Punktzahl" in jede Zeile in einem bestimmten Bereich einfügen, wie im folgenden Screenshot gezeigt. Bitte versuchen Sie den folgenden VBA-Code.
1. Drücken Sie im Arbeitsblatt Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Anwendung Fenster.
2 Klicken Insert > Modul. Siehe Screenshot:
3. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in den Code-Editor ein.
VBA-Code: Fügen Sie in jede Zeile in Excel denselben Text ein
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 Sub
Notizen: Im obigen Code:
Fügen Sie mit Kutools for Excel denselben Text in jede zweite Zeile ein
Mit dem obigen Code können Sie einfach Text in jede einzelne Zeile einfügen. Wie wäre es, Text in jede n Zeile in Excel einzufügen? In diesem Abschnitt zeigen wir Ihnen die Titelzeilen einfügen Nutzen von Kutools for Excel. Mit diesem Dienstprogramm ist das Einfügen von Text in jede n Zeile kein Problem mehr.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1 Klicken Kutoolen > Insert > Titelzeilen einfügen um dieses Dienstprogramm zu aktivieren.
2. In dem Titelzeilen einfügen Dialogfeld müssen Sie:
Jetzt wird der angegebene Text in jede n Zeile des ausgewählten Bereichs eingefügt.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- 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!