Excel作为一个具有强大的数据处理的办公软件，对于白领一族来说，使用频率应该较高。在处理数据过程中，您是否碰到过清单之类汇总的情况，就是将同一个工作簿中的所有工作表的内容合并到一个工作表中。对于不会取巧的朋友，可能就是一个表一个表的复制，然后粘贴拼凑在一块，若碰到表格数量不多的情况，这种方法还好，若是碰到工作表数量庞大，例如50个工作表，100个工作表......这种方法就很鸡肋。今天本篇以Excel2013为例，教大家如何一键实现所有工作表合并到新工作表中，同样适用于Excel其他版本，碰到细微差异，可以适当调整代码。

教程将内容分成三部分：第一部分是新建一个汇总的工作表，并重新自定义命名；第二部分是逐一将各个工作表复制粘贴到汇总工作表中；第三部分为提示，即当合并工作完成后弹出提示。具体操作如下：

打开工作簿，在工作表标签中会显示包含的工作表名称，教程以下图中三个工作表为例，分别是Sheet1，Sheet2，Sheet3.按下组合键Alt+F11即可从Excel工作界面切换到VBA界面，在VBA窗口单击菜单栏中的插入，找到模块命令，单击该命令即可创建一个新的模块窗口，在模块窗口复制粘贴以下代码：

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub

之前写过一篇文章，介绍如何合并一个 Excel 文件中的多个工作表。

以后如果碰到要合并12个月的

每一年的

全部学院的

还有来自五湖四海的

各种五花八门成千上万行的数据，都可以在几秒内轻松搞定。

不用函数公式，不用编写VBA代码，还能自动更新。

体验了这一个功能，我就对 Excel 2016 的查询功能爱不释手了！还能不能更牛C一点呢？

很多时候，我们要汇总合并的表格不在一个文件里头。

比如，做好报名人员信息登记表模板，群发给了100个训练班的班主任。他们登记好表格表格发回给我，肯定是分开一个个文件的呀。有没有办法把他们自动合并到一个汇总表里头呢？

再比如，我每周都要汇总一次公司所有产品的销售明细，拿到手的却只有单周数据。难道我还要每周复制粘贴，每周重做一遍统计工作吗？

这不科学

……

幸好幸好，查询这个功能还可以合并多个文件中的多个表格。操作起来和汇总单个文件中的多个表差不多，只是多了几步而已。

以每个业务员发出的赠品明细表为例。每人提交的表格文件，统一放入一个文件夹中。

接下来我们就看如何，用5个步骤，将这个文件夹里的所有表格数据全部提取出来合并到一个新的汇总表中。

第一步：导入文件夹

在数据选项卡下，【新建查询】-选择【从文件】-【文件夹选项】。

导入文件夹后，跟随提示进入查询编辑器。

上一篇文章，在导入单个Excel文件中的多个工作表后，直接就开始对数据进行整理操作了。

但是这一次导入的是文件夹中的多个Excel文件，目前为止获取到的数据，都是Excel工作簿的名称、格式、创建日期等文件基本信息，还没有文件夹、工作簿的“外壳”包裹着。

所以需要额外做的是穿透文件夹、工作簿，提取到每个工作簿中的表格和数据。

第二步：提取工作簿

要穿透工作簿提取出工作表，需要在查询编辑器中创建一个辅助列。所以，先选择【添加列】-【添加自定义列】。

然后添加自定义对话窗中，写入一条公式。

（别担心，很短，只要一模一样复制过去就可以了）

=Excel.Workbook([Content])

注意，一定要一模一样，包括字母大小写。

一定要用英文符号！一定要用英文符号！一定要用英文符号！

重要的事情说三遍

点击确定以后，就将文件夹中的全部 Excel 工作簿放入编辑器中。

第三步：提取工作表

点击自定义列旁边的扩展按钮，展开按钮工作表列表。

再继续提取工作表中的详细数据。

第四步：提取数据

点击Custom.Data列旁的扩展按钮，就能展开明细数据。

第五步：清洗数据

后面的操作就和上一篇操作步骤一样了。再简单复习一遍。选中需要保留的数据列，然后删除其他列。

将第一行设为标题行。

去除标题同名数据行、Null空行，筛选出最终需要的汇总数据。

第六步：完成合并

将加工完成的数据加载至工作表中。以后再添加新工作表，直接丢进文件夹，然后打开合并中刷新查询就行。

Tips:如果从管理系统中导出的文件是 CSV、TXT 等文本格式的文件就更加简单。从文件夹导入数据到查询编辑器之后，不需要写公式提取工作表，直接将 Content 列扩展即可。

扩展得到数据列表后，继续扩展得到详细数据，再按照上述步骤清洗数据，就能达到同样的查询效果。

看，就是简单的点击操作，最复杂的也就是一行固定不变的简短代码，=Excel.Workbook([Content])

意思是来源于 Excel 软件的工作簿内容。

有了这一招，只要搭建好统计报表的框架，数据引用自合并以后的汇总表。以后有新的数据表，就丢进文件夹里 100 多份表格汇总、统计分析、别人几天的工作量，每月来一次。

就这样轻轻松松点击一下刷新，搞定！可以喝咖啡去咯~

在使用Excel时，如果想把两个单元格中的文字合并到一个单元格中，或者想把两列文字合并成一列，可参考下述方法：

例如要将下图表格中的省和市合并到一个单元格、列中。

●先用鼠标点击选择一个保存合并内容的单元格。

●然后在编辑栏中输入一个等号。

●输入等号后，用鼠标点击要进行合并的第一个单元格。点击后，该单元格的名称会自动输入到编辑栏中。

●再在编辑栏中输入一个“&”符号（按住键盘的Shift键不放的同时按大键盘上方的数字7键）。

●输入“&”后，再用鼠标点击要合并的第二个单元格。

●完成以上步骤后，按键盘的回车键或者点击编辑栏左侧的对号按钮。

●这样，就将两个单元格中的文字合并到一个单元格中了。如果要合并两列，可用鼠标点击合并后单元格右下角的填充柄。

●点击填充柄后，按住鼠标左键不放，向下拖动鼠标，则相同两列中的文字就会自动合并到一列中。

合并后的单元格中虽然显示的是文字，但点击单元格后从编辑栏中可看出单元格中的实际内容是公式。此时如果将该单元格中的内容直接复制粘贴到其他位置，粘贴后的内容会发生改变。如果想保持粘贴后的内容不变，可以采用选择性粘贴数值的方法粘贴，或者将单元格中的内容复制粘贴到word中，再从word中复制粘贴过来。

编按：分久必合，合久必分！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表格，连录入数据都是乱七八糟，本来是可以在一个单元格录入的数据，偏偏弄到多个单元格中，如果录错的数据少，还可以手动移过来，如果数据多的话，一个一个的手动移过来，岂不是要累死，这时候我们也不需在重新建立或修改表格，只需找对规律将多个单元格内容合并到一个单元格中即可。

一、使用连接符&

最常用简单的方法，莫过于使用连接符【&】搞定。在需要合并的单元格中输入“=单元格位置&单元格位置”即可，完成后在公式栏中打对勾，然后相同的位置单元格我们可以直接用鼠标拉住单元格右下方的“+”即可合并下方的单元格，如果位置不同的话就用公式“=单元格位置&单元格位置”再算一遍。

二、 使用函数CONCATENATE

使用公式【=CONCATENATE(单元格位置,单元格位置,单元格位置）】也可以快速达到合并的效果。

大家一般用什么方法去合并EXCEL中单元格的内容的？请在下方评论区留言写下你的看法。和施老师一起探讨。

请关注宁双学好网施老师百家号，本文欢迎转载与分享，转载请注明出处！

应用场景1

老板：小王啊，调查一下大家对我们人事部的服务有什么意见或建议没。小王：好的。

小王做好一份Excel调查表模板，分发下去。然后收到了100份结果文件。

应用场景2

老板：小王啊，还有5分钟我就要开会了，我们12家门店的销售情况表汇总到一起了吧。

小王应该怎么合并这些Excel文件？一个一个复制到手软吗？

合并多个Excel文件

第一步：将所有的Excel调查表文件存放在同一个文件夹下。打开一个空白Excel文件，点击“新建查询”，选择“从文件夹”中导入，然后粘贴所有Excel调查表所在路径。

第二步：在“组合”下拉菜单中选择“合并和编辑”。

第三步：选中要合并的工作表。

第四步：点击Power Query编辑器中的“关闭并上载”。

稍等片刻，所有的文件就都合并到同一个工作表啦。

可以看到表头的两行重复显示了很多遍。使用定位或筛选功能，删除多余的行即可。

当然，也可以在上述步骤4“关闭并上载”之前删除一些行。

更新数据

小王好开心，100份Excel调查表就这么轻松地合并到一起了。小丽：小王，我的调查表修改了一下，发一份新的给你吧。小王……

小王，莫急，直接在原来的文件夹下替换小丽的调查表，然后在合并后的汇总表上，右键一下，点击“刷新”即可。

合并多个Excel工作表

和合并excel文件类似，用Power Query同样可以快速完成。

第一步：打开一个空白Excel文件，点击“新建查询”，选择“从工作簿”中导入，然后打开需要汇总的Excel文件。

第二步：选中所有要合并的工作表名称，然后点击“编辑”。

第三步：按照图示的步骤，点击“追加查询”，然后将所有的工作表添加进来。

最后点击“关闭并上载”，所有工作表内容就合并到一个工作表下啦。同样的，如果原始的表格数据更新，在汇总表上刷新一下即可同步更新数据。

注意：以上步骤都基于Power Query插件，Excel2016才支持。使用低版本的Excel或WPS的朋友请查考明日的文章。

相关阅读：《多个word文档怎么合并》。

谢谢阅读，每天学一点，省下时间充实自己。欢迎点赞、评论、关注和点击头像。

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个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啦！如果表格数据过多的话，时间会久一点。

合并多个表格文件，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. 数据透视表合并原始数据的同时还能汇总数据。

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

把几个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个表格的内容合并到同一张表格里面。

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

施老师：

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

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

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

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