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