在日常工作中，会有很多Excel文档，无论何时需要整理，都很难进行分类和查询。这时候你需要把Nogan合并成一个Excel文档。一个Excel文档对应一个Sheet工作表，方便查询、分类、排序。下面介绍如何在Excel2013中将多个文件合并成一个Excel文档。和喜欢的朋友一起来看看吧！
表格合并
1.把要合并的excel表格文档放到同一个文件夹中。
2.创建新的“数据合并. xlsx”文档。
3.打开“Data Merge.xlsx”文档，右键单击“Sheet1”工作表查看代码(快捷键：“Alt F11”，尝试xlsx快捷键)，进入Microsoft Visual Basic for Applications窗口。
4.在项目浏览器中双击sheet1，并将以下代码粘贴到右侧的代码区域中：
子合并当前目录中所有工作簿的所有工作表()
暗淡我的路径，我的名字，我的名字
将Wb标注为工作簿，WbN标注为字符串
Dim G As Long
Dim Num As Long
将框调成字符串
申请。ScreenUpdating=False
MyPath=ActiveWorkbook。小路
MyName=Dir(MyPath '\' '*。xls’)
AWbName=ActiveWorkbook。名字
Num=0
当我的名字''时执行
如果我的名字是AWbName，那么
设置Wb=Workbooks。打开(我的路径' \ '我的名字)
数字=数字1
带练习册(1)。活性薄片。单元格(。范围(' A65536 ')。结束(xlUp)。Row 2，1)=Left(我的名字，Len(我的名字)- 4)
对于G=1到张。数数
Wb。Sheets(G).UsedRange.Copy。单元格(。范围(' A65536 ')。结束(xlUp)。第1行，第1行)
然后
WbN=WbN Chr(13) Wb名字
Wb。关闭假
以…结尾
如果…就会结束
我的名字=目录
环
范围(' A1 ')。挑选
申请。ScreenUpdating=True
“MsgBox”合并了“Num”个工作簿下的所有工作表。如下：' Chr(13) WbN，vbInformation，' prompt '
结束Su
5.运行运行子进程/用户表单(或直接单击运行按钮，快捷键：F5)将xlsx Excel表合并到“Data Merge.xlsx”文档的Sheet1工作表中。
6.完成Excel表格的合并。
需要注意的事项
该方法仅在Microsoft Excel 2013软件下通过测试。
对于2013年之前的版本，因为数据量大，很容易卡死。建议使用最新版本。
其他offce软件尚未测试。
以上是Excel2013将多个文件合并成一个Excel文档的方法介绍。你学会了吗？希望这篇文章能对大家有所帮助！
