如何在 Excel 中以固定間隔插入特定數量的列？

在您日常使用 Excel 的過程中，您可能會遇到需要 在現有列之間添加更多列. 當然，您可以使用插入功能一一插入列。 但是當你面對一個大數據並且需要在每第二或第n列之後插入三列時，插入功能顯然是無效的。 那麼如何才能快速完成任務呢？ 在本教程中，我們將討論解決問題的兩種簡單方法。

使用 VBA 代碼以固定間隔將特定數量的空白列插入數據范圍

以固定間隔將特定數量的空白列插入數據范圍，具有驚人的功能

---

我們可以使用下面的 VBA代碼 在每第 n 列之後插入特定數量的空白列。 請執行以下操作。

1。 按 Alt + F11鍵 鍵，然後打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊 並將以下宏粘貼到 模塊 窗口。

VBA代碼：以固定間隔將特定數量的列插入數據

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。 點擊 OK 按鈕。 彈出另一個提示框，請輸入 列間隔數 在 輸入列間隔 框。

5.繼續點擊 OK 按鈕。 彈出第三個提示框，請註明 您要在每個間隔插入的列數 在盒子裡。

6。 點擊 OK 按鈕來獲得結果。

---

如果您不想使用 VBA 代碼方法，則 插入空白行和列 的特點 Excel的Kutools 是您的完美解決方案。 使用此功能，您只需單擊幾下即可以固定間隔將特定數量的列插入數據范圍。

申請前 Excel的Kutools，請先下載安裝。

1. 先選擇已有的數據范圍。 然後點擊 庫工具 > 插入 > 插入空白行和列.

2。 “ 插入空白行和列 對話框彈出。 您可以在“範圍”框中看到您在步驟 1 中選擇的數據范圍。 選擇 空白欄 在選項 插入類型 部分。 並指定 列間隔數 及 要在每個間隔插入的列. 這裡我分別輸入1和3。

3。 點擊 OK 按鈕完成設置並獲得結果。

備註：如果您想免費試用（30天）此實用程序，請點擊下載，然後按照上述步驟應用操作。

---