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

例如，我有一個數據范圍，其中包含D列中的數字列表，現在，我想基於D列中的數值將整個行重複多次，以獲得以下結果。 如何基於Excel中的單元格值多次復制行？

使用VBA代碼根據單元格值多次復制行

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

使用VBA代碼根據單元格值多次復制行

要基於單元格值多次復制和復制整行，以下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

如果您不熟悉VBA代碼，無法自行正確更改代碼中的參數。 在這種情況下， Excel的Kutools's 基於單元格值的重複行/列 功能可以幫助您根據單元格值多次復制和插入行，只需單擊三下。

1. 點擊 庫工具 > 插入 > 基於單元格值的重複行/列 啟用此功能；
2. 然後，選擇 複製並插入行 選項，並指定單元格 插入範圍 重複次數 分別在對話框中。