在 Excel 中，插入空白行對於大多數用戶來說是一項簡單的任務。 但是，在某些情況下，您可能需要在表中的每個現有行之間插入一個空白行，如下面的屏幕截圖所示。 這有助於提高可讀性並使數據更易於導航。 在本文中，我們將討論一些在 Excel 中每隔一行或第 n 行插入空白行的快速且方便的技巧。

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

• 使用插入功能
• 具有輔助列和排序功能
• 只要點擊幾下 Kutools for Excel
• 使用 VBA 代碼

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

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

如果數據量較少，可以通過按 Ctrl 鍵手動選擇每一行，然後使用插入功能在每個現有行之前插入一個空白行。 您可以這樣做：

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

1. 通過單擊行號選擇第一行。
2. 接下來，按住 按Ctrl 鍵，然後一一單擊要選擇的行號。
   

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

選擇要插入空白行的所有行後，右鍵單擊選定的行號之一，然後選擇 插入 從上下文菜單中，查看屏幕截圖：

結果：

現在，將在每個選定行之前插入一個空白行。 看截圖：

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

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

第一步：創建輔助列

1. 創建與您的數據相鄰的輔助列。 例如，我有一個數據范圍A1:D10，我將輸入文本“助手專欄” 在單元格 E1 中，請參見屏幕截圖：
   
2. 然後，在單元格 E1 和 E2 中分別輸入 2 和 3。
3. 選擇單元格 E2 和 E3，然後將填充柄向下拖動到最後一個數據單元格，將填充遞增數字的列表，如下圖所示：
   
4. 現在，複製序列號並將其粘貼到最後一個單元格 E10 的下方。 看截圖：
   

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

1. 現在，選擇 Helper 列中的數據，然後單擊 數據 > 分類，請參見屏幕截圖：
   
2. 在彈出的 排序警告 對話框，請選擇 擴大選擇 選項，然後單擊 分類 按鈕，請參見屏幕截圖：
   
3. 在下面的 分類 對話框中選擇 助手專欄 來自 排序 下拉列表作為關鍵列，其他選項保持不變。 然後，單擊 OK 關閉對話框。 看截圖：
   

結果：

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

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

有時，當您想要在數據范圍內定期插入特定數量的空白行時，例如每兩個或更多數據行後插入一個或多個空白行，以前的方法可能會很複雜且難以掌握。 為了快速、輕鬆地解決這項工作， Excel的Kutools“ 插入空白行和列 該功能可以幫助您只需點擊幾下即可處理這項工作。

下載並安裝後 Excel的Kutools點擊此處成為Trail Hunter 庫工具 > 插入 > 插入空白行和列 打開 插入空白行和列 對話框。

1. 選擇要插入空白行的數據范圍。
2. 選擇 空白行 來自 插入類型 部分。
3. 然後，將數字指定到 間隔 和 行 根據需要添加文本框。 （在這裡，我將在兩行之後插入一個空白行，因此，我輸入 2 和 1 到 間隔 和 行 分別裝箱。）
4. 最後點擊 OK 關閉對話框。
   

結果：

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

使用 VBA 代碼每隔一行或第 n 行插入空白行

如果您對 VBA 代碼感興趣，這裡我們將提供一個代碼，用於以固定間隔向數據中插入特定數量的空白行。 請按照以下步驟進行：

步驟1：打開VBA模塊編輯器並複制代碼

1. 按住 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

第二步：執行代碼得到結果

1. 粘貼此代碼後，請按 F5 鍵來運行此代碼。 在提示框中選擇要插入空白行的數據范圍。 然後，單擊 OK，看截圖：
   
2. 會彈出另一個提示框，請輸入行間隔數。 然後，單擊 OK，請參見屏幕截圖：
   
3. 在下面的提示框中，請輸入您要插入的空白行數。 然後，單擊 OK，請參見屏幕截圖：
   

結果：

現在，特定數量的空白行將按照您指定的定期間隔插入到現有數據中，請參見屏幕截圖：

這是在數據區域中插入每隔一行或第 n 行的方法。 如果您有興趣探索更多 Excel 提示和技巧，我們的網站提供數千個教程，請單擊 点击這裡 訪問它們。 感謝您的閱讀，我們期待在未來為您提供更多有用的信息！

相關文章：