excel如何在每行下插入固定的行数？

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,