1、上例文件保存文件名《Excel怎样快速把多表数据汇总于总表.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以），如下图。
3、然后插入了一个模块1，在代码框中复制如下代码：Sub 分表汇总于总表() &拭貉强跳#39;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 mytEnd Sub
5、回到工作表窗口，然后运行【分表讠芝飑台汇总于总表】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，执行），把“A ”、“B”、“ C”、 “D”表数据汇总于“汇总”表，运行过程如下图。
