好无聊的想法
如果在不同表格生成,应该比较快
如果在本表格生成,也可以
以下是本表格代码:
Sub test1()
Dim i As Long, j As Long, cont As Long
For i = 2 To 65536
If Range("D" & i).Value = "" Then Exit Sub
cont = Val(Range("D" & i).Value)
If cont >= 2 Then
Rows(i + 1 & ":" & i + cont - 1).Insert
Range("A" & i & ":E" & i + cont - 1).FillDown
End If
i = i + cont - 1
Next
End Sub
