Jak wstawić ten sam tekst w co drugim wierszu w programie Excel?

W tym artykule pokażemy Ci, jak wstawić ten sam tekst w co drugim wierszu w programie Excel. Czytaj dalej, aby uzyskać więcej szczegółów.

Wstaw ten sam tekst w każdym wierszu z kodem VBA
Wstaw ten sam tekst w co drugim wierszu za pomocą Kutools for Excel

Wstaw ten sam tekst w każdym wierszu z kodem VBA

Załóżmy, że chcesz wstawić tekst „Nazwa”, „Dane” i „Wynik” w co drugim wierszu w określonym zakresie, jak pokazano na zrzucie ekranu poniżej. Wypróbuj poniższy kod VBA.

1. W arkuszu naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. kliknij wstawka > Moduł. Zobacz zrzut ekranu:

3. Skopiuj i wklej poniższy kod VBA do edytora kodu.

Kod VBA: wstaw ten sam tekst w każdym wierszu w programie 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

Uwagi: W powyższym kodzie:

Wstaw ten sam tekst w co drugim wierszu za pomocą Kutools for Excel

Za pomocą powyższego kodu możesz po prostu wstawić tekst w każdym wierszu. Co powiesz na wstawianie tekstu w każdym wierszu n w programie Excel? W tej sekcji pokażemy Ci Wstaw wiersze tytułów użyteczność Kutools dla programu ExcelDzięki temu narzędziu wstawianie tekstu w co n-tym wierszu staje się łatwe.

1. kliknij Kutools > wstawka > Wstaw wiersze tytułów aby włączyć to narzędzie.

2. w Wstaw wiersze tytułów w oknie dialogowym, musisz:

Teraz określony tekst jest wstawiany w każdym n wierszu w wybranym zakresie.