修法布施得聪明智慧，多分享让生霰翌倡戈活更美好。上回分享了《Excel总表按条件批量拆分多表（一表拆分多表）》、《Excel总表同列不同数据批量拆分到不同表》，膏柽伫挞处理总表分多表，下面通过一实例分享分表汇总于总表处理方法。
工具/原料
MicrosoftOfficeExcel2007
ExcelVBA
实例问题
1、只要“A”、“B”、“C”、“D”表中的数据有变化，将这四表数据按ABCD来排汇总于“汇总”表，如下图。
一、宏处理方法/步骤
1、上例文件保存文件名《Excel怎样快速把多表数据汇总于总表.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以），如下图。
2、然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
3、然后插入了一个模块1，在代码框中复制如下代码：Sub分表汇总于总表()&拭貉强跳#39;2020-8-1922:41:20DimrrAsLong,rnAs惺绅寨瞀LongDimmytAsWorksheetrn=ActiveWorkbook.Worksheets("汇总").Range("a"&Rows.Count).End(xlUp).RowIfrn>1ThenActiveWorkbook.Worksheets("汇总").Range("a2:b"&rn).ClearContentsForEachmytInWorksheetsIfmyt.Name<>"汇总"Thenrr=myt.Range("a"&Rows.Count).End(xlUp).Rowrn=Worksheets("汇总").Range("a"&Rows.Count).End(xlUp).Row+1Ifrr>2Thenmyt.Range("a2:b"&rr).CopyWorksheets("汇总").Range("a"&rn)EndIfEndIfNextmytEndSub
4、以上操作动态过程如下：
5、回到工作表窗口，然后运行【分表讠芝飑台汇总于总表】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），把“A”、高酿眚郁“B”、“C”、“D”表数据汇总于“汇总”表，运行过程如下图。
二、事件处理方法/步骤
1、上面宏处理主法是各分表娴錾摇枭填写后运行宏才能生成数据，下面是要达到各分表数据修改或增加变动，“汇总”表数据跟着变动的处理方法。在工作表窗口中鼠标移到当前工作表标签栏“A”表，右键，弹出快捷菜单，如下图。
2、在快捷菜单找到【查看代码】并单击，打开VBE（宏）编辑界面，如下图。
3、在右边代码框中复制下面代码到该框中，如下图。
4、以上步骤操作过程如下动画图。
5、用以上方法对“B”、“C”、“D”表分别添加上面代码。
6、在工作表窗口“A”、B”、“C”、“D”表数据变动，马上汇总于“汇总”表中。为了更直观显示操作过程，增加一个窗口，操作过程如下。
7、如果觉得这篇经验帮到了您，请点击下方的“投票点赞"或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！