Excel怎样快速把多表数据汇总于总表

Excel怎样快速把多表数据汇总于总表

修法布施得聪明智慧，多分享让生活更美好。上回分享了《Excel总表按条件批量拆分多表（一表拆分多表）》、《Excel总表同列不同数据批量拆分到不同表》，处理总表分多表，下面通过一实例分享分表汇总于总表处理方法。

1Excel总表按条件批量拆分多表（一表拆分多表）

4Excel总表同列不 同数据批量 拆分到不同表

只要“A ”、“B”、“ C”、 “D”表中的数据有变化，将这四表数据按ABCD来排汇总于“汇总”表，如下图。

上例文件保存文件名《Excel怎样快速把多表数据汇总于总表.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以），如下图。

然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。

然后插入了一个模块1，在代码框中复制如下代码：

Sub 分表汇总于总表()

'2020-8-19 22:41:20

Dim rr As Long, rn As Long

Dim myt As Worksheet

rn = ActiveWorkbook.Worksheets("汇总").Range("a" & Rows.Count).End(xlUp).Row

If rn > 1 Then ActiveWorkbook.Worksheets("汇总").Range("a2:b" & rn).ClearContents

For Each myt In Worksheets

If myt.Name <> "汇总" Then

rr = myt.Range("a" & Rows.Count).End(xlUp).Row

rn = Worksheets("汇总").Range("a" & Rows.Count).End(xlUp).Row + 1

If rr > 2 Then

myt.Range("a2:b" & rr).Copy Worksheets("汇总").Range("a" & rn)

End If

End If

Next myt

End Sub

以上操作动态过程如下：

回到工作表窗口，然后运行【分表汇总于总表】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），把“A ”、“B”、“ C”、 “D”表数据汇总于“汇总”表，运行过程如下图。

上面宏处理主法是各分表填写后运行宏才能生成数据，下面是要达到各分表数据修改或增加变动，“汇总”表数据跟着变动的处理方法。

在工作表窗口中鼠标移到当前工作表标签栏“A”表，右键，弹出快捷菜单，如下图。

在快捷菜单找到【查看代码】并单击，打开VBE（宏）编辑界面，如下图。

在右边代码框中复制下面代码到该框中，如下图。

以上步骤操作过程如下动画图。

用以上方法对“B”、“ C”、 “D”表分别添加上面代码。

在工作表窗口“A”、B”、“ C”、 “D”表数据变动，马上汇总于“汇总”表中。为了更直观显示操作过程，增加一个窗口，操作过程如下。

如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！