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

作者Siluvia修改日期2024-11-06

本文將示範如何在 Excel 中每隔一列插入相同的文字，詳情請繼續閱讀。

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

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

假設您希望在指定區域內每隔一列依序插入「Name」、「Data」和「Score」，如下方截圖所示，請試用以下 VBA 程式碼。

用於在每隔一列插入特定文字的範例資料螢幕截圖

1. 在工作表中，同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 點選插入＞模組。請參閱截圖：

VBA 編輯器中「插入模組」選項的螢幕截圖

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. 請將「Name」、「Data」和「Score」替換為您需要的文字。

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 > 插入 > 插入標題行，立即啟用此功能！

功能區 Kutools 索引標籤中「插入標題列」選項的螢幕截圖

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

1）。在標題區域方框中選取您要每隔 n 列插入的文字範圍；

2）。在生成區域方框中選取您要插入文字的目標範圍；

3）。在間隔行數方框中指定間隔列數。若您希望在每一列插入文字，請在方框中輸入 1；若要每隔 n 列插入文字，請在方框中輸入 n；

4）。點選確定按鈕。

「插入標題列」對話框的螢幕截圖

現在，指定的文字已插入至所選區域中每隔 n 列的位置。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多