Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe kan ik dezelfde tekst in elke andere rij in Excel invoegen?

In dit artikel laten we u zien hoe u dezelfde tekst in elke andere rij in Excel kunt invoegen. Blader 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 u de teksten "Naam", "Gegevens" en "Score" wilt invoegen in elke rij in het bepaalde bereik, zoals onderstaand screenshot. Probeer de volgende VBA-code.

1. Druk in het werkblad op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassing venster.

2. klikken Invoegen > Module. Zie screenshot:

3. Kopieer en plak 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

Notes: In de bovenstaande code:

1. Uw gegevens moeten vanaf de eerste rij in het werkblad worden gestart.
2. Wijzig de teksten van "Naam", "Gegevens" en "Partituur" naar de teksten die u nodig heeft.
3. De letter A en C geven het celbereik aan waar u de specifieke tekst wilt invoegen.
4. druk de F5 sleutel om de code uit te voeren. En u kunt zien dat de opgegeven teksten in elke rij in uw werkblad worden toegevoegd.

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

Met de bovenstaande code kunt u gewoon tekst in elke rij invoegen. Hoe zit het met het invoegen van tekst in elke n rij in Excel? In deze sectie laten we u de Titels invoegen nut van Kutools for Excel. Met dit hulpprogramma is het invoegen van tekst in elke n rij geen probleem meer.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. klikken Kutools > Invoegen > Titelsrijen invoegen om dit hulpprogramma in te schakelen.

2. In de Titelsrijen invoegen dialoogvenster, moet u:

1). Selecteer het bereik van de teksten die u in elke n rij in het Titelbereik doos;
2). Selecteer het bereik waarin u teksten wilt invoegen in het Bereik invoegen doos;
3). Geef het intervalrijnummer op in het Interval rijen doos. Als u in elke rij tekst wilt invoegen, voert u 1 in het vak in en voor elke n rij voert u n in het vak in;
4). Klik op de OK knop.

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

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    xona · 2 years ago
    thanks you so much.
  • To post as a guest, your comment is unpublished.
    Nadja · 3 years ago
    Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
  • To post as a guest, your comment is unpublished.
    Jewel · 4 years ago
    Thank you, the code was exactly what I needed. One question, I have data that I want repeated every other row but only to specific rows then a new string of text starts that I want repeated. How to I change the code to reflect stopping the repeat at a specific row?
    • To post as a guest, your comment is unpublished.
      boboka · 7 months ago
      FOLLOW MY INSTRUCTION ON GOOGLE.COM