如何根據列中的單元格值複製行？

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

根據單元格值使用 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 列中的單元格值多次複製，符合您的需求。

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

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

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

通過 Power Query 轉換複製行

Power Query 提供了一種強大且可重複的解決方案，用於根據列值複製行——非常適合大型表格或需要頻繁刷新數據的情況。通過使用此工具，您可以根據數字指示器展開行而無需公式或代碼。這種方法適用於那些希望擁有清晰步驟解釋過程並需要未來數據更新可重複性的用戶。

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

2. 在 Power Query 編輯器中，選擇 添加列 選項卡，然後點擊 自定義列。

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

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

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

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

6. 如果需要，刪除輔助列，然後點擊 關閉並加載 將數據返回 Excel。