excel怎么样每隔一行插入一个新行

在工作表的代码窗口中粘贴以下代码后关闭该窗口，然后执行该宏即可将第1至10行的每一行下面都插入一空行。如需插入更多行数，可将代码中的“10”酌情更改。 Sub caruhang() For myh = 10 To 1 Step -1 Range(a & myh).Offset(1, 0).Insert Next End Sub