VBA 学习第一课

Sub  gzt()

Dim i As Integer
For i = 1 To 10
Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    Next
    
End Sub
Sub  gzt()

Dim i As Integer
For i = 1 To 1