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

在 Excel 中，插入空白列對於大多數用戶來說是一項簡單的任務。然而，有時候你可能需要在表格中的每一列之間插入一列空白列，如下方截圖所示。這樣可以提高可讀性並使數據更易於瀏覽。在本文中，我們將介紹一些快速且方便的技巧，用於在 Excel 中每隔一行或第 n 行插入空白列。

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

• 使用插入功能
• 使用輔助列和排序功能
• 使用 Kutools for Excel - 只需幾次點擊
• 使用 VBA 程式碼

視頻：在 Excel 中每隔一行插入空白列

使用插入功能每隔一行插入空白列

如果你的數據量較小，你可以手動選擇每一行，按住 Ctrl 鍵，然後使用插入功能在每一行前插入空白列。以下是具體操作步驟：

步驟 1：按住 Ctrl 鍵逐一選擇行

1. 點擊行號選擇第一行。
2. 接著，按住鍵盤上的 Ctrl 鍵，然後逐一點擊你想要選擇的行號。
   

步驟 2：從右鍵菜單中選擇插入選項

當你選定了所有要插入空白列的行後，右鍵點擊其中一個選定的行號，並從上下文菜單中選擇「插入」，請參見截圖：

結果：

現在，每個選定行之前都會插入一個空白列。請參見截圖：

使用輔助列和排序功能每隔一行或第 n 行插入空白列

上述方法適用於工作表中的小型數據。但是，如果你正在處理大量數據，最好創建一個輔助列，然後應用排序功能來每隔一行或第 n 行插入空白列。按照以下步驟進行操作：

步驟 1：創建輔助列

1. 在你的數據旁邊創建一個輔助列。例如，我有一個 A1:D10 的數據範圍，我將在 E1 單元格中輸入文字「輔助列」，請參見截圖：
   
2. 然後，在 E2 和 E3 單元格中分別輸入 1 和 2。
3. 選擇 E2 和 E3 單元格，然後向下拖動填充柄到最後一個數據單元格，將填充一系列遞增的數字，如下方截圖所示：
   
4. 現在，複製這些序列號並將它們粘貼到最後一個單元格 E10 下方。請參見截圖：
   

步驟 2：應用排序功能按輔助列對數據進行排序

1. 現在，選擇輔助列中的數據，然後點擊「數據」>「排序」，請參見截圖：
   
2. 在彈出的「排序警告」對話框中，請選擇「擴展所選區域」選項，然後點擊「排序」按鈕，請參見截圖：
   
3. 在隨後的「排序」對話框中，從「排序依據」下拉列表中選擇「輔助列」作為關鍵列，並保持其他選項不變。然後，點擊確定關閉對話框。請參見截圖：
   

結果：

現在，數據將根據輔助列中的值進行排序，並且每隔一行後插入了一個空白列。

只需幾次點擊即可每隔一行或第 n 行插入空白列

有時候，當你想在數據範圍內定期間隔插入特定數量的空白列時，例如每隔兩行或多行數據插入一或多個空白列，前面的方法可能複雜且難以掌握。為了快速輕鬆地解決這個問題，Kutools for Excel 的「插入空白行與列」功能可以幫助你只需幾次點擊即可完成此任務。

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

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

結果：

現在，每兩行後將插入一個空白列，請參見截圖：

使用 VBA 程式碼每隔一行或第 n 行插入空白列

如果你對 VBA 程式碼感興趣，這裡我們將提供一段程式碼，用於在固定間隔內插入特定數量的空白列。請按照以下步驟進行操作：

步驟 1：打開 VBA 模塊編輯器並複製程式碼

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

   Sub InsertRowsAtIntervals()
   'Updateby Extendoffice
   Dim Rng As Range
   Dim xInterval As Integer
   Dim xRows As Integer
   Dim xRowsCount 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)
   xRowsCount = WorkRng.Rows.Count
   xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
   xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
   xNum1 = WorkRng.Row + xInterval
   xNum2 = xRows + xInterval
   Set xWs = WorkRng.Parent
   For i = 1 To Int(xRowsCount / xInterval)
       xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
       Application.Selection.EntireRow.Insert
       xNum1 = xNum1 + xNum2
   Next
   End Sub

步驟 2：執行程式碼以獲取結果

1. 粘貼該程式碼後，請按 F5 鍵運行程式碼。在提示框中，選擇要插入空白列的數據範圍。然後，點擊確定，請參見截圖：
   
2. 另一個提示框將彈出，請輸入行間隔數。然後，點擊確定，請參見截圖：
   
3. 在接下來的提示框中，請輸入要插入的空白列數。然後，點擊確定，請參見截圖：
   

結果：

現在，已按照你指定的規律間隔插入了特定數量的空白列，請參見截圖：

這就是如何在數據範圍內每隔一行或第 n 行插入空白列的方法。如果你對探索更多 Excel 技巧感興趣，我們的網站提供了上千個教程。感謝閱讀，我們期待未來能為您提供更多有用的信息！

相關文章：