如何根據列中的儲存格值複製行？

Author Xiaoyang Last modified 2025-08-23

在處理 Excel 數據表時，有時候您可能需要根據特定列中的值來複製整行。例如，假設您有一個表格，其中 D 列表示一個數字，您的目標是根據 D 列中對應儲存格的值將每一行複製或插入多次。這對於數據擴展、準備測試數據集、模擬庫存或生成重複的訂單行非常有用。高效地完成此操作而無需手動重複，有助於保持數據完整性並大大加快工作流程，特別是對於較大的表格。

Screenshot showing data table with numbers in column D before duplicating rows based on values

Screenshot showing data table after duplicating rows based on column D values in Excel

根據儲存格值使用 VBA 代碼多次複製行

使用便捷工具 Kutools for Excel 根據指定次數複製並插入行

通過 Power Query 轉換來複製行

根據儲存格值使用 VBA 代碼多次複製行

如果您需要根據特定列（例如 D 列）中的值快速創建整行的副本，VBA 提供了一種直接且高效的解決方案。這種方法在處理大型數據集時尤其有價值，因為它自動化了過程並幫助確保準確性。然而，使用 VBA 需要對 Excel 的開發者選項卡有一定基本了解，並且知道如何執行宏。主要優勢是靈活性——代碼可以調整以適應不同的範圍或目標列。另一方面，如果您不熟悉 VBA 或者安全策略阻止了您環境中的宏，請考慮以下替代解決方案之一。

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

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

VBA 代碼：根據儲存格值多次複製行：

Sub CopyData()
'Updateby Extendoffice
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. 然後按下 F5 鍵運行此代碼。整行將根據 D 列中的儲存格值被多次複製，符合您的要求。

注意：在上述代碼中，字母 A 表示您選擇的數據範圍的第一列，D 是用於複製次數的列字母。根據需要修改這些字母以匹配您自己的工作表。在運行宏之前，請記住備份您的工作簿，因為宏操作無法撤銷。如果出現錯誤消息，請檢查您選擇的數據範圍和目標列是否一致。

使用便捷工具 Kutools for Excel 根據指定次數複製並插入行

如果您更喜歡不用代碼的方法，或者希望有一個用戶友好的界面來管理批量複製，Kutools for Excel 提供了一個實用的解決方案。其「根據指定數據複製或插入行列」功能允許您根據相關儲存格中指定的數字快速複製並插入行。這對於那些經常處理此類重複行操作並且需要更可視化、可自定義流程的人來說非常理想。Kutools 在複製過程中會保持原始表格的布局和格式，降低了意外錯誤的風險。無論您是否有 VBA 經驗，此方法都能順暢運作，並顯著提高中等到大數據範圍的效率。

Kutools for Excel 提供超過 300 種進階功能，簡化複雜任務，提升創造力與效率。 結合 AI 能力，Kutools 能夠精準自動化任務，讓數據管理變得輕而易舉。Kutools for Excel 的詳細資訊...免費試用...

點擊 Kutools > 插入 > 根據指定數據複製或插入行列 啟用此功能；
然後選擇「複製並插入行」選項，並在對話框中分別指定「插入區域」和「重複次數」的儲存格。確認您的選擇並點擊確定。

Screenshot of Kutools for Excel Duplicate Rows/Columns feature dialog box

通過 Power Query 轉換來複製行

Power Query 提供了一個強大且可重複的解決方案，用於根據列值複製行——非常適合較大的表格或當您需要頻繁刷新數據時。通過使用此工具，您可以根據數字指示器擴展行而無需公式或代碼。此方法適用於希望有直觀解釋、逐步過程並需要未來數據更新的可重複性的用戶。

1. 將您的數據添加到 Excel 表格中（選擇範圍並按 Ctrl+T）。前往數據 > 從表格/範圍 加載您的表格到 Power Query 中。

2. 在 Power Query 編輯器中，選擇「新增列」選項卡並點擊「自定義列」。

3. 輸入以下公式以根據 D 列中的值為每行生成列表。（注意：您應該將 [D] 替換為實際的列標題。例如，在這裡我將選擇「重複次數」並點擊「插入」按鈕以替換 [D] 參數。）

List.Repeat({1}, [D])

set options in the Power Query Editor

4. 點擊新自定義列旁邊的「展開」按鈕，然後點擊「展開到新行」。

Click the Expand button

5. 然後，您可以看到數據已經根據 D 列中的值被複製了，參見截圖：

the data has been duplicated based on the values

6. 如果需要，移除輔助列，並點擊「關閉並加載」將數據返回到 Excel。

提示：每次源數據更改時，只需刷新 Power Query 輸出即可自動更新重複的行。這確保了持續或自動化數據處理的效率和準確性。Power Query 內置於 Excel 2016 及更高版本，並且在早期版本中作為免費插件可用。如果您的 Excel 版本沒有 Power Query 或無法創建查詢，請考慮使用上面提到的公式或 VBA 解決方案之一。

最佳 Office 生產力工具

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