录制一个宏:
实现:将表单中的表头插入每一行
step 1:如何打开EXCEL中的宏选项
你需要点击文件—>选项—>自定义功能区—>勾选“加载项”即可。
![](https://i-blog.csdnimg.cn/blog_migrate/b2ae6d540fc819f1205e4357aa953f61.png)
然而需要注意的是:使用宏是有安全性限制的,Office办公软件的默认宏安全性设置为高,是无法启用编写好的 VBA 程序代码的。所以通过如下方式将安全性降低:
需要点击文件—>选项—>信任中心—>宏设置—>勾选“信任对VBA工程对象模型的访问”即可。
![](https://i-blog.csdnimg.cn/blog_migrate/5c0f3473506ca76febfd45dcedcd4079.png)
step 2:如何使用宏录制实现我们的目的
首先需要先选中表头行(一定要在录制开始前选中表头行,因为如果录制完后再选中第一行,就会报错“1004”)
![](https://i-blog.csdnimg.cn/blog_migrate/b327588c8232ebe882756d6c27582c11.png)
然后需要将“相对引用”打开
![](https://i-blog.csdnimg.cn/blog_migrate/c2404d8aaec49e2ba5ebbc825b9ae21c.png)
接下来就可以正式录制啦
![](https://i-blog.csdnimg.cn/blog_migrate/ad1411c013516f4a5eb8b84a03627169.png)
录制开始前需要填写宏名称,并且给宏一个快捷键,毕竟你不会想要全程用鼠标操作
![](https://i-blog.csdnimg.cn/blog_migrate/7f0499692097a755562d58dc30f39e50.png)
当你开始录制之后,对录制前已选中的表头行直接复制(Ctrl+C),并且从第三行起插入(符合EXCEL的使用规则)
![](https://i-blog.csdnimg.cn/blog_migrate/98e9914126d10486e65a6c5446478df7.png)
然后直接停止录制,我们就完成了这个宏的录制全过程
![](https://i-blog.csdnimg.cn/blog_migrate/9c4e8b88887ea57117a38892367c6010.png)
step 3:录制完后实现你的宏
可以通过快捷键直接实现
![](https://i-blog.csdnimg.cn/blog_migrate/ca6e77d077d3002bebed4e76cbc38e6d.png)
这样还不够简便,于是我们可以添加一个按钮,点击即可执行宏
![](https://i-blog.csdnimg.cn/blog_migrate/3ce6083af5b3fb41d4172e73c2b95c77.png)
以下是按钮的操作效果
![](https://i-blog.csdnimg.cn/blog_migrate/f434940ef233aef058dc7e4a6224b0fc.png)
step 4:实现宏的自动化
如果以上部分一步步执行仍然不能让你满意,那就需要改进这个宏,实现自动化
快捷键Alt+F11直接跳转进VBA编辑窗口
![](https://i-blog.csdnimg.cn/blog_migrate/43496d10f538a392cd70cb35c50bcd09.png)
然后在这里添加两行命令即可(先判断一下原始数据有多少行)
![](https://i-blog.csdnimg.cn/blog_migrate/9ea28b901f60e99037568914af43e043.png)
这两行的意思是:利用For循环,建立一个计数变量,然后让该程序运行21次然后跳出。
这样以来就可以实现自动化
![](https://i-blog.csdnimg.cn/blog_migrate/832f89761f0009c90ea3250bc8a9b1b2.png)