Excel按Amount列值批量生成重复行的实现方法咨询

嘿，这个需求我太懂啦！就是要根据每行的Amount数值，把对应行重复相应的次数对吧？既然是一次性的导入操作，不用搞复杂的动态公式，给你几个简单好用的办法，随便选一个都能搞定：

方法一：Power Query（推荐，无代码快速批量处理） #

这是Excel自带的工具，操作起来直观，适合数据量稍大的情况：

• 选中你的原始数据区域，点击顶部菜单栏的「数据」选项卡，选择「从表格/区域」（弹出提示时记得勾选“我的表格有标题”）
• 进入Power Query编辑器后，选中Amount列，点击「添加列」选项卡，选择「自定义列」
• 在弹出的公式框里输入：List.Repeat({[Customer], [Amount], [City]}, [Amount])

  解释一下：这个公式会把当前行的Customer、Amount、City三个字段打包成一个列表，然后按照Amount的数值重复这个列表

• 点击确定后，会生成一个新列，里面都是嵌套的列表；选中这个新列，点击「转换」选项卡的「展开到新行」
• 这时候列表会被拆成独立的行，你可以调整列名（把展开后的列重命名回Customer、Amount、City），或者删除原来的旧列
• 最后点击「关闭并上载」，就能得到你要的重复行数据啦

方法二：VBA宏（适合稍微懂点代码的，一键执行） #

如果数据量很大，用宏执行会更快，而且也是一次性操作：

• 按Alt+F11打开VBA编辑器，右键点击你的工作簿名称，选择「插入」→「模块」
• 在模块里粘贴下面的代码：

Sub RepeatRowsByAmount()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, repeatCount As Long
    Dim rng As Range
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '从最后一行往上处理，避免重复处理新生成的行
    For i = lastRow To 2 Step -1
        repeatCount = ws.Cells(i, "B").Value '这里假设Amount列是B列，根据你的实际列调整
        If repeatCount > 1 Then
            Set rng = ws.Rows(i)
            rng.Copy
            rng.Offset(1).Resize(repeatCount - 1).Insert Shift:=xlDown
        End If
    Next i
    Application.CutCopyMode = False
End Sub

• 回到Excel界面，按Alt+F8，选择这个宏点击执行就行。注意：建议先复制一份原始数据到新工作表再操作，避免误改原数据

方法三：手动辅助列（数据量少的时候用） #

如果你的数据行数不多，手动搞也挺快：

• 在原始数据旁边插入一列（比如D列），D2输入1，D3输入公式=D2+B2（B2是Amount列，根据实际列调整），然后下拉填充到最后一行，这样D列会是累计的数值（比如John那行D2是1，D3是5；Patrick那行D3是5，D4是8）
• 新建一个工作表，在A列输入从1到最后一个累计数的序列（比如1到8）
• 在新工作表的B2输入公式=XLOOKUP(A2,$D:$D,$A:$C,"",1)，下拉填充后，每个数字都会对应到原始行的数据，自动生成重复的行

备注：内容来源于stack exchange，提问作者Maarten Ureel