這想法真夠無聊的
要是生成在不同的表格里，應該更快些
不過要是非得在當前表格生成也行
代碼我都寫好了，貼出來看看：
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
我也是服了我自己，居然還寫了這個……