本文目录一览：
- 1、如何将多个Excel表格汇总在一个表格中？
- 2、如何用EXCEL函数将两个单元格的内容合并到一个单元格里面？
- 3、Excel多表合并汇总技巧，SUM()函数最快捷最简单的应用
- 4、excel如何将多个表格内容汇总到一起 函数
如何将多个Excel表格汇总在一个表格中？
如果是相同格式的Excel表格，可以利用VBA快速将几个工作表中的数据全部汇总到一个工作表中。
软件版本：Office2007
举例说明如下：
1.当前工作簿中有多个工作表有如下相同格式的数据，将其全部汇总到总表中：
2.Alt+F11，在总表中输入如下代码：
代码是实现：将不同的工作表中AB两列中从第二行开始到最后一行非空数据，依次复制到名为“总表”的工作表中
3.F5执行代码，表格数据就合并到总表中了：
如何用EXCEL函数将两个单元格的内容合并到一个单元格里面？
合并单元格内容的函数是CONCATENATE也可以用 （和号）运算符。/x0d/x0a /x0d/x0a一、CONCATENATE函数的定义/x0d/x0a将几个文本字符串合并为一个文本字符串。/x0d/x0a语法/x0d/x0aCONCATENATE (text1,text2,...)/x0d/x0aText1, text2, ... 为 1 到 30 个将要合并成单个文本项的文本项。这些文本项可以为文本字符串、数字或对单个单元格的引用。/x0d/x0a说明/x0d/x0a也可以用 （和号）运算符代替函数 CONCATENATE 实现文本项的合并。/x0d/x0a /x0d/x0a二、假设要将A1,B1两个单元格的内容合并在C1单元格中，则/x0d/x0aC1单元格写入公式/x0d/x0a=CONCATENATE(A1,B1)/x0d/x0a或/x0d/x0a=A1B1
Excel多表合并汇总技巧，SUM()函数最快捷最简单的应用
其实，多表合一方法有很多，这里我只介绍两种最快捷的方法!
将下图一月、二月、三月3张表数据合并汇总到一季度表中。
方法非常简单，选择C2：E5区域，输入SUM('*'!C2), 按Ctrl+Enter。
3个月的数据瞬间合并完毕
反思一下，如果只合并1月和2月两个表的数据呢？
很简单！在C2单元格输入SUM('1月:2月'!C2)，即可
再问：合并1月和3月的两个表格，函数应该怎么写呢？
=SUM('1月'!C2,'3月'!C2)
下面把表格改一下，看看另一种合并方式
三个表格分公司A、分公司B、分公司C这三列，进行汇总。
在B2单元格输入 =INDIRECT(B$1“!b”ROW()) 即可
NDIRECT(B$1“!b“ROW())文本引用，即引用分公司AB2单元格数据。
注意：INDIRECT()参数不加引号情况下只做地址引用，只返回单元格地址。
希望大家可以通过以上几种合并效果，可以举一反三，做出更有效的函数应用。
没有Excel2016的伙伴，可以私聊回复“2016”获取！
也可回复“考勤表”、“仓管系统”、"分享"等关键字，获取更多免费资源
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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。