Excelで行を複数回コピーして挿入する方法、または行をx回複製する方法は？
日常業務で、行または各行をコピーしてから、ワークシートの現在のデータ行の下に複数回挿入しようとしたことがありますか？ たとえば、セルの範囲があります。次に、次のスクリーンショットのように、各行をコピーして次の行に3回貼り付けます。 Excelでこの仕事にどのように対処できますか？
 |
 |
 |
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つの新しいコピーされた行が挿入されます。スクリーンショットを参照してください。
特定の番号に基づいて、各行を複数回簡単にコピーして挿入できます
通常、手動でコピーして挿入する以外に、行を複数回コピーして挿入するための適切な方法はありません。 しかし、 Kutools for Excel's セル値に基づいて行/列を複製する 機能、あなたは簡単にこの問題を解決することができます。 クリックしてKutoolsfor Excelをダウンロードしてください！
Kutools for Excel：300以上の便利なExcelアドインがあり、60日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル！
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 Sub3。 そして、 F5 このコードを実行するためのキーを押すと、各レコードに複製する回数を入力するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。
4。 次に、をクリックします OK、および各行がコピーされ、アクティブな行の下に3回挿入されています。スクリーンショットを参照してください。
|
|
|
注意：上記のコードでは、 A データが列から始まる場合、データ範囲が列Aから始まることを示します K、 変更してください A 〜へ K あなたの必要に応じて。
素晴らしい機能を備えた特定の番号に基づいて、各行を複数回コピーして挿入します
たぶん、あなたはVBAコードに精通していないか、コードがデータをクラッシュさせることを心配しています。 ここでは、便利な機能を紹介します。 Kutools for Excel's セル値に基づいて行/列を複製する、このユーティリティを使用すると、指定した数に基づいて行をすばやくコピーして挿入できます。
ヒント：これを適用する セル値に基づいて行/列を複製する 機能、まず、ダウンロードする必要があります Kutools for Excel、次に機能をすばやく簡単に適用します。
インストールした後 Kutools for Excel、次のようにしてください。
1。 データの横のセルのリストに、行を複製する繰り返し番号を入力します。スクリーンショットを参照してください。
2に設定します。 OK をクリックします。 クツール > インセット > セル値に基づいて行/列を複製する、スクリーンショットを参照してください：
3。 の中に 行と列をコピーして挿入する ダイアログボックスで 行をコピーして挿入する 内のオプション 種類 セクションで、複製するデータ範囲を選択し、行を複製するための繰り返し時間を指定します。スクリーンショットを参照してください。
4。 次に、をクリックします。 Ok or お申し込み ボタンをクリックすると、必要に応じて次の結果が得られます。
|
|
 |
クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください！
最高のオフィス生産性ツール
Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます
- 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
- スーパーフォーミュラバー （複数行のテキストと数式を簡単に編集できます）; 読書レイアウト （多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
- セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
- [複製]または[一意]を選択します 行; 空白行を選択 （すべてのセルは空です）; スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
- 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
- テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
- スーパーフィルター （フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
- ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
- 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
