工作中我们常常需要为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这一行代码的意思就是添加一空行