用宏实现EXCEL怎样按照单元格内数字，插入相应行数，并复制

Question

如图，我想按照D列数值，在2、3行之间插入相应行数，并且插入的行内容与行2内容相同。

例如，在2、3行之间插入D2数值 200行，并且内容都为行2的内容
在3、4行之间插入D3数值100行，并且内容都为行3的内容。

希望用宏直接实现，一共有20000多个，手动会累死。。
请高数赐教，谢谢。

Answer 1

Sub copy_by_zzllrr()
    Application.ScreenUpdating = False
    Dim n, m, a
    n = Range("A1").End(xlDown).Row
    For i = 2 To n
        m = Range("D" & i)
        a = Columns(1).Find("*", , , , 1, 2).Row
        Range("A" & i & ":D" & i).copy Range("A" & a + 1 & ":D" & a + m)
    Next i
    Rows("2:" & n).Delete
End Sub

Answer 2

这个用vba来处理非常简单，看下私信。