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表数据合并后的结果。效果如图所示。

（本文内容由百度知道网友茗童贡献）

可以利用VBA将多个格式相同的Excel表格数据快速合并到一张表格中。

软件版本：Office2007

方法如下：

1.在当前工作簿中有多个格式万全相同，但数据不同的工作表，将其内容合并到SHeet1中：

2.Alt+F11，输入代码如下：

sub m()

for each sh in sheets

if sh.name<>Sheets(1).name then

sh.range("A2:B3").copy sheets(1).range("A"&Sheets(1).range("A65536").end(4).row+1)

end if

next

end sub

3.F5执行代码，得到结果如下：

（本文内容由百度知道网友贡献）

合并多个表格文件，Excel中可以使用power query，WPS中可以使用数据透视表来完成，两者各有优缺点。

例如，有下面3个表格，表格的标题行中有部分内容相同。怎样合并这样的3个文件呢？

步骤1：将这3个文件存放到同一个文件夹下（很重要），随意打开一个文件（例如01.xlsx），再新建一个空白表格文件。

步骤2：在空白表格文件中，插入数据透视表，选择“使用多重合并计算区域”——“选定区域”——“创建单页字段”——“下一步”。

步骤3：用鼠标选取01.xlsx文件中所有的数据，点击“添加”，就会在“所有区域”看到该数据区域；接着一一选取其他文件区域。

文件很多的话，这一步也是很麻烦的。可以使用BAT命令先将文件重命名成类似的名字，这样选取了第一个表格数据之后，后面的数据就不需要打开表格选取，而是直接修改文件名字。每个表格中的数据不同，在添加区域时，可以将区域设置的大一些，例如使用“$1:$4”(表示表格前4行）。

步骤4：数据选取完毕，就可以点击“确认”键创建一个新的数据透视表，会看到如下的汇总结果。界面中部的数据就是各个文件中的原始数据。

步骤5：还可以将筛选器下的“页1”拖到行字段下，这样我们就会看到界面左侧有“项1”、“项2”和“项3”，分别对应步骤3所添加的文件啦。

步骤6：如果某个原始表格中的数据变更了，可以在汇总表格上右键一下，点击“刷新”，汇总表数据也会随之更新。

和Excel的Power Query相比：

1. Excel中操作更简单一些，不过也只有Excel2016以上的版本才支持。

2. Excel的power query合并表格文件时，要求每个表格中的工作表名称相同，列数也必须相同，否则合并后数据会有遗漏或差错；使用数据透视表则没有这个限制。

3. 如果表格中列标题相同、行标题不相同，使用Excel的power query则不能合并；使用数据透视表则可以合并。

4. 原始数据更新时，两者都可以同步更新。

5. 数据透视表合并原始数据的同时还能汇总数据。

谢谢阅读，欢迎点赞、评论、关注和点击头像。

两种情况，一种是没有内容时的合并；一种是有内容时的合并。

没有内容时的合并：选中相邻的两行，然后点击“合并居中”按钮，那么就可以得到已经合并的一行，如图所示：

未点击合并居中前

点击合并居中后

有内容时的合并有两种方法，第一种方法：

如图在需要得到结果的格子B5中输入“＝B3&B4”，然后回车得出以下结果：张三李四

然后要得到成绩的合并值，可通过以下方法得到

用鼠标放置在图中红色圈的点上，然后将该点往右拖动，然后松开鼠标即可得到结果：8067

第二种合并方法：

点击“插入”“函数”，然后找到  concatenate函数，点击使用

然后选择需要合并的参数，B3和B4

然后回车即可得到合并后的结果

最后一步与第一种方法该步骤相同，拖拽该点得到结果

（本文内容由百度知道网友juese550贡献）

合并方法如下：

把需要合并的excel表格文档放到同一个文件夹里

新建一个“数据合并.xlsx“文档

打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口

双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面

完成Excel表格的合并。

（本文内容由百度知道网友lvrqing贡献）

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表格的世界，也是这么的，甚至不用等，随时都可能上演“拆分”“合并”。有粉丝遇到问题了：把同部门的员工合并在一起。同项目的数字合并，容易，辅助列里去重，然后用SUMIF函数把数字相加即可。但同项目的文本怎么合并呢？这不，只有抓脑袋求助了……

话说前不久老板才让把合并统计的客户一一拆开，今天又突然要求把分开统计的员工按部门合并在一起，真的要疯了！

肿么办？

大神有2种解决方法。先告诉你一个已经如上图按部门进行排序后的处理方法。方法用到大家都很了解的IF函数。

方法一:IF函数

为了便于大家理解，我们将从下往上填充公式。

（1）在C22单元格输入函数公式=IF(A23=A22,B22&";"&C23,B22)。因为A23不等于A22，所以C22的值等与B22值“樊磊”。

（2）从下向上填充公式至C21，因为A22等于A21，所以结果是B21&C22,即“艾冬梅;樊磊”。

（3）如此，向上填充到C2，结果如下：

（4）拷贝C列，然后再原位选择性粘贴，粘贴为值。

（5）在C1输入“员工姓名”，然后删除B列。

（6）选中A、B两列数据，单击“数据”选项卡“删除重复值”按钮，弹出“删除重复值”对话框，取消“员工姓名”列的选择。

（7）单击“确定”后，直接确定出现的提示对话框，得到最终结果。

上面使用IF函数的解决方法有一个前提：数据已经按部门进行了排序。下面再介绍一种不管是否排序都可以实现同部门员工合并的方法：使用IFERROR+VLOOKUP函数组合，也可以使用IFNA+VLOOKUP函数组合。

方法二：IFERROR+VLOOKUP组合

（1）在C2单元格输入函数公式B2&IFERROR(";"&VLOOKUP(A2,A3:C$23,3,0),"")然后向下填充。填充完成后我们看到每个部门第一行对应的C列单元格已经将当前部门所有员工姓名合并。

（2）采用方法一的（4）~（7）步骤，完成最终结果。

函数公式解析：

我们从内到外逐层解释。

（1）在C2单元格通过函数公式VLOOKUP(A2,A3:C$23,3,0)公式返回首次出现相同的单元格，也就是A3对应的第三列C3单元格,由于C3单元格为空白所以结果返回为0。

（2）这里我巧妙的在vlookup前面添加了“，”符号，如果目标单元格为空白那么就返回“，”，不再返回0。

（3）IFERROR的作用则是规避vlookup错误结果，如果vlookup公式结果为#N/A（错误）则返回空白，反之返回vlookup公式结果。

函数公式","&VLOOKUP(A2,A3:C$23,3,0)统计结果为“，”并非#N/A（错误）。因此函数公式IFERROR(","&VLOOKUP(A2,A3:C$23,3,0),"")的结果就是","，最终整个公式=B2&","，即“谷优美,”。

（4）当公式填充到C3单元格时，C4单元格还是空白，所以C3单元格只能返回B3单元格内容加上“，”，即“侯蕾,”。

（5）此时C3不为空了，C2单元格结果跟随变化，变成了“谷优美,侯蕾,”。

如此依次向下填充就可以把整个研发培训部的员工名称返回到C2单元格。

（6）如果到不同部门衔接处C6，vlookup统计结果#N/A，IFERROR则会检测到公式错误，则返回“”（空白），C6结果=B6，即“田凤”，而不会加入下方财务部门的人员。

所以这样向下完成填充后就得到以下结果。

（7）这个公式不但可以用于当前这种已经按部门排序的情况，也可以用于没有排序的情况，如下：

好了分享结束，有没有明白呢。不过呢，日常统计一般都是分门别类罗列好数据的。

＊＊＊＊部落窝教育－excel合并技巧＊＊＊＊

原创：龚春光/部落窝教育（未经同意，请勿转载）

把几个excel表格的内容，合并到同一张表格里面，如何操作？看小编给你演示。

第一步：把需要合并的表格放在同一个文件夹里面，然后再新建一个excel，如图：

第二步：打开“新建Excel2007”，鼠标右键单击Sheet1，选择“查看代码”并打开进去。

第三步：将下列代码粘贴进代码栏：

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

第四步：点击菜单栏的“运行”、“运行子子过程/用户窗体”，等待几秒后提示合并完成，点击确定。如图：

完成，这样就把3个表格的内容合并到同一张表格里面。

好了，如果觉得小编文章不错，欢迎关注、点赞、收藏。

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个Excel表格数据，经常是多个数据合并到一个excel表格里来做数据分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一个文件夹里。如下图：

2、打开汇总excel，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3、然后我们把下面代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行几十秒钟就OK啦！如果表格数据过多的话，时间会久一点。

施老师：

快要过年了，年前许多公司开始统计之前每月的销售表格，做一个整年的销售统计表。有的小公司的表格可能不是很多，手动就可以整好。但是对于一些需要整合大量表格的公司来说是一件很费时的事情。今天施老师就给大家分享下快速合并并计算表格方法！

一、下图中有两个表格，怎样把它们合并到一起呢，我们可以点【数据】-【数据工具】-【合并计算】。就可以了。

上面两个表格数据不是很多，但是我是做演示，所以先用的这个案例，如果碰到数据很多的表格，这个方法是再好不过了。大家不妨试一下下。

有什么疑问的大家可以在下方评论区留言给我，和施老师一起探讨，欢迎关注宁双学好网施老师！