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

在處理 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。