如何在Excel中以固定間隔插入特定數量的行？

在Excel工作表中，您可以使用內建的插入功能手動在現有行之間插入空白行。然而，當處理大量數據或需要定期插入時（例如，每隔三行或第n行插入兩個空白行），手動執行此任務會變得耗時且效率低下。自動化以固定間隔插入空白行不僅可以節省時間，還能減少錯誤，讓您的工作流程更加流暢。以下方法將向您展示如何快速便捷地完成此任務，包括根據某些條件或重複行插入空白行的解決方案，無論是否使用VBA。

使用VBA代碼以固定間隔在數據範圍內插入特定數量的空白行

以下VBA代碼可幫助您自動在現有數據範圍內每隔第n行後插入特定數量的空白行。此方法適合熟悉宏的用戶，並且需要高效處理中到大型數據集。請按照以下步驟執行此解決方案：

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

3. 粘貼此代碼後，按F5運行它。將彈出一個提示框，提醒您選擇要插入空白行的數據範圍，如下所示：

4. 點擊確定。另一個提示框出現，您應輸入所需的行間隔——例如，輸入3將在每隔第三行後插入空白行：

5. 繼續點擊確定，然後在代碼提示時輸入要插入的空白行數（例如，輸入2以插入兩行）：

6. 確認選擇後，空白行將以定義的間隔插入您的數據中。見下面的前後對比：

根據單元格值使用VBA代碼在數據範圍內插入特定數量的空白行

有時候，您的工作流程可能需要根據預定義的單元格值列表插入空白行，例如根據匹配條件在每個記錄後插入空白行。此VBA解決方案非常適合插入邏輯不是基於固定間隔而是基於相鄰列中的值的情況。

1. 在Excel中按住ALT + F11鍵，打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模組，並將以下代碼粘貼到模組窗口中。

VBA代碼：根據數字列表插入特定數量的空白行：

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. 粘貼後，按F5運行代碼。在出現的對話框中，選擇應該插入空白行的數字列表（或相關單元格）。

4. 然後，點擊確定，您將看到預期的結果，如下方截圖所示：

使用便捷功能以固定間隔在數據範圍內插入特定數量的空白行

如果您不想使用VBA或想要更直觀且互動的方法，Kutools for Excel提供了專用的“插入空白行和列”功能。只需簡單點擊，您就可以在整個數據範圍內任何設定的間隔添加空白行或列——顯著提升生產力，特別是在重複報告或格式化任務中。

安裝Kutools for Excel後，請按照以下步驟操作：

1. 選擇需要定期插入空白行的數據範圍。

2. 轉到Kutools > 插入 > 插入空白行和列，如下所示：

3. 在“插入空白行和列”對話框中，選擇“插入類型”下的“空白行”，然後指定間隔和要插入的空白行數，如下圖所示：

注意：設置靈活。如果您需要在每四行數據後插入兩行空白行，則將間隔設為4，空白行數設為2。

4. 然後點擊確定按鈕。空白行將在指定的間隔內插入所選範圍，如下所示：

優勢：此解決方案易於使用，不需要編碼，特別適合需要頻繁調整行列結構的人。

立即下載並免費試用Kutools for Excel！

使用Excel公式以固定間隔插入特定數量的空白行

使用VBA代碼根據特定數字多次複製並插入行

如果您的任務不僅需要插入空白行，還需要複製並插入現有數據行特定次數（可能是基於單獨的數字列表），以下VBA代碼提供了一種實用的自動化方法。這對於複製銷售訂單、場景或資源規劃條目尤其有用。

要實現這一點，請按照以下詳細步驟進行：

1. 在Excel中按住ALT + F11打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模組，然後將以下代碼粘貼到模組窗口中。

VBA代碼：根據特定數字多次複製並插入行：

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

注意事項：在運行VBA腳本之前，務必備份您的數據，因為它們可以迅速倍增數據，並且可能不容易撤銷。

3. 將代碼放置到位後，按F5運行宏。在對話框中，選擇表示每個行需要複製和插入次數的數字列表。

4. 點擊確定。指定數量的行將被複製並插入到每個原始行下，如下所示：

提示：此解決方案最適合數據準備任務，而不是理想的即時輸入，因為如果進行了其他不相關的操作，VBA宏不能撤銷。

使用神奇功能根據特定數字多次複製並插入行

對於那些希望複製和插入行的過程直觀且不需要編程技能的人來說，Kutools for Excel的功能“根據單元格值複製或插入行列”是一個高效的替代方案。該工具使您可以指定要複製哪些行或列以及複製多少次，所有這些都是基於單元格值或列表的幾個簡單選擇。

安裝Kutools for Excel後，請按照以下步驟操作：

1. 轉到Kutools > 插入 > 根據單元格值複製或插入行列，如下所示：

2. 在“複製和插入行和列”對話框中，選擇“複製和插入行”作為您的類型，指示要複製的數據範圍，然後指定用作複製查找的值列表，如下所示：

提示：用於生成測試樣本、複製交易模板或快速倍增設置或記錄，無需複雜的腳本。

4. 最後，點擊確定或應用以生成輸出，如下所示：

注意：確保您的值列表與數據正確對齊，以獲得預期結果。

立即下載並免費試用Kutools for Excel！

更多相關文章：

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析 ｜生成程式碼 ｜ 創建自訂公式 ｜ 分析數據並生成圖表 ｜ 調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值 ｜ 刪除空行 ｜ 合併列或單元格且不遺失數據 ｜ 四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表 ｜依賴型下拉列表 ｜ 多選下拉列表...
	列管理器：添加指定數量的列 ｜ 移動列 ｜ 切換隱藏列的顯示狀態 ｜ 比較區域及列...
	精選功能：網格聚焦 ｜ 設計檢視 ｜ 增強編輯欄 ｜ 工作簿及工作表管理器 ｜ 資源庫（快捷文本） ｜ 日期提取器 ｜ 合併資料 ｜ 加密/解密儲存格 ｜ 按列表發送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表 類型（甘特圖等）｜40+ 實用 公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多

使用 Kutools，語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言！

運用 Kutools for Excel，全面提升您的 Excel 技能，體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能，讓您提升工作效率、節省時間。 點此尋找您最需要的功能...

查看更多 Kutools for Excel 詳情... 免費下載...

---

Office Tab 為 Office 帶來分頁介面，讓您的工作更加輕鬆簡單

• 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀。
• 在同一視窗的新分頁中打開與創建多份文件，而非開啟新視窗。
• 提升您的生產力50%，每日可幫您減少數百次鼠標點擊！

查看更多 Office Tab 詳情... 免費下載...

---

所有 Kutools 外掛，一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛，外加 Office Tab Pro，非常適合需要跨 Office 應用程式協同作業的團隊。

• 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
• 一鍵安裝，一份授權 — 幾分鐘完成設置（支援 MSI）
• 協同運作更順暢 — Office 應用間無縫提升生產力
• 30 天全功能試用 — 無需註冊、無需信用卡
• 最超值 — 一次購買，節省單獨外掛費用

查看更多 Kutools for Office 詳情... 免費下載...