在工作中，时常要遇到将许多个工作簿中的数据合并到一个工作表中，一个一个的复制粘贴吧，几个表或者十几个表还行，再多了恐怕就太费时了，如果再多点比如有几十上百个表要合并，而且又催得急可能就不是加不加班的问题了，而是会不会耽误工作的重大问题了，一旦耽误了工作其后果是可以想见的。
今天在这里给大家分享一个快速合并多个工作簿中内容到一个工作表的方法，此方法必须有一个前提条件，这是这些工作簿中的工作表必须是同样的结构。
如上图所示，每一个表都具有：序号、学生姓名、性别、出生日期、民族、年级、班级、户口性质这些字段，同时顺序一致。
首先，将所有需要合并的表以及最终结果表放在同一个文件夹中，如下图所示：
打开最终需要的结果表，本例中就是“2019级在校生信息”表，点击“数据”菜单，点击“新建查询”，点击“从文件”，选择“从文件夹”，如下图所示：
点击“从文件夹”，在出现的界面中点击“浏览”，找到刚才建立的文件夹，如下图所示：
点击“确定”，点击“确定”，然后出现如下图的结果。
在上图界面中点击“添加列”，点击“添加自定义列”，出现如下界面：
然后在“自定义列公式”下面的框中输入如下公式：
=Excel.Workbook([Content])，(注意公式中的首字母是大写的)，然后点击确定,此时可以看到后面多了一列，列标为“Custom”的列。如下图所示：
在最后一列的筛选器中筛选，只选择”DATA”数据选项，将其他选项前面的勾都去掉，如下图：
在上图界面中点出确定，这样原来的列标“Custom”就变成“Custom.data”，如下所示：
继续对“Custom.data”右边按钮进行点击，在出现的界面中直接点击确定。
点击确定后等待几秒钟，表格中所有的数据就显示出来了，如下图所示：
点击“文件”或“开始”，点击“关闭并上载”得到如下表格：
上图表中从“序号”开始后面的数据就是我们需要的，删除“序号民”列前面的数据，得到最终汇总结果：
是不是超简单呢？书上得来终觉浅，绝知此事要躬行。喜欢的话，就跟着我的步骤操作一遍吧。

https://www.zhihu.com/video/1117062778019667968
将Execl Workbooks文件夹内的3个表格合并到File文件中。打开File文件，通过写VBA代码来实现。
Private Sub 点击合并_Click()

'需要合并的表格文件夹存放位置

Path = "C:Users15432DesktopExcel Workbooks"

'文件名

Filename = Dir(Path & "*.xlsx")

'取文件循环

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

'sheet选择

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy after:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

前面分享过一个VBA代码的快速合并多个工作簿至一个工作簿，很多小伙伴表示没学会，那么我们今天不需要VBA代码，只需要几步操作就可以完成，
第1，2，3，4个工作簿里面的数据如下所示：
其中第1个工作簿有两个工作表，第2个工作表中的内容是：
第2个工作簿
第
第3个工作簿
第4个工作簿
如果是4个工作簿，可能复制粘贴也完成了，实际工作中可能是几十个，甚至上百个，那么用复制粘贴就费时费力了，今天教大家不用VBA，几步操作就完成合并
❶在数据菜单栏，新建查询，选择从文件，选择从文件夹
❷在窗口中选择浏览，然后打开你Excel工作簿存放的文件夹
点击确定之后，会弹出一个新窗口，如下所示：
❸然后在这个窗口的，依次单击添加列，添加自定义列
❹输入公式：=Excel.Workbook([Content])，注意首字母要求大写
点击确定之后，窗口中多了一列数据，如下所示：
❺然后在最后一列的筛选器中筛选，只选择DATA数据选项，其他都取消勾选
这样原来的custom变成了custom.data，如下所示：
❻继续对Custom.data右边按纽进行点击，有扩展选择，然后所有的列都是我们需要的
点击确定之后，表格中所有的数据都显示出来了，如下所示：
❼点击文件，关闭并上载，如下所示：
在表格中得到的结果：
后面的内容是我们想要的内容，前面不需要多余项目都可以进行删除，得到最终合并汇总的结果
你学会了么？动手跟着操作一次吧。
欢迎留言讨论，期待您的转发和分享
---------------
欢迎关注，更多精彩内容持续更新中....

知识改变命运，科技成就未来。工作中经常会遇到这样的情况，上级部门在收集了下级部门的Excel工作薄后，需要将信息汇总到一个工作表中，通过复制粘贴的话，这个过程枯燥乏味，如果出错就得不偿失了。Microsoft Excel版本太低，没有那么多的功能来方便我们的工作，那么只能通过“万能”的VBA来实现了。
Microsoft Excel快速合并多个工作簿至一个工作簿中详细操作流程：
步骤一：首先将需要合并的Microsoft Excel工作薄放在一个文件夹中，然后在这个文件夹中新建一个Microsoft Excel工作表，并重命名为【合并.xlsx】。左键双击打开【合并.xlsx】Microsoft Excel工作表。右键单击【合并】工作表后，左键单击右键菜单中的【查看代码(V)】选项，打开【Visual Basic编辑器】。
步骤二：编辑VBA代码。左键单击选中【Sheet1 合并】后，在右侧代码窗口中键入以下代码，您也可以选择复制粘贴，请注意代码中的标点符号为英文标点符号。代码输入完成后，同时按下键盘上的【Ctrl + S】键保存代码，先左键单击【Microsoft Excel】对话框中的【是（Y）】按钮，再左键单击【Microsoft Excel】对话框中的【确定】按钮，最后关闭【Visual Basic编辑器】即可完成代码编辑。
Sub 合并工作薄()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
步骤三：Microsoft Excel快速合并多个工作簿至一个工作簿使用方法。执行VBA代码，首先需要在菜单栏中显示【开发工具】。显示【开发工具】详细操作流程请参照：PPT小技巧：如何把视频嵌入到PPT演示文稿中合并成一个文件？PPT和Excel操作流程基本一致。左键单击菜单栏中的【开发工具】选项卡，左键单击【代码】功能区中的【宏】按钮。左键单击选中【宏】对话框中的【Sheet1.合并工作薄】后，左键单击【执行（R）】按钮。
步骤四：在弹出的【合并工作薄】对话框中，长按键盘上的【Ctrl】键，鼠标左键单击选中需要合并的Microsoft Excel工作表，这样可以跳跃式选择，当然【合并】工作表不需要选中，选择完成后，左键单击【打开(O)】按钮。等待片刻多个工作簿已经合并一个工作簿中啦！如想进一步操作请参照：Microsoft Excel怎么快速合并当前工作簿下的所有工作表？
至此，Microsoft Excel快速合并多个工作簿至一个工作簿中操作流程已全部结束。知识改变命运，科技成就未来。希望这个小知识能给您的工作和生活带来更多的便捷。如有疑问或建议，请在下方留言。点击关注，有更多科技小贴士等着您，感谢您的支持。