如何在Excel的每隔一行插入相同的文本？

在本文中，我们将向您展示如何在Excel的每隔一行插入相同的文本。请继续阅读以获取更多详细信息。

使用VBA代码在每一行插入相同的文本
使用Kutools for 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 for Excel在每隔一行插入相同的文本

通过上述代码，您只能在每一行插入文本。那么如何在Excel的每隔n行插入文本呢？在本节中，我们将向您展示 Kutools for Excel 的 插入标题行 功能。使用此功能，在每隔n行插入文本变得非常容易。

1. 单击 Kutools > 插入 > 插入标题行 以启用此功能。

2. 在 插入标题行 对话框中，您需要：

现在，指定的文本已插入到所选范围的每隔n行中。