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

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

使用VBA代码在每一行中插入相同的文本
 使用Kutools for Excel在每隔一行中插入相同的文本

使用VBA代码在每一行中插入相同的文本

假设您要在特定范围内的每一行插入文本“名称”，“数据”和“分数”，如下图所示。请尝试以下VBA代码。

1.在工作表中，按其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

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

说明：在上面的代码中：

1.您的数据应从工作表的第一行开始。

2.请将“名称”，“数据”和“分数”的文本更改为所需的文本。

3.字母A和C表示要在其中插入特定文本的单元格范围。

4。按 F5 键来运行代码。您会看到指定的文本被添加到工作表的每一行中。

使用Kutools for Excel在每隔一行中插入相同的文本

使用上面的代码，您只需在每一行中插入文本。如何在Excel中的每n行中插入文本？在本节中，我们将向您展示 插入标题行 实用程序 Kutools for Excel。使用此实用程序，在每n行中插入文本将不再是问题。

申请前 Kutools for Excel请 首先下载并安装.

1。点击 库工具 > 插页 > 插入标题行 启用此实用程序。

2。在里面 插入标题行 对话框，您需要：

1）。选择要插入到文本框中每n行的文本范围 标题范围 框;

2）。选择您需要在其中插入文本的范围 插入范围 框;

3）。在中指定间隔行号 间隔行 框。如果要在每一行中插入文本，请在方框中输入1，对于每n行，请在方框中输入n。

4）。点击 OK 按钮。

现在，将指定的文本插入到选定范围内的每n行中。

如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。在您的企业或组织中轻松部署。完整功能 30 天免费试用。 60 天退款保证。