如何在 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 行。