肿么让excel 自动隔行插入行 添写内容

Sub 插入行() For I = 0 To 5 Rows((I * 2 + 1)).Insert Shift:=xlUp Next End Sub 原第1到第5行上各插入1新行