只需用一招，就可以学好VBA…… 看下一篇为了活跃

点击上方蓝字
「Excel不加班」
关注
，
看下一篇

文章图片
为了活跃气氛，
在文末点亮“在看”+评论区留言，我会从中抽取3名粉丝，每人赠送一本《Excel效率手册早做完，不加班》。

VBA是Excel中最难的，也是最智能的功能。很多人对他又爱又恨，爱是因为一键就搞定工作，恨是因为太难了一大堆代码看了头痛。
其实，学VBA是有方法的，很多代码都不是手写的，而是通过录制宏得到。今天，卢子带你重新认识VBA 。
1.

生成12个工作表
普通操作的话，是直接点这个+ ，就生成了一个新工作表，连续点11次。

文章图片
而用VBA的话，可以先通过录制一个宏，生成一个录制的宏过程，再通过适用循环方法，生成10个新表。
Step 01
点录制宏，再新建一个工作表，停止录制宏。

文章图片
Step 02
点工作表，右键查看代码，在模块中就可以看到刚刚录制的宏代码。
Sheets.Add After:=ActiveSheet

文章图片
Step 0
3
添加一个循环语句For Next ， 1 to 10 ，就是循环10次，前面有2个工作表再加10次就是12个工作表。分页标题
Sub 宏4()
For i = 1 To 10
Sheets.Add After:=ActiveSheet
Next
End Sub

文章图片
Step 0
4
点绿色的运行按钮，这样瞬间就搞定了。

文章图片
2.

删除工作表，只保留1个
Step 01
同样道理，录制一个删除工作表的宏。

文章图片
Step 02
点工作表，右键查看代码，在模块中就可以看到刚刚录制的宏代码。

文章图片
Step 03
现在还需要删除2到11的工作表，也需要添加循环语句，那些无关的代码可以删除，并不影响效果。
Sub 宏5()
For i = 2 To 11
ActiveWindow.SelectedSheets.Delete
Next
End Sub
这样本来就可以，不过还有一个问题，就是在删除工作表的时候会弹出一个警告对话框。用技巧的话只能忍受，但用VBA可以忽略掉警告对话框，可以再增加一个语句。
Sub 宏5()
Application.DisplayAlerts = False '忽略运行过程中出现的警告
For i = 2 To 11
ActiveWindow.SelectedSheets.Delete
Next
End Sub
Step 0
4
运行代码以后，就只剩下一个工作表。

文章图片
当操作的宏比较多的时候，需要对宏进行重命名，要不然可能会忘了宏的作用。修改名字以后，这样会更加清晰。

文章图片
你在网上看到的模板，都是点一下按钮就搞定，其实，我们自己也可以插入一个按钮来执行代码。
插入一个形状。

文章图片
指定宏

分页标题
文章图片
修改形状的名称，并运行代码。

文章图片
使用VBA要另存为启用宏的工作簿。

文章图片
最后再总结一下， VBA的步骤都基本一样，先录制宏，然后修改宏代码，再插入一个形状来运行代码，并另存为启用宏的工作簿。
如果你对VBA有兴趣，后面还会继续深入说明。
比如根据总表的内容生成工作表或者根据工作表生成目录等等。

文章图片
VIP
888
元，一次报名，所有视频课程，终生免费学，提供一年在线答疑服务。

文章图片
报名后加卢子微信chenxilu2019
，发送报名截图邀请进群。
推荐：感受宏的魅力，发票跟进管理
上篇：神秘的D字头函数，轻松搞定多条件求和， 90%的人都没用过

文章图片
写了好多年文章，发现绝大多数技巧、函数都写过文章，而VBA、图表、PQ方面目前文章相对比较少，后期可能偏这几个新方向。
写文章其实挺难的，写太基础了，老读者已经会了不想看，写太难了，新读者又看不懂也不想看。
你呢，最想看什么文章？

文章图片
作者：卢子，清华畅销书作者，《Excel效率手册早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）

文章图片
请把「Excel不加班」推荐给你的朋友
【只需用一招，就可以学好VBA……】无需打赏，请点在看↓↓↓