如何合并多个excel表的方法
发布时间：2023-03-03 21:43:02
在Excel中录入好数据以后发现多个表的数据整合起来会更加的直观，这个时候就需要用到合并多个Excel表的功能了。下面是由小编分享的如何合并多个excel表的方法，供大家阅读、学习。
如何合并多个excel表的方法：
合并多表步骤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表数据合并后的结果。效果如图所示。
0
投稿猜你喜欢
页眉或页脚可以包含文本、有关文档的信息， 甚至是图像。 可以为整个文档创建一个页眉或页脚，或者为第一页创建不同的页眉或页脚。 乃至偶数页，甚- excel2010打印每页都有表头的方法：每页打印表头步骤1：如图所示，是一个打印超过一页的excel表格，在表格的第一行是一个标题，我们使
- 你知道在wps里怎样插入分隔符吗?下面就让学习啦小编告诉你wps插入分隔符的方法。wps插入分隔符的方法：首先，打开wps文字，或任意双击打
- 工作中，当一位同事或朋友询问你一个Word文本设置问题时。你是不是很爽快地打开Word，哒哒哒哒地花费一些时间输入一段文字，或是从网页复制一
- 最近使用wps总是自动更新怎么办，有什么办法可以取消wps自动更新的?下面小编就来教一下大家关闭wps自动更新设置教程。 &n
- 我希望选中某个单词其中的一部分字母，可当我开始拖动鼠标选择时，Word总是自动选定整个单词和其后的空格，请问有什么解决办法？问：我希望选中某
- 有一个员工信息表，里面提供了员工的身份证信息，当然是虚拟的。本文讲述了从身份证号里算出其出生日期、性别、周岁和工龄是多少等等的方法。1、算出
- 朋友打印工作表，老板嘱咐他要加个“内部资料”的水印，以提醒不要外传。他第一次碰到这个问题，来问怎么加水印。方法实现第一步：插入艺术字【插入】
- Word 中的水平和垂直标尺常常用于对齐文档中的文本、图形、表格和其他元素。若要查看位于 Word 文档顶部的水平标尺和位于文档左边缘的垂直
- 有时，域会作为其他过程中的一部分自动插入Word文档，这样可能都不知道该过程涉及了域。例如，在“插入”功能区的“文本”组，单击“日期和时间”
- excel做表格是很常用的技能，那么excel怎么做表格呢?接下来小编举例简单的例子告诉大家excel制作表格的方法，希望看完本教程的朋友都
- 减少重复的工作量为提高工作的效率，下文小编给大家带来了Word提高重复操作效率的方法，非常不错，感兴趣的朋友一起看看吧如果要把标题一的格式复
- 所谓行距是指Word2003文档中行与行之间的距离，通过设置行间距可以有效改善Word2003文档页面效果，同时可以配合页面设置更高效的利用
- 在Word中插入表格，我们通常会在表格中加入编号，那么怎么快速进行编号呢，本教程就为大家介绍自动编号方法。操作步骤1、打开Word2010，
- 目前，微软提供了三种形式的办公套件软件，分别为office 365（现在的Microsoft 365）、office 2021和office
- Excel数据透视表怎么布局并设置排序方式？Excel透视表中的数据想设置的更合理一些，该怎么设置呢？下面我们就来看看excel数据透视表的
- 在使用excel的时候，我们有时会遇到改变日期的特别格式，那么，怎么修改呢，下面让小编为你带来excel设置时间格式yyyymm的方法。ex
- 电脑在经过长期使用后，硬盘中便会出现大量不连续的存储区域（即“碎片”），硬盘的工作效率也会随之下降。那么问题出现了，在Win10 1909中
- 在使用excel输入身份证号时，会发现直接输入数字后最后面的三位数字都变成0了，这可怎么办呢？下面小编就为大家详细介绍解决方法，不会的朋友可
- 方法一：利用Microsoft office Excel软件直接将excel文件另存为pdf文件。但是，这种方法适合于2007及以上版本，且
