如何在 Excel 中重複單元格值 X 次？

---

使用公式和輔助列重複單元格值 X 次

要重複單元格值 X 次，您可以插入一些輔助列，然後應用一些簡單的公式，請按照以下步驟操作：

1. 在 A 列左側插入一列，並在單元格 A2 中輸入 1，參見截圖：

2. 然後將此公式 =A2 + C2 輸入到 A3 中，並將填充手柄拖動到單元格 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 並立即免費試用！