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

---

数式とヘルパー列を使ってセルの値を X 回繰り返す

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

1。列 A の左側に新しい列を挿入し、セル A2 に「1」と入力します（スクリーンショット参照）。

2。次に、セル A3 に数式 =A2 + C2を入力し、フィルハンドルをセル A6 までドラッグしてください（スクリーンショット参照）。

3。次に、セル D2 に「1」と入力し、オートフィルをドラッグして12 までの連番を作成します。これは列 C の回数の合計です（スクリーンショット参照）。

4。次に、セル E2 にこの数式 =VLOOKUP(D2,$A$1:$B$6,2)を入力して下方向にコピーすると、次のような結果が得られます。

---

---

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 回コピーして挿入する

場合によっては、セルの値を指定した回数分コピーして挿入する必要があるかもしれません。Kutools for Excelの指定されたデータに基づいて行/列をコピーまたは挿入する機能を使えば、指定した回数に基づいて行をすばやくコピー＆挿入できます。

Kutools for Excel をインストールした後、以下の手順に従って操作してください。

1。「Kutools > 挿入 > 指定されたデータに基づいて行/列をコピーまたは挿入する」をクリックします（スクリーンショット参照）。

2。行/列のコピーと挿入ダイアログボックスで、種類セクションの行のコピーと挿入オプションを選択し、複製したいデータ範囲を指定して、行をコピーして挿入する回数を設定してください（スクリーンショット参照）。

4。「OK」または「適用」ボタンをクリックすれば、すぐに希望の結果が得られます。

今すぐKutools for Excel をダウンロードして、無料トライアルをお試しください！