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
Opmerkingen: In de bovenstaande code:
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:
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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!