Excel2013如何把多个文件合并到一个Excel文档里
发布时间：2022-11-09 15:43:39
日常工作当中，会产生很多Excel文档，每当需要整理的时候又很难归类、查询。这个时候就需要把诺干个Excel文档，合并到一个Excel文档里。一个Excel文档对应一个Sheet工作表，方便查询、归类、整理。下面小编就为大家介绍Excel2013把多个文件合并到一个Excel文档里方法，喜欢的朋友一起来看看吧！
表格合并
1、把需要合并的excel表格文档放到同一个文件夹里
2、新建一个“数据合并.xlsx“文档
3、打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口
4、双击工程资源管理器里面的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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
5、运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面
6、完成Excel表格的合并
注意事项
本方法只在Microsoft Excel 2013软件下测试通过
2013之前的版本，数据量一大容易卡顿，建议使用最新版
其他的offce软件，尚未测试
以上就是Excel2013把多个文件合并到一个Excel文档里方法介绍，大家学会了吗？希望这篇文章能对大家有所帮助！
0
投稿猜你喜欢
Win7系统当中CS * 精英online2出现延迟如何解决？相信大家都玩过CS * 精英online2，不少用户玩CS * 精英online2的- 在PPT演示文稿当中制作幻灯片时，制作完毕后，为了让我们的演讲或述职更加声情并茂，就需要在PPT当中添加背景音乐，那么在PPT演示文稿当中如
- 先下载一个WPS VBA ，可以下载绿色版的。先把插件安装好。双击绿化按钮选择1或者2 是两种版本的插件，哪个都可以，建议选高级点的。输入2
- 很多用户都会遇到dll文件缺失的错误，一般该错误会在用户玩游戏的时候弹出错误提示框，然后游戏会自动退出，有用户计算机中提示的是：“没有找到d
- WPS文字中怎么输入闪电图形操作教学。我们在使用WPS进行文字编辑的时候，如果需要去输入一些图案，这个时候可以通过软件的图形库来进行查找，很
- 怎么将墨者写作中的文本导出?墨者写作是一款纯粹的码字工具,专注作者优质写作,支持云同步、历史版本、随机起名等等。想要导出墨者写作中的文本，具
- 新版的24寸iMac有七种颜色，想入手，选哪一种颜色好呢？先上一段开箱视频，我们一起看下吧！十年大改款iMac 2021终于在苹果春季发表会
- 现在Win7还能免费升级Win10吗？虽然win7系统是非常稳定和兼容的，但是很多软件已经慢慢不支持win7系统，它需要win10系统正常工
- 话说萧远山出现后表明了自己的身份，萧峰激动不已，询问父亲当初到底谁是带头大哥，萧远山指着少林方丈说，“当年带着中原武林人士，不分青红皂白就将
- Win11怎么设置电脑屏保？我们电脑没有操作的时候，如果设置了屏保功能，那么桌面上就会显示各种好看的屏保图片，这样可以有效的避免桌面内容被其
- NTFS对FAT和HPFS(高性能文件系统)作了若干改进，NTFS格式分区是微软Windows操作系统系列Win2000、Xp、Win7的推
- 第1步，打开Word2013文档窗口，依次单击“文件”→“选项”按钮。 第2步，打开“Word选项”对话框，切换到
- 达芬奇调色系统自1984年以来就一直誉为后期制作的标准。使用达芬奇调色的调色师遍布世界，他们喜爱它并把它当作自己创作中一个值得信任的伙伴。众
- 很多人在Win7或者Win8里都使用的是默认输入法，很便捷。Win10系统如何设置默认输入法呢？很多朋友很想知道，那就来了解一下。鼠标放在右
- 当你将手上的设备升级到 iOS 14 之后，就会惊喜地发现，Siri 再也不会跳出来占据整个设备屏幕了，而是将自己放置在屏幕下方，等待和聆听
- 如何使用会声会影软件给素材添加闪电效果?想要在素材中模拟出闪电效果，其实很简单，只要运用会声会影软件就可以绘制了。具体怎么操作?下面就一起来
- 计算时间间隔步骤1：工作中，大家拿到这样一张表格，需要计算它之间的间隔可能是秒可能是分钟也可能是小时，数据量比较大，月报表一般都有几万条少者
- PPT如何设置观众自行浏览模式？观众自行浏览模式将在标准窗口中显示幻灯片的放映情况，观众可以通过提供的菜单进行翻页、打印、浏览，但不能单击鼠
- Windows7如何解决显示器字体模糊而且有重影？很多用户都遇到过在安装完系统后或者在使用过程中突然发现自己的显示器字体模糊而且有重影的问题
- 作为好用的公式编辑工具，MathType可以和800+应用程序兼容使用，但在和Word 2007的兼容中常常会出现一些问题。比如当我们用Ma
