这想法真够无聊的
要是生成在不同的表格里，应该更快些
不过要是非得在当前表格生成也行
代码我都写好了，贴出来看看：
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
我也是服了我自己，居然还写了这个……
要是生成在不同的表格里，应该更快些
不过要是非得在当前表格生成也行
代码我都写好了，贴出来看看：
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
我也是服了我自己，居然还写了这个……