列のセル値に基づいて行を複製するにはどうすればよいですか？

たとえば、列Dに数値のリストを含むデータの範囲があり、列Dの数値に基づいて行全体を何度も複製して、次の結果を取得したいとします。 Excelのセル値に基づいて行を複数回コピーするにはどうすればよいですか？

VBAコードを使用してセル値に基づいて行を複数回複製する

便利なツールを使用して、指定された回数に基づいて行をコピーして挿入します - Kutools for Excel

VBAコードを使用してセル値に基づいて行を複数回複製する

セルの値に基づいて行全体を複数回コピーおよび複製するには、次のVBAコードが役立つ場合があります。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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 コードに慣れておらず、コード内のパラメーターを自分で正しく変更できない場合。 この場合、 Kutools for Excel's セルの値に基づいて行/列を複製する この機能を使用すると、XNUMX 回クリックするだけで、セルの値に基づいて行を複数回コピーおよび挿入できます。

1. クリック クツール > インセット > セルの値に基づいて行/列を複製する この機能を有効にするには;
2. 次に、を選択します 行をコピーして挿入する オプション、およびのセルを指定します 挿入範囲 • 繰り返し回数 ダイアログボックスで個別に。