用代码形成插入多行

gt90

实际要形成插入后达1000行左右的表格。

grf1973

1. Sub tt()
   
2.     Rows("7:10000").Delete
   
3.     With Sheets(1)
   
4.         For i = 2 To .[a65536].End(3).Row
   
5.             r = [a65536].End(3).Row + 1
   
6.             Union(.[a1:p1], .Range("a" & i & ":p" & i)).Copy Cells(r, 1)
   
7.             [a1:a6].Copy Cells(r + 2, 1)
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码