如何在 Excel 中複製並插入多行或重複某一行 x 次？

在日常工作中，您是否曾經嘗試過複製一行或多行，然後在其當前行數據下方多次插入？例如，我有一個單元格範圍，現在，我想複製每一行並將它們粘貼 3 次到下一行，如下方截圖所示。您該如何在 Excel 中處理這個任務呢？

• 使用 VBA 程式碼多次複製並插入特定行
• 使用 VBA 程式碼多次複製並插入每一行
• 根據特定數字輕鬆多次複製並插入每一行的強大功能

使用 VBA 程式碼多次複製並插入特定行

如果您只想重複某一行 x 次，以下 VBA 程式碼可能會對您有所幫助，請按照以下步驟操作：

1. 指定要複製並多次插入的一行，然後按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 視窗。

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

VBA 程式碼：多次重複某一特定行：

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. 粘貼程式碼後，請按 F5 鍵運行程式碼，會彈出一個提示框提醒您輸入想要重複的次數，見截圖：

4. 然後點擊 確定 按鈕，選定行下方已插入三行新複製的行，見截圖：

使用 VBA 程式碼多次複製並插入每一行

要在範圍內多次重複每一行，您可以應用以下 VBA 程式碼，請按照以下步驟操作：

1. 按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 視窗。

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

VBA 程式碼：多次重複每一行：

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. 然後按 F5 鍵運行程式碼，會彈出一個提示框提醒您輸入每條記錄想要重複的次數，見截圖：

4. 然後點擊 確定，每一行已被複製並插入到活躍行下方 3 次，見截圖：

根據特定數字輕鬆多次複製並插入每一行的強大功能

也許，您不熟悉 VBA 程式碼，或者擔心程式碼會損壞您的數據。這裡，我將介紹一個有用的工具，Kutools for Excel 的 根據指定數據複製或插入行列，使用此工具，您可以快速根據指定的數字複製並插入行。

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

1. 在數據旁邊的單元格列表中輸入您想重複行的次數，見截圖：

2. 點擊 Kutools > 插入 > 根據指定數據複製或插入行列，見截圖：

3. 在 複製並插入行與列 對話框中，在 類型 部分選擇 複製並插入行 選項，然後選擇要重複的數據範圍，並指定重複次數以複製行，見截圖：

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

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