Excel VBA宏开发求助：根据单元格值批量插入重复行并复制数据

需求 #

现有表格A列存人员信息，B列是对应数量值，要写VBA宏实现：按B列的数值，给每个人员插入对应数量的新行，并且复制原行的信息（比如Person A最终要有5行，Person B要有2行）。

我写的代码（无法运行） #

Dim i, j, k As Integer

For i = Range("A" & Range("A:A").Rows.Count).End(xlUp).Row To 1 Step -1
 
        For j = 1 To Range("B" & i)
            
            Rows(i).Select
            Selection.Insert Shift:=xlDown
            
            k = k + j
                            
            Range(Cells(k, 1), Cells(k, 2)).Copy Destination:=Range("A" & i)
            
        Next j
        
Next i

问题出在哪 #

• 变量k的逻辑完全混乱，没有对应到要复制的原行位置
• 插入新行后，错误地去复制k指向的行，而非原本的人员行
• 不必要使用Select和Selection，既拖慢运行速度又容易触发错误

修正后的可用代码 #

Sub DuplicateRowsByCount()
    Dim lastRow As Integer
    Dim i As Integer, j As Integer
    
    ' 获取A列最后一行的行号
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    ' 从最后一行往上遍历，避免插入行打乱后续遍历逻辑
    For i = lastRow To 1 Step -1
        ' 复制次数为B列值减1——原行已存在，只需添加对应数量的副本
        For j = 1 To Range("B" & i).Value - 1
            ' 在当前行下方插入新行
            Rows(i + 1).Insert Shift:=xlDown
            ' 把原行的A、B列内容复制到新插入的行
            Range(Cells(i, 1), Cells(i, 2)).Copy Destination:=Cells(i + 1, 1)
        Next j
    Next i
End Sub

关键细节说明 #

• 必须从最后一行往上遍历：如果从第一行向下遍历，插入新行会导致后续行号偏移，引发漏处理或重复处理的问题
• 用B列值-1：原行本身已计入总数量，无需重复复制，只需插入对应数量的副本即可
• 直接操作单元格而非使用Select：不仅提升运行效率，还能避免因选中状态变化导致的异常

内容的提问来源于stack exchange，提问作者D3merzel