如何在 Excel 中於固定間隔插入指定數量的欄？

在日常使用 Excel 時，您可能會遇到需要在現有欄位之間插入多個新欄的情況。雖然可以透過「插入」功能逐一新增欄位，但當資料量龐大，且需每隔第二欄（或第 n 欄）後插入三欄時，這種方式顯然效率不足。那麼，如何才能快速完成這項任務？本教學將為您介紹兩種簡單又高效的方法來輕鬆解決此問題。

使用 VBA 程式碼在固定間隔處插入指定數量的空白列至數據區域中

使用 Kutools for Excel 在固定間隔處插入指定數量的空白列至數據區域中

我們可透過以下「VBA 程式碼」，在每隔第 n 欄後插入指定數量的空白列。請依照下列步驟操作：

1. 在 Excel 中按下「Alt + F11」，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 點擊「插入」>「模組」，並將下列巨集貼上至「模組」視窗中。

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. 按下「F5」鍵執行此程式碼，系統將彈出提示方塊，引導您選取欲插入空白列的「數據區域」。

4. 點擊「確定」按鈕後，系統將彈出另一個提示方塊，請在「輸入欄間隔」欄位中輸入所需的「欄間隔數」。

5. 繼續點擊「確定」按鈕，隨即會彈出第三個提示方塊，請在其中指定「每次間隔要插入的欄數」。

6. 點擊「確定」按鈕，立即取得結果。

如果您不想使用 VBA 程式碼，「Kutools for Excel」的「插入空白行／列」功能正是您的理想選擇！只需輕點幾下，即可在固定間隔處，將指定數量的欄快速插入至資料區域中。

1. 先選取現有的數據區域，再點擊「Kutools」>「插入」>「插入空白行/列」。

2。「插入空白列/欄」對話方塊隨即彈出。您可在「範圍」欄位中看到步驟 1 所選取的資料區域。在「插入類型」區段中，選擇「空白列」選項，並分別設定「欄間隔數」與「每次間隔要插入的欄數」；此處我輸入的數值為 1 與 3.

3. 點擊「確定」按鈕，完成設定並立即取得結果。

最佳 Office 生產力工具

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

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……