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