KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何根据某一列中单元格的值来重复对应的行？

作者Xiaoyang修改日期

在处理 Excel 数据表时，您可能需要根据某一指定列的值来复制整行。例如，若表格中 D 列包含一个数字，您可以将每一行复制（或插入）与 D 列对应单元格数值相同的次数。这种方法在数据扩展、准备测试数据集、模拟库存或生成重复订单行等场景中尤为实用。高效实现这一操作，无需手动重复，不仅能确保数据完整性，还能显著加快工作流程——尤其在处理大型表格时优势更为明显。

显示在根据数值重复行之前，列 D 中包含数字的数据表截图箭头显示在 Excel 中根据列 D 的值重复行之后的数据表截图

使用 VBA 代码根据单元格值多次重复行

使用便捷工具 Kutools for Excel 按指定次数复制并插入行

通过 Power Query 转换重复行

使用 VBA 代码根据单元格值多次重复行

如果您需要根据某一指定列（例如 D 列）中的值快速复制整行，VBA 提供了一种直接高效的解决方案。在处理大型数据集时，这种方法尤为实用，因为它能自动执行操作并确保准确无误。不过，使用 VBA 要求您对 Excel 的“开发者”选项卡有基本了解，并掌握宏的运行方法。其核心优势在于灵活性——代码可根据不同的数据范围或目标列轻松调整。但如果您不熟悉 VBA，或所在环境的安全策略禁止使用宏，请考虑以下替代方案之一。

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：根据单元格值多次重复行：

Sub CopyData()
'Updateby Extendoffice
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. 然后按 F5 键运行此代码，整行将根据 D 列单元格的值被多次复制，轻松满足您的需求。

注意：在上述代码中，字母 A 代表您选择数据范围的第一列，而 D 是用于指定重复次数的列字母。请根据您的工作表修改这些字母。运行宏之前，请务必备份工作簿，因为宏操作无法撤销。如果出现错误消息，请检查您的选择数据范围和目标列是否一致。

使用便捷工具 Kutools for Excel 按指定次数复制并插入行

如果您希望避免使用代码，或需要一个用户友好的界面来批量处理重复操作，Kutools for Excel 提供了理想解决方案。其根据指定数据复制或插入行列功能，可让您根据相关单元格中的数值快速复制并插入行——操作直观、高度可自定义，特别适合频繁处理此类任务的用户。Kutools 在复制过程中完整保留原始表格的布局与格式，大幅降低出错风险。无论您是否具备 VBA 经验，该方法均能顺畅运行，并显著提升中大型区域的处理效率。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……
  1. 单击 Kutools> 插入> 重复行/根据单元格值插入列 以启用此功能；
  2. 然后，选择复制并插入行选项，并在对话框中分别指定生成区域和重复次数对应的单元格。确认选择后，单击确定即可完成操作。

Kutools for Excel“重复行/列”功能对话框截图

通过 Power Query 转换重复行

Power Query 提供了一种强大且可重复的解决方案，可根据列值自动重复行，尤其适用于大型表格或需要频繁刷新数据的场景。借助这一工具，您无需编写公式或代码，即可根据数值指示器轻松扩展行数据。该方法非常适合追求可视化、分步操作体验，并希望在后续数据更新中保持流程一致性的用户。

1. 将您的数据添加到 Excel 表格中（选中数据区域并按）Ctrl+T），然后转到数据 > 从表格/区域，即可将表格加载到 Power Query 中。

2. 在 Power Query 编辑器中，选择添加列选项卡，然后单击自定义列。

3. 输入以下公式，根据 D 列中的值为每一行生成列表。（注意：请将 【D】 替换为实际的列标题。例如，此处我选择重复次数后，单击插入按钮即可替换 【D】 参数。）

List.Repeat({1}, [D])

在 Power Query 编辑器中设置选项

4. 单击新自定义列旁的展开按钮，再点击展开至新行。

单击展开按钮

5. 此时，您可以看到数据已根据 D 列中的值完成重复，如下图所示：

数据已根据数值完成重复

6. 如有需要，先删除辅助列，然后单击关闭并加载，即可将数据返回到 Excel。

提示：每次您的源数据发生变化时，只需刷新 Power Query 输出即可自动更新重复行。这可确保持续或自动化数据处理过程的效率与准确性。Power Query 内置于 Excel 2016 及更高版本中，在早期版本中可作为免费加载项使用。如果您的 Excel 版本不支持 Power Query 或无法创建查询，请考虑使用上述提到的公式或 VBA 解决方案之一。

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱