Excelでセルの値をX回繰り返すにはどうすればよいですか？

---

数式と補助列を使用してセルの値をX回繰り返す

セルの値をX回繰り返すには、いくつかの補助列を挿入し、簡単な数式を適用します。以下の手順に従ってください：

1. 列Aの左側に新しい列を挿入し、セルA2に「1」と入力します。スクリーンショットをご覧ください：

2. 次に、この数式「=A2 + C2」をA3に入力し、フィルハンドルをセルA6までドラッグします。スクリーンショットをご覧ください：

3. そして、セルD2に「1」を入力し、オートフィルを使って列Cの合計回数である12まで数字を埋めます。スクリーンショットをご覧ください：

4. 次に、この数式「 =VLOOKUP(D2,$A$1:$B$6,2)」をセルE2に入力し、下にコピーすると、次の結果が得られます：

---

---

VBAコードを使用してセルの値をX回繰り返す

最初の方法が難しいと感じる場合、ここではVBAコードを使って解決する方法もご紹介します。

1. ALT + F11キーを押しながら押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2. 「 挿入」>「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

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の「指定されたデータに基づいて行/列をコピーまたは挿入する」機能を使うと、指定した数値に基づいて行を素早くコピーして挿入することができます。

Kutools for Excelをインストール後、以下のように操作してください：

1. Kutools > 挿入 > 指定されたデータに基づいて行/列をコピーまたは挿入する をクリックします。スクリーンショットをご覧ください：

2. 「行や列をコピーして挿入」ダイアログボックスで、「タイプ」セクションの「行をコピーして挿入」オプションを選択し、重複させたいデータ範囲を選択してから、行をコピーして挿入するための繰り返し回数を指定します。スクリーンショットをご覧ください：

4. その後、「OK」または「適用」ボタンをクリックすると、必要な結果が得られます：

今すぐKutools for Excelをダウンロードして無料でお試しください！