在 Excel 中每隔一列插入空白列 – 4 種簡單方法

在 Excel 中處理數據時，有時候需要在現有的列之間插入空白列。對於小型數據集，手動操作非常簡單，但對於大型數據集，則需要一種高效的解決方案。本文將介紹一些在 Excel 中完成此任務的實用方法。

在 Excel 中每隔一列或第 N 列插入空白列

• 使用快捷鍵
• 通過輔助列和排序功能
• 通過使用 Kutools for Excel
• 使用 VBA 代碼

通過快捷鍵每隔一列或第 N 列插入空白列

對於較小的數據集，使用鍵盤快捷鍵手動插入空白列既快速又高效。請按照以下步驟操作：

1. 點擊列號選擇您要插入空白列的位置所在的列。
2. 接下來，按住鍵盤上的 Ctrl 鍵，然後逐一單擊您想選擇的列號。參見截圖：
   
3. 然後，按下「Ctrl + Shift + 加號」鍵，空白列就會插入到每隔一列之間。參見截圖：
   

通過輔助列和排序功能每隔一列或第 N 列插入空白列

如果您希望在大型數據集中系統地每隔一列或第 N 列插入空白列，輔助列方法結合排序功能可以節省時間：

1. 在數據集上方插入一個新的空白行。
2. 在該行的前兩個單元格中分別輸入數字 1 和 2。然後選擇單元格 A1 和 B1，並向右拖動填充柄至最後一個數據單元格，這樣會生成一系列遞增的數字，如下方截圖所示：
   
3. 複製這些序列號並將其粘貼到同一行最後一個數字的右側。
   
4. 選擇整個數據區域，然後點擊「數據」>「排序」，參見截圖：
   
5. 在隨後出現的「排序」對話框中，點擊「選項」按鈕。
   
6. 然後選擇「從左到右排序」，點擊確定返回「排序」對話框。
   
7. 從「排序依據」下拉列表中選擇新增的行，並保持其他選項不變。然後點擊確定關閉對話框。
   
8. 現在，數據將根據輔助行中的值進行排序，並且每隔一列後會插入一個空白列。
   
9. 最後，您可以根據需要刪除輔助行。

僅需幾次點擊即可每隔一列或第 N 列插入空白列

Kutools for Excel 提供了一種簡單且高效的解決方案來自動化此任務。只需幾次點擊，您就可以快速在特定間隔插入空白列，節省時間並提高生產力。在本節中，我們將向您展示如何使用 Kutools for Excel 輕鬆插入空白列。

下載並安裝 Kutools for Excel 後，點擊「Kutools」>「插入」>「插入空白行與列」以打開「插入空白行與列」對話框。

1. 選擇您要插入空白列的數據區域。
2. 從「插入類型」部分選擇「空白列」。
3. 然後，根據需要在「間隔」和「列」文本框中指定數字。（這裡，我將在一列後插入兩列空白列，因此我在「間隔」和「列」框中分別輸入 1 和 2。）
4. 最後，點擊確定關閉對話框。
   

Kutools 將根據您指定的間隔立即插入空白列，參見截圖：

通過 VBA 代碼每隔一列或第 N 列插入空白列

對於高級用戶或大型數據集，VBA 可以自動化插入空白列的操作。以下是一個 VBA 宏，它能夠每隔一列或第 N 列插入空白列。

1. 在 Excel 中按住「ALT + F11」鍵，打開「Microsoft Visual Basic for Applications」窗口。
2. 點擊「插入」>「模塊」，並將以下代碼粘貼到模塊窗口中。
   VBA 代碼：在固定間隔插入特定數量的空白列

   Sub InsertColumnsAtIntervals()
       'Updatedby Extendoffice
       Dim WorkRng As Range
       Dim xInterval As Integer
       Dim xCols As Integer
       Dim xColsCount As Integer
       Dim xNum1 As Integer
       Dim xNum2 As Integer
       Dim xWs As Worksheet
       Dim xTitleId As String
       Dim i As Integer
       xTitleId = "Kutools for Excel"
       Set WorkRng = Application.Selection
       Set WorkRng = Application.InputBox("Select column range:", xTitleId, WorkRng.Address, Type:=8)
       xColsCount = WorkRng.Columns.Count
       xInterval = Application.InputBox("Enter column interval:", xTitleId, 1, Type:=1)
       xCols = Application.InputBox("How many blank columns to insert at each interval?", xTitleId, 1, Type:=1)
       xNum1 = WorkRng.Column + xInterval
       xNum2 = xCols + xInterval
       Set xWs = WorkRng.Parent
       For i = 1 To Int(xColsCount / xInterval)
           xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xCols - 1)).EntireColumn.Insert
           xNum1 = xNum1 + xNum2
       Next
       MsgBox "Columns inserted successfully!", vbInformation
   End Sub
   

3. 粘貼此代碼後，按下 F5 鍵運行此代碼。在彈出的對話框中，選擇您要插入空白列的數據範圍。然後點擊確定，參見截圖：
   
4. 另一個對話框將彈出，輸入列間隔的數字。然後點擊確定，參見截圖：
   
5. 在隨後的對話框中，輸入您要插入的空白列數量。然後點擊確定，參見截圖：
   

現在，指定數量的空白列已按照您指定的規律間隔插入到現有數據中，參見截圖：

總結來說，在 Excel 中每隔一列或以特定間隔插入空白列可以通過多種方法實現，具體取決於您的需求和數據集大小。選擇最適合您工作流程的方法，可以顯著提高效率並簡化您的 Excel 任務。如果您對探索更多 Excel 技巧感興趣，我們的網站提供了數千個教程。