如何在 Excel 中多次複製並插入列，或將某一列重複指定次數（x 次）？

作者Xiaoyang修改日期2024-11-13

日常工作中，您是否曾想過複製某一列（或每一列），並在目前資料列下方重複插入多次？例如，我有一個儲存格範圍，現在希望將每一列複製後，在其下方連續貼上 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. 接著點擊確定按鈕，即可在所選列下方插入三列新的複製內容，如下圖所示：

在所選列下方插入指定數量的新複製列

輕鬆根據指定次數多次複製並插入每一列

一般來說，除了手動複製並貼上之外，並沒有更好的方法能將某一行多次重複插入。但有了 Kutools for Excel 的根據指定數據複製或插入行列功能，您就能輕鬆解決這個問題！立即下載 Kutools for Excel！

Kutools for Excel：內含超過 300 個實用 Excel 增益集，免費試用 60 天，毫無限制。立即下載並免費試用！

使用 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 次，如下圖所示：

注意：在上述程式碼中，A 表示數據區域從 A 欄開始；若您的資料從 K 欄開始，請依需求將 A 改為 K。

透過強大功能，根據指定次數多次複製並插入每一列

或許您不熟悉 VBA 程式碼，或擔心程式碼會損毀您的資料。別擔心！這裡為您介紹一個超實用功能：Kutools for Excel 的根據指定數據複製或插入行列，讓您輕鬆依指定次數快速複製並插入列，效率瞬間提升！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

提示：若要使用此根據指定數據複製或插入行列功能，請先下載 Kutools for Excel，即可輕鬆快速套用該功能！

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 在資料旁的儲存格清單中，輸入您希望重複該行的次數，如下圖所示：

在資料旁邊的儲存格清單中輸入重複次數以複製列

2. 點擊 Kutools > 插入 > 根據指定數據複製或插入行列，如下圖所示：

點選 Kutools 的「根據儲存格值重複列/欄」功能

4. 在複製並插入行或列對話方塊中，於複製並插入行區段選擇類型，接著選取您要重複的資料區域，並指定重複次數以複製列，如下圖所示：

在對話方塊中指定選項

4. 接著點擊確定或套用按鈕，即可立即獲得所需結果：

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

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多