如何在 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. 點擊「確定」按鈕完成設定並獲得結果。