【东方瑞通】利用VBA一键完成多表数据汇总

easthomeRT

Excel中有许多数据分析功能能够帮助我们对单表中的数据进行分类汇总。但如果面对几十张甚至几百张工作簿的数据，要提取指定数据到一张表中，那么仅仅依靠Excel自带的功能加上手工一张一张表的复制粘贴再计算，工作量可想而知。

这时我们利用Excel VBA编写指定的代码，用户只需要单击一个按钮，几分钟后即可轻松获得汇总结果。

如下图所示，我们需要对五百多份问卷进行数据汇总和分析。

                               
登录/注册后可看大图

每一份问卷需要提取用户的姓名、部门等信息，以及用户报名了哪些课程、勾选了哪些知识点。

                               
登录/注册后可看大图

                               
登录/注册后可看大图

首先新建一张总表，与问卷文件存放在同一路径下，然后打开总表，按快捷键Alt+F11进入VBE界面，即VBA代码存放的界面。在VBE界面中，单击“插入”菜单，选择“模块”，在模块中编辑VBA代码，此处省略一万字…

大家如果有别人编好后的代码，直接复制到这个模块中即可。

代码以Sub 宏名() 开头，宏名是自己命名的，只要没有特殊符号，非纯数字，不重名，总之形象命名就是了。我这里宏名以 Wksht1ToSht 命名。

关闭VBE界面，回到工作表界面，在“插入”选项卡下，插入一张图片或形状，也可以直接用控件来作为运行代码的按钮。右击该按钮→指定宏，选择宏名为 Wksht1ToSht 即可。

                               
登录/注册后可看大图

单击“开始运行”按钮后，电脑自动运行，几分钟后，VBA汇总结果就全部呈现在我们面前了。

                               
登录/注册后可看大图

                               
登录/注册后可看大图

此文出自东方瑞通彭巽言老师，转载需注明出处。