Hoe voeg je dezelfde tekst in elke andere rij in Excel in?

In dit artikel laten we je zien hoe je dezelfde tekst in elke andere rij in Excel kunt invoegen. Lees verder voor meer details.

Voeg dezelfde tekst in elke rij in met VBA-code
Voeg dezelfde tekst in elke andere rij in met Kutools voor Excel

Voeg dezelfde tekst in elke rij in met VBA-code

Stel dat je de tekst “Naam”, “Gegevens” en “Score” in elke andere rij binnen een opgegeven bereik wilt invoegen, zoals te zien is in de onderstaande schermafbeelding. Probeer de volgende VBA-code.

1. Druk in het werkblad gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Application-venster te openen.

2. Klik op Invoegen > Module. Zie schermafbeelding:

3. Kopieer en plak de onderstaande VBA-code in de Code-editor.

VBA-code: voeg dezelfde tekst in elke rij in Excel in

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

Opmerkingen: In de bovenstaande code:

Voeg dezelfde tekst in elke andere rij in met Kutools voor Excel

Met de bovenstaande code kun je alleen tekst in elke rij invoegen. Hoe zit het met het invoegen van tekst in elke n-de rij in Excel? In deze sectie laten we je de functie Titelrijen invoegen van Kutools voor Excel zien. Met dit hulpmiddel wordt het invoegen van tekst in elke n-de rij eenvoudig.

1. Klik op Kutools > Invoegen > Titelrijen invoegen om dit hulpmiddel te activeren.

2. In het dialoogvenster Titelrijen invoegen moet je:

Nu is de opgegeven tekst ingevoegd in elke n-de rij in het geselecteerde bereik.