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

在Excel工作表中，您可以使用插入功能在現有行之間插入一個空白行。但是，如果您有一大範圍的數據，並且需要每隔三行或第n行插入兩個空白行，該如何快速便捷地完成此任務呢？

• 使用VBA代碼以固定間隔將特定數量的空白行插入數據範圍
• 根據單元格值使用VBA代碼將特定數量的空白行插入數據範圍
• 使用便捷功能以固定間隔將特定數量的空白行插入數據範圍
• 根據特定數字多次複製並插入行使用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. 點擊確定按鈕，另一個提示框會彈出，請輸入行間隔的數量，見截圖：

5. 繼續點擊確定按鈕，在接下來彈出的提示框中，請輸入您想插入的空白行數量，見截圖：

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. 然後點擊確定按鈕，空白行已經以特定間隔插入到所選範圍中，見截圖：

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

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

假設您有一個數據範圍，現在您想複製每一行並將它們根據一列數字多次粘貼到下一行，如下截圖所示。該如何在Excel工作表中解決這個問題呢？

為了解決這個問題，我將向您介紹一個有用的代碼，請按照以下步驟操作：

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

3. 粘貼此代碼後，按F5鍵運行此代碼，在彈出的對話框中，選擇您要根據其複製並插入數據行的數字列表，見截圖：

4. 然後，點擊確定按鈕，特定數量的行已經被複製並粘貼到每個原始行下方，見截圖：

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

如果您有Kutools for Excel，使用其根據單元格值複製行或列功能，您可以根據數字列表快速輕鬆地插入行或列。

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

1. 點擊Kutools > 插入 > 根據單元格值複製行或列，見截圖：

2. 在複製並插入行和列對話框中，在類型部分選擇複製並插入行選項，然後選擇您要複製的數據範圍，然後指定您要根據其複製行的數字列表，見截圖：

4. 然後，點擊確定或應用按鈕，您將得到以下所需結果：

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

更多相關文章：