在 Excel Power Query 未出来之前，把文件夹下所有文件合并为一个与合并同一工作表中的多个工作表，需要用 VBA 实现，比较麻烦。有了 Power Query 后，不用再写代码，直接用它就可以合并一个文件夹（可包含子文件夹）下所有的 Excel 文件与一个 Excel 文档中所有 Sheet。用 Power Query 合并文件，主要是通过查询导入的办法实现，以下就是它们的具体操作方法，实例中操作所用版本均为 Excel 2016。

一、Excel用Power Query把多个工作表Sheet合并到一个工作表

1、选择“数据”选项卡，单击“新建查询”，在弹出的菜单中依次选择“从文件”→ 从工作簿，打开“导入数据”窗口，定位到要合并的Excel文件所在的文件夹，双击要合并的文件（如 Power Query合并多个工作表），则弹出提示正在连接文件小窗口，连接完成后，打开“导航器”窗口，勾选“选择多项”，依次勾选“1月至6月”6个工作表，单击右下角的“加载”，打开“查询编辑器”窗口，选中左边的“1月”，单击“表格图标”，在弹出的菜单中选择“追加查询”，打开“追加”窗口，单击下拉列表框，在弹出的选项中选择“2月”，则把工作表“2月的数据”添加到“1月的数据”后面；同样方法添加“3月至6月的数据”，添加完成后，单击“查询编辑器”左上角的“关闭并上载”，在弹出的菜单中选择“关闭并上载”，则“1月至6月的数据”添加到 Excel 文档中；操作过程步骤，如图1所示：

提示：当从 Excel 文件导入数据时，在最后一步把数据添加到 Excel 文档时，可能会弹出“初始化数据源失败”的提示，单击“确定”即可。

2、在“查询编辑器”窗口，追加合并数据时，除可以从“表格图标”选择“追加查询”外，还可以直接选择窗口右上角的“追加查询”，如图2所示：

3、如果合并的工作表中有重复记录，把数据添加到一个表（如“1月”）后，可以单击“表格图标”，在弹出的菜单中选择“删除重复项”，如图3所示：

二、Excel用Power Query把多个文件合并成一个文件，仅把 Sheet 添加到工作薄并未合并数据

1、单击“数据”选项卡下的“新建查询”，依次选择“从文件”→ 从工作薄，打开“导入数据”窗口，定位到要合并的Excel文件所在的文件夹，双击要合并的文件（如 Power Query 合并查询），则所选文件导入到“导航器”窗口，勾选“选择多项”，依次勾选“Sheet1 和 Sheet2”，单击“编辑”，打开“查询编辑器”窗口，单击窗口右上角的“新建源”，在弹出的菜单中依次选择“文件””→ Excel，再次打开“导入数据”窗口，同样定位要合并文件所在文件夹，双击要导入文件（如 Power Query合并多个工作表），打开“导航器”窗口，再次勾选“选择多项”，并依次选择“1月至6月”六个工作表，单击“确定”，返回“查询编辑器”窗口，单击“关闭并上载”，在弹出的菜单中选择“关闭并上载”，则两个 Excel 文件的8个工作表合并到一个 Excel 文件中；操作过程步骤，如图4所示：

2、以上演示了把两个 Excel 文件合并为一个文件，如果要把更多的 Excel 文件合并为一个文件，只需在“查询编辑器”窗口重复选择“新建源”，选择 Excel 文件即可。

三、Excel用Power Query把同一文件夹下所有文件合并成一个文件，文件夹下可包含子文件夹

1、选择“数据”选项卡，单击“新建查询”，依次选择“从文件”→ 从文件夹，打开“文件夹”窗口，单击“浏览”，打开“浏览文件夹”窗口，定位到要合并的 Excel 文件所在的父文件夹，选择要合并的 Excel 文件所在文件夹，单击“确定”，打开“查询编辑器”窗口；选中第三列，按住 Shift，再选中第八列，右键选中的列，在弹出的菜单中选择“删除列”，把它们删除；选择“添加列”选项卡，单击“添加自定义列”，打开“添加自定义列”窗口，在“自定义列公式”下输入 =Excel.Workbook([Content])，单击“确定”；返回“查询编辑器”窗口，选中 Custom 列，单击 Custom 右边的双箭头图标，在打开的小窗口中，不勾选“使用原始列名作为前缀”，单击“确定”；单击 Custom.Data 列选中它，再单击 Custom.Data 右边的双箭头图标，在打开的窗口中，勾选“使用原始列名作为前缀”，单击“确定”；把第一至第四列和后三列删除；选择“开始”选项卡，单击“关闭并上载”，在弹出的菜单中选择“关闭并上载”，则所选文件夹下的全部 Excel 文件合并到一个文件；操作过程步骤，如图5所示：

2、提示：在“自定义列公式”下输入的公式 =Excel.Workbook([Content])，是区分大小写，注意不要输错。

四、Excel Power Query 不显示“多项选择”的原因及解决方法

1、Power Query 要求浏览器版本在 ie9 以上；另外，如果浏览设置了不显示图片，即没有勾选“显示图片”，如图6所示：

2、“导航器”中的“选择多项”前的复选框与“查询编辑器”中列字段右边的双箭头图标都不显示，图7是“导航器”中的“选择多项”前的复选框未显示的情况：

3、只要勾选了 ie 中的“显示图片”，它们就会显示，因此，遇到窗口显示不正常的情况不要忘了查看 ie 是否为 9 以上版本与是否勾选了显示图片。

在我们平时的工作过程中，很多时候我们都会按照不同的分类将业务数据存储在不同的工作表中，但是有时候由于业务的需要，又需要将不同表中的数据合并在一起进行分析。那么，如何将不同的工作表快速合并到一起呢？今天我们就给大家介绍使用Power Query（Excel2016已经自带本工具，其他版本请到微软的官网下载安装包安装后使用）实现快速合并多个工作表。

我们采用的演示数据为某公司的销售记录表，该表格按照月份分不同工作表存放销售记录的数据，如下所示：

下面就为大家演示如何实现合并：

1.在【POWER QUERY】选项卡中【获取外部数据】组中点击【从文件】下的【从Excel】，然后选中目标Excel文件。

2.在弹出的【导航器】窗口中选中【选择多项】，然后把需要合并的工作表都勾选上，点击【编辑】按钮，弹出第二个界面。

3.点击查询编辑器中【开始】选项卡下的【追加查询】，在弹出的窗口中追加其他表格。

4.点击【开始】选项卡下的【关闭】下的【关闭并上载】，将查询结果上载到工作表中。

还没看懂，没关系，完整的演示动画如下：

施老师：

有些同事不太会使用Excel表格，连录入数据都是乱七八糟，本来是可以在一个单元格录入的数据，偏偏弄到多个单元格中，如果录错的数据少，还可以手动移过来，如果数据多的话，一个一个的手动移过来，岂不是要累死，这时候我们也不需在重新建立或修改表格，只需找对规律将多个单元格内容合并到一个单元格中即可。

一、使用连接符&

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

二、 使用函数CONCATENATE

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

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

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

合并方法如下：

把需要合并的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贡献）

最近一朋友咨询如何快速把几个表合并到一个表格里，太多表太杂，容易弄混，通常可能我们直接CTRL+C然后 CTRL+V来实现，但是这个有个情况，就是可能我们原有的格式会有变化，而且如果一个表格中有多个sheet我们还需要一个一个区复制粘贴，时间长还有可能会遗漏

excel的移动复制粘贴功能全面解决此问题

以下是详细介绍：

①同时把我们要复制粘贴的几个表打开

②选中我们所要移动到另一个表格的所有sheet（1到N都可以），点击鼠标右键，选择移动或复制

③选择你要移动到的目标excel表格以及sheet的位置，点击确定就完成了

应用场景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文档怎么合并》。

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

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表格呢？

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表格的内容，合并到同一张表格里面，如何操作？看小编给你演示。

第一步：把需要合并的表格放在同一个文件夹里面，然后再新建一个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个表格的内容合并到同一张表格里面。

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

施老师：

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

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

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

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