用excel 宏为xls文件添加行

1、先录宏
2、修改宏脚本为：
Sub addline()
Dim i As Long
Dim a As Long

For i = 1 To 100
a = 101 - i '
    Rows(a).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Next
End Sub

运行宏，这样就会把excel文件从1-100行中间各添加3行