如何在 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 并免费试用！