EXCEL为每行后添加一空行

工作中我们常常需要为EXCEL中为每一行后添加一空行或是两行空行，如果表格有很多行，那这个工作就非常的累人。

其实如果我们用宏工具来帮忙，就会轻松很多。

1、打开EXCEL
2、ALT+F11，或在“工具”“宏”中选择“VISUAL BASIC编辑器"
3、在“工程资源管理器”中，对着当前工作表按右键-插入-模块
4、在模块窗口中粘贴以下代码：

Sub insert()
    Dim a As Integer
    Dim b As Integer
    a = WorksheetFunction.CountA(Range("a:a"))
    b = 3
    For x = 1 To a
    Rows(b & ":" & b).Select
    Selection.insert Shift:=xlDown
    Selection.insert Shift:=xlDown
    b = b + 3
    Next
End Sub

5、点击工具栏中左上角“视图”按钮或者关闭当前窗口回到工作表
6、ALT+F8，或在“工具”“宏”中选择“宏”
7、选择好宏名，就是代码第一行“Sub insert()”中的insert()，点击执行。

空行就自动添加好了，是不是很方便啊。

这里b=3是指从哪一行开始添加空行，

Selection.insert Shift:=xlDown这一行代码的意思就是添加一空行