Как вставить одинаковый текст в каждую вторую строку в Excel?

В этой статье мы покажем вам, как вставить одинаковый текст в каждую вторую строку в Excel. Читайте дальше для получения дополнительной информации.

Вставка одинакового текста в каждую строку с помощью кода VBA
Вставка одинакового текста в каждую вторую строку с помощью Kutools для Excel

Вставка одинакового текста в каждую строку с помощью кода VBA

Предположим, вы хотите вставить текст «Имя», «Дата» и «Оценка» в каждую вторую строку в пределах указанного диапазона, как показано на скриншоте ниже. Пожалуйста, попробуйте следующий код VBA.

1. В листе одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Application.

2. Нажмите Вставить > Модуль. См. скриншот:

3. Скопируйте и вставьте приведенный ниже код VBA в редактор кода.

Код VBA: вставка одинакового текста в каждую строку в 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

Примечания: В приведенном выше коде:

Вставка одинакового текста в каждую вторую строку с помощью Kutools для Excel

С помощью приведенного выше кода вы можете вставить текст только в каждую строку. Как насчет вставки текста в каждую n-ю строку в Excel? В этом разделе мы покажем вам функцию Вставить заголовочные строки из Kutools для Excel. С помощью этой утилиты вставка текста в каждую n-ю строку становится простой.

1. Нажмите Kutools > Вставить > Вставить заголовочные строки, чтобы активировать эту утилиту.

2. В диалоговом окне Вставить заголовочные строки вам нужно:

Теперь указанный текст вставлен в каждую n-ю строку в выбранном диапазоне.