在工作中经常会遇到一个工作簿内包含多个相同格式、相同布局的数据区域，最后需要对每个皤材装肢工作表进行求和操作。手工挨个点击显然是不可取的，下面介绍一种方便快捷的方法。
工具/原料
EXCEL2007及以上版本
方法/步骤
1、检查EXCEL数据区域，确保每个工作表格式、数据分布位置一致。如果分布不一致要对数据位置进行调整。
2、将文件另存为xlsm格式。这是因为本操作需要用到VBA函数，xls、xlsx等格式无法保存VBA函数。
3、打开上一步保存的xlsm文件，观察工具栏是否有”开发工具“，如果没有要在EXCEL选项中勾选。
4、回到EXCEL主界面，点击”开葛激握颟发工具“下的VisualBasic选项进入代码编写界面。也可以使用ALT和F11快捷方式直接调出代码编写界面。
5、输入如下代码：OptionExplicitSubtest()Di葡矩酉缸mw1AsWorksheetDimi,枣娣空郅j,sFori=1ToWorksheets.CountSetw1=Worksheets(i)s=0Forj=2To10s=s+w1.Cells(j,2)Nextjw1.Cells(2,3)=sNextiEndSub这段代码套用了两个FOR循环语句，小循环是对某一个工作表进行汇总，大循环是逐个处理工作簿中的所有工作表。
6、保存代码，回到主页面。在开发工具中点击插入窗体控件，并将宏指定为第5步保存的代码。
7、可以根据需要决定是否需要更改窗体控件名称。此处修改为“汇总”。
8、点击“汇总”按钮，可以看到结果自动填充到了每个工作表的C2单元格中。
