EXCEL应用技巧：如何在每行下插入一个空行
一张数据表格，想在每一行下插入一个空行的简单快捷的方法，那就是编写宏函数：
打开excel的VB编辑窗口新建一个模块,将代码复制,运行即可:
Sub addrows()
For i = Application.WorksheetFunction.CountA(Range("A:A")) To 2 Step -1
Rows(i).Select
Selection.Insert Shift:=xlDown
Next
End Sub
转载于:https://blog.51cto.com/38554/1059945