for循环
Sub gzd()
Range("A1:L1").Select
Dim i As Integer
For i = 1 To 10
ActiveCell.Range("A1:L1").Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Next
End Sub
Sub gzt()
Range("A3:L3").Select
Dim k As Integer
For k = 1 To 10
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
Next
End Sub