【东方瑞通】利用VBA一键完成多表数据汇总
Excel中有许多数据分析功能能够帮助我们对单表中的数据进行分类汇总。但如果面对几十张甚至几百张工作簿的数据，要提取指定数据到一张表中，那么仅仅依靠Excel自带的功能加上手工一张一张表的复制粘贴再计算，工作量可想而知。这时我们利用Excel VBA编写指定的代码，用户只需要单击一个按钮，几分钟后即可轻松获得汇总结果。
如下图所示，我们需要对五百多份问卷进行数据汇总和分析。
http://115.28.154.201:1089/Content/ueditor/net/upload/2015-07-08/c3b33f58-a08a-4233-a3ad-0f17739fb440.png
每一份问卷需要提取用户的姓名、部门等信息，以及用户报名了哪些课程、勾选了哪些知识点。
http://115.28.154.201:1089/Content/ueditor/net/upload/2015-07-08/368a5da3-6830-461b-a92a-9f0df23d3674.png
http://115.28.154.201:1089/Content/ueditor/net/upload/2015-07-08/21ce9c29-0d60-4cdf-b881-e9e32c91d810.png
首先新建一张总表，与问卷文件存放在同一路径下，然后打开总表，按快捷键Alt+F11进入VBE界面，即VBA代码存放的界面。在VBE界面中，单击“插入”菜单，选择“模块”，在模块中编辑VBA代码，此处省略一万字…
大家如果有别人编好后的代码，直接复制到这个模块中即可。
代码以Sub 宏名() 开头，宏名是自己命名的，只要没有特殊符号，非纯数字，不重名，总之形象命名就是了。我这里宏名以 Wksht1ToSht 命名。
关闭VBE界面，回到工作表界面，在“插入”选项卡下，插入一张图片或形状，也可以直接用控件来作为运行代码的按钮。右击该按钮→指定宏，选择宏名为 Wksht1ToSht 即可。
http://115.28.154.201:1089/Content/ueditor/net/upload/2015-07-08/02b964bd-f57d-4bfa-83fb-f531991effc8.png
单击“开始运行”按钮后，电脑自动运行，几分钟后，VBA汇总结果就全部呈现在我们面前了。
http://115.28.154.201:1089/Content/ueditor/net/upload/2015-07-08/671a857e-7ca6-4ad9-bb38-5f59207aee58.png
http://115.28.154.201:1089/Content/ueditor/net/upload/2015-07-08/cdfcac75-7566-416a-8ade-0f07e074011c.png
此文出自东方瑞通彭巽言老师，转载需注明出处。
路过了解一下
页:
[1]