本文目录一览：
- 1、excel怎么把多个表格快速合并汇总成一个表?
- 2、多个excel文件数据累加汇总表的教程
- 3、如何将多个Excel数据汇总相加到一个表格中？
- 4、excel多表格怎么汇总
- 5、如何汇总多张excel表的数据
- 6、怎么把多个excel文件数据汇总到一个excel
excel怎么把多个表格快速合并汇总成一个表?
1、需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
2、用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
3、然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath "/" "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName ""
If MyName AWbName Then
Set Wb = Workbooks.Open(MyPath "/" MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN Chr(13) Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" Num "个工作薄下的全部工作表。如下：" Chr(13) WbN, vbInformation, "提示"
End Sub
4、运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
多个excel文件数据累加汇总表的教程
在 Excel 中录入好数据以后经常需要进行多个表的数据统计，其中都需要用到奥多个文件数据累加汇总表的功能，具体该如何实现呢?下面是由我分享的多个excel文件数据累加汇总表的教程，以供大家阅读和学习。
多个excel文件数据累加汇总表的教程：
多文件累加汇总步骤1：创建一张汇总表，选中数量下面的单元格。
多文件累加汇总步骤2：点击数据——合并计算，函数里面填求和。
多文件累加汇总步骤3：在引用位置，点击带红色箭头的框框。
多文件累加汇总步骤4：点击A供应商这张工作表，选中参与计算的数据范围。
多文件累加汇总步骤5：点击添加在所有引用位置出现“A供应商!$D$2:$D$13”，然后依次对B供应商工作表，C供应商工作表进行操作。
如何将多个Excel数据汇总相加到一个表格中？
两个文件的合并，可以使用复制粘贴实现。具体步骤如下：
一、把第一个表复制到总表；
二、复制第二个表的数据，到总表里面，选择性粘贴，选中【加】，确定，数据就合计了，不是覆盖，选择性粘贴的界面如下图：
excel多表格怎么汇总
打开汇总工作簿，Excel2016版执行数据(10、13版power querry) - 新建查询 - 从文件 - 从文件夹。
通过浏览找到被汇总的“月报”文件夹，点确定。
点打开窗口右下角的合并 - 合并和编辑
添加汇总表
在打开的合并文件窗口中，点击示例文件下拉菜单中的文件名，然后点下面汇总的工作表中。（如果有多个工作簿，只需要添加2个左右即可）
点击确定后会进入“查询编辑器界面“，A、B两个公司的数据也合并在界面中。
对工作簿名称进行分列，去掉后缀.xlsx。
开始 - 拆分列 - 按默认拆分 - 删除".xlsx"列。
删除空行、设置标题行
选取项目列右键 - 删除空。
点击“将第一行用作标题”。
打开项目下拉菜单，去掉“项目”选项。目的是去掉重复的标题
把查询编辑器中的数据导入到Excel表格中
开始 - 关闭并上载。（你会发现添加的虽然只是A和B公司，其实导入的是文件夹中所有公司的数据。）
生成汇总
选取导入后的表任一单元格，点击“通过数据透视表汇总”
通过调整数据透视表格式，文件夹中所有公司的汇总表如下所示：
添加切片器后，将让表格任意生成：
成本汇总表、利润汇总表等各种表格，想要深入了解powerquery的话你还需要学习更多知识哦！
如何汇总多张excel表的数据
在工作中我们经常遇到这样一个问题。将多个张表汇总到一张总表里面，如果你还没有上班，那么如果是是班上的班干，那么我相信你对这样的工作也是深有体会吧！
如果你既不是上班族，大学里也是那个四年老师叫不出名字的同学，那么，缘分刚刚好，我要找的就是你。相信我，如果你现在还不会这一招，工作之后它一定会给你带来烦恼。下面我们就开始演示 如何汇总多张表的数据 。
可能对于很多人来说，如果表的张数不多，当然，复制粘贴yyds，但是如果我们的表太多了呢？不如需要汇总100张表，C/V不仅效率低，并且很容易出错。那么这个时候你就必须要学会这一招了。（当然如果你会python，python办公自动化也是个不错的选择）
例如，我们有这样三个文件。
这三个文件中的数据格式都是这样的，只是数据不同而已。
而最终我们想要得到这样一张总表
下面，我们正式开始
1.建立链接
1.1 新建一张新的excel表，点击“数据”-点击“获取数据”-'自文件'-“从文件夹”找到的你的包含这三个文件的文件夹（是文件夹，不是这三个文件）点击“打开”-“合并”-“合并并转换数据”
接下来你就来到这样的页面，点击“工作表”，点击右下角的“确定”
1.2 接下来，我们到了Power Query编辑器，这个编辑器就是让给我们导入数据到表之前可以进行预先调整的一个界面，如果这个时候我们它关闭了并却没有点击左上角的“关闭并上载”，那么数据并不会导入到表格里。
这个时候我们点击左边的“data”,会发现，三张表的数据都导入进来了，但是，第一列它将我们的表名也放进来了。而且由于之前我们的每张表都有空行，所以现在发现很多空行
1.3 现在，我们需要将多余的第一列删掉，并且删掉所有空行
首先选中这一列（第一列），接下来点击“主页”，点击“删除列”，“删除列”，我们就将这列删除了。
下面要删除所有的空行，点击“删除行”--"删除空行"，就将所有的空行删除掉了
1.4 关闭并上载数据
点击左上角的“关闭并上载”--"关闭并上载"，我们就可以看见，我们想要的汇总后之后的表已经得到了。
总结：
1.新建一张新的excel表，点击“数据”-点击“获取数据”-'自文件'-“从文件夹”-找到的你的包含这三个文件的文件夹点击“打开”-“合并”-“合并并转换数据”
2.删除空行和不需要的第一列
3.关闭并上载
好了，我们今天就分享到这里，明天见！
欢迎大家移步到翔宇公众号“ 数据分析者 ”阅读更多内容！
怎么把多个excel文件数据汇总到一个excel
1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath "/" "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName ""
If MyName AWbName Then
Set Wb = Workbooks.Open(MyPath "/" MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN Chr(13) Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" Num "个工作薄下的全部工作表。如下：" Chr(13) WbN, vbInformation, "提示"
End Sub
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。