如何在 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 並點選確定，另一個提示方塊將彈出，讓您選取放置結果的儲存格，參見截圖：

5 然後點選確定，即可獲得所選數值依指定次數重複的結果。

---

透過強大功能將儲存格值複製並插入 X 次

有時您可能需要根據指定次數將儲存格值複製並插入 x 次，Kutools for Excel 的根據指定數據複製或插入行列功能可協助您快速完成此操作！

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 點選 Kutools > 插入 > 根據指定數據複製或插入行列，參見截圖：

2. 在複製並插入行或列對話方塊中，於複製並插入行區段選擇類型，接著選取要重複的資料區域，並指定重複次數，即可複製並插入列，參見截圖：

4. 接著點選確定或套用按鈕，即可立即獲得所需結果：

立即下載 Kutools for Excel，免費試用！