excel中如何把每个数字增加三行空格呀

<p>怎么增加行</p> <p></p> <p>就是这样子 急急急急急</p>

第1个回答  2019-06-07
1、按Alt+F11打开VBA编辑器
2、插入-模块
3、复制以下代码到模块1
4、运行宏Test
Sub
test()Application.ScreenUpdating
=
False
With
Sheets("sheet1")
'此处改为实际表名
r
=
.[A65536].End(xlUp).Row
For
i
=
r
To
2
Step
-1
.Rows(i
&
":"
&
i
+
2).Insert
Next
End
With
Application.ScreenUpdating
=
True
End
Sub
相似回答