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

在 Excel 中，插入一列空白列對多數使用者來說是輕而易舉的事。然而，有時您可能需要在表格的每一列之間都插入一列空白列（如下方截圖所示），以提升資料的可讀性並讓瀏覽更加輕鬆。本文將為您介紹幾種快速又實用的方法，協助您在 Excel 中每隔一列或每第 n 列插入空白列。

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

• 透過「插入」功能
• 透過輔助欄位與「排序」功能
• 透過 Kutools for Excel — 只需點擊幾下
• 透過 VBA 程式碼

影片：在 Excel 中每隔一列插入空白行

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

若您的資料量較少，可按住 Ctrl 鍵手動逐一選取各列，再透過「插入」功能，在每一列前方插入一列空白行。操作步驟如下：

步驟 1：按住 Ctrl 鍵，手動逐一選取列

1. 按一下列號即可選取第一列。
2. 接著按住鍵盤上的 Ctrl 鍵，再逐一按一下您要選取之設定所在的行。
   

步驟 2：從右鍵功能表中選取「插入」選項

選取所有要插入空白行的列後，對其中任一選取的設置的行數按一下滑鼠右鍵，再從快捷功能表中選擇「插入」，請參閱截圖：

結果：

現在，系統會在每個選取的列前方插入一列空白列。請參閱以下截圖：

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

上述方法適用於工作表中的少量資料；若需處理大量資料，建議建立輔助欄，再透過 Excel 的排序功能，每隔一列或第 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 實用技巧，我們網站提供數千篇教學文章，感謝您的閱讀，期待未來持續為您帶來更有價值的資訊！

相關文章：