Excelでセル値をx回繰り返す方法は？

---

数式とヘルパー列を使用してセル値をX回繰り返します

セルの値をX回繰り返すには、いくつかのヘルパー列を挿入してから、いくつかの簡単な数式を適用します。次の手順で実行してください。

1。 列Aの左側に列を挿入し、セルA1に2と入力します。スクリーンショットを参照してください。

2。 次に、この式を入れます = A2 + C2 A3に移動し、塗りつぶしハンドルをセルA6にドラッグします。スクリーンショットを参照してください。

3。 次に、セルD1に2を入力し、自動入力を列Cの回数の合計である12にドラッグして、数値を入力します。スクリーンショットを参照してください。

4。 次に、この式を入力します = VLOOKUP（D2、$ A $ 1：$ B $ 6,2） セルE2にコピーしてコピーすると、次の結果が得られます。

---

---

VBAコードでセル値をX回繰り返します

最初の方法が理解しにくいと思われる場合は、ここで、それを解決するためのVBAコードを紹介します。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ。

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

VBAコード：セル値をX回繰り返す

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、値と繰り返し回数を含む範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 をクリックします OK、別のプロンプトボックスが表示され、結果を表示するセルを選択できます。スクリーンショットを参照してください。

5。 次に、をクリックします OK、および選択した値が必要に応じて指定された回数繰り返されたという結果が得られます。

---

素晴らしい機能でセル値をX回コピーして挿入する

場合によっては、特定の数に基づいてセル値をx回コピーして挿入する必要があります。 Kutools for Excel's セル値に基づいて行/列を複製する 指定した数に基づいて行をすばやくコピーして挿入するのに役立ちます。

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

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

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

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

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