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

Author Siluvia Last modified 2025-08-23

在本文中，我們將向您展示如何在 Excel 的每隔一行插入相同文字。請繼續閱讀以獲取更多詳細資訊。

使用 VBA 程式碼在每一行插入相同文字
 使用 Kutools for Excel 在每隔一行插入相同文字

使用 VBA 程式碼在每一行插入相同文字

假設您想在指定範圍內的每隔一行插入「姓名」、「數據」和「分數」文字，如下方截圖所示。請嘗試以下 VBA 程式碼。

A screenshot of sample data to insert specific text in every other row

1. 在工作表中，同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Application 視窗。

2. 點擊插入 > 模組。參見截圖：

A screenshot of the Insert Module option in the VBA editor

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 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

1. 點擊 Kutools > 插入 > 插入標題行 以啟用此功能。

A screenshot of the Insert Titles Rows option in Kutools tab on the ribbon

2. 在 插入標題行 對話框中，您需要：

1). 在 標題區域 框中選擇您要插入到每隔 n 行的文字範圍；

2). 在 插入區域 框中選擇您需要插入文字的範圍；

3). 在 間隔行數 框中指定間隔行數。如果您想在每一行插入文字，請在框中輸入 1，對於每隔 n 行，請輸入 n；

4). 點擊確定按鈕。

A screenshot of the Insert Titles Rows dialog box

現在，指定的文字已插入到所選範圍內的每隔 n 行。

Kutools for Excel - 超過 300 種必備工具，讓 Excel 功能更強大。永久免費享受 AI 功能！立即獲取

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多