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

 

posted on 2018-11-29 23:19  xc0719  阅读(74)  评论(0)  编辑  收藏  举报

导航