Sub 宏1()
Dim iRows As Long
Application.ScreenUpdating = False
iRows = 1
Do While Range("a" & iRows + 1) <> ""
iRows = iRows + 1
Rows(iRows & ":" & iRows).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
iRows = iRows + 1
Loop
Application.ScreenUpdating = True
End Sub
其中的 1 为行数，如你要隔几行插入几行，自行修改
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024