第2个回答 2014-08-02
Sub 鼠标放在首行()
Dim a As Integer
For a = 1 To 100 '100是次数,自己可以改
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(3, 0).Rows("1:1").EntireRow.Select
Next
End Sub