Excelで行を複数回コピーして挿入する方法、または行をx回複製する方法は？

日常業務で、行または各行をコピーしてから、ワークシートの現在のデータ行の下に複数回挿入しようとしたことがありますか？ たとえば、セルの範囲があります。次に、次のスクリーンショットのように、各行をコピーして次の行に3回貼り付けます。 Excelでこの仕事にどのように対処できますか？

• VBAコードを使用して特定の行を複数回コピーして挿入する
• VBAコードを使用して各行を複数回コピーして挿入します
• 素晴らしい機能を備えた特定の番号に基づいて、各行を複数回コピーして挿入します

VBAコードを使用して特定の行を複数回コピーして挿入する

特定のXNUMX行のみをx回複製する場合は、次のVBAコードが役立つ場合があります。次のようにしてください。

1。 複数回コピーして挿入する行を指定し、 Alt + F11 キーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

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

VBAコード：XNUMXつの特定の行を複数回複製します。

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3。 コードを貼り付けたら、を押してください F5 このコードを実行するためのキーを押すと、複製する回数を入力するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 次に、をクリックします OK ボタンをクリックすると、選択した行の下にXNUMXつの新しいコピーされた行が挿入されます。スクリーンショットを参照してください。

VBAコードを使用して各行を複数回コピーして挿入します

範囲内で各行を複数回複製するには、次のVBAコードを適用できます。次のようにしてください。

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

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

VBAコード：各行を複数回複製します。

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3。 そして、 F5 このコードを実行するためのキーを押すと、各レコードに複製する回数を入力するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 次に、をクリックします OK、および各行がコピーされ、アクティブな行の下に3回挿入されています。スクリーンショットを参照してください。

素晴らしい機能を備えた特定の番号に基づいて、各行を複数回コピーして挿入します

たぶん、あなたはVBAコードに精通していないか、コードがデータをクラッシュさせることを心配しています。 ここでは、便利な機能を紹介します。 Kutools for Excel's セル値に基づいて行/列を複製する、このユーティリティを使用すると、指定した数に基づいて行をすばやくコピーして挿入できます。

インストールした後 Kutools for Excel、次のようにしてください。

1。 データの横のセルのリストに、行を複製する繰り返し番号を入力します。スクリーンショットを参照してください。

2に設定します。 OK をクリックします。 クツール > インセット > セル値に基づいて行/列を複製する、スクリーンショットを参照してください：

3。 の中に 行と列をコピーして挿入する ダイアログボックスで 行をコピーして挿入する 内のオプション 種類 セクションで、複製するデータ範囲を選択し、行を複製するための繰り返し時間を指定します。スクリーンショットを参照してください。

4。 次に、をクリックします。 Ok or 申し込む ボタンをクリックすると、必要に応じて次の結果が得られます。

クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください！