Hvordan indsættes samme tekst i hver anden række i Excel?
I denne artikel viser vi dig, hvordan du indsætter samme tekst i hver anden række i Excel. Se efter flere detaljer.
Indsæt samme tekst i hver række med VBA-kode
Indsæt samme tekst i hver anden række med Kutools til Excel
Indsæt samme tekst i hver række med VBA-kode
Antag, at du vil indsætte teksterne "Navn", "Data" og "Score" til hver række i det bestemte interval som vist nedenstående skærmbillede. Prøv følgende VBA-kode.
1. I regnearket skal du trykke på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til anvendelse vindue.
2. klik indsatte > Moduler. Se skærmbillede:
3. Kopier og indsæt nedenstående VBA-kode i kodeditoren.
VBA-kode: indsæt samme tekst i hver række i Excel
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
Noter: I ovenstående kode:
Indsæt samme tekst i hver anden række med Kutools til Excel
Med ovenstående kode kan du bare indsætte tekst i hver række. Hvad med at indsætte tekst i hver n række i Excel? I dette afsnit viser vi dig Indsæt titlerækker nytte af Kutools til Excel. Med dette værktøj er indsættelse af tekst i hver n række ikke længere et problem.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. klik Kutools > indsatte > Indsæt titlerækker for at aktivere dette værktøj.
2. i Indsæt titlerækker dialogboks skal du:
Nu indsættes den angivne tekst i hver n række i det valgte interval.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!