多个excel合并的教程
发布时间：2023-06-20 05:38:21
在Excel中录入好数据以后发现数据都在不同的Excel里统计数据非常不方便，这个时候就需要用到合并功能了。下面是小编带来的关于多个excel合并的教程，希望阅读过后对你有所启发!
多个excel合并的教程：
多个Excel合并步骤1：需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
多个Excel合并步骤2：用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
多个Excel合并步骤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
多个Excel合并步骤4：运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
0
投稿猜你喜欢
第一步，通过浏览器登录到iBMC管理界面,使用虚拟控制台，如下图： 启动虚拟台在“首页”右侧，点击“启动虚拟控制台”，选择一种方式，就进入了- 相信在座的有部分用户是刚下载使用腾讯会议的，因此对其部分操作还不是很清楚，就例如腾讯会议共享屏幕怎么关闭？其实方法很简单，下面小编将以电脑端
- 各人好，在 事情中 咱们 常常 需求将PPT中的 笔墨转化为Word， 如许既 便利 编纂也 便利传输， 那末 详细该 怎样 操纵呢， 一同
- 每次期末考试结束，试卷批完，我都会从教导处接到一个大任务：算分数。本学期，全校共有在籍学生1600名，从一年级到六年级，共33个班级。本任务
- 说到电脑的问题，其中最常见的就是驱动去的问题，有很多的用户会反应自己的电脑在开机的时候提示“windows驱动器未就绪”。出现这样的情况是什
- Win10运行程序提示“损坏的映像 错误0xc0000020”怎么解决？很多用户在Win10系统下运行软件时，会出现损坏的映像提示框，内容显
- excel如何制作田字格？1、首先启动excel2010，新建一个工作簿，执行视图-页面布局命令。2、选择整张表格，右键单击选择行高，在行高
- 我们在使用WPS表格的时候有时候需要把单元格合并在一起，怎样合并单元格呢?方法比较简单，下面给大家分享wps表格合并上下单元格的方法吧。wp
- 我们都知道在编写word文档时总会遇见一些特殊的字符，比如钱的符号，商标符号等等。我们在Word中选择【插入】→【符号】菜单命令，可以在wo
- 最近有win10系统用户反映说自己在使用电脑过程中，出现了无法注册VB脚本DLL文件的情况，遇到这种问题该如何解决呢？下面小编就给大家讲讲w
- 距2020年5G正式商用越来越近，按照预期，5G最终的传输速率将可实现1Gb/s。另一方面，视频、直播等带来了爆发式的数据流，加之与日俱增的
- 第一部分：DCOUNT函数的用法介绍Excel软件中DCOUNT函
- 如何重置AIrpods充电盒?重置AIrpods就是将你的AIrPods恢复到出厂设置，它可以帮你解决经常会遇到的各种问题。例如AIrPod
- win10还处于技术预览版阶段，据最终版(RTM版)完成还有几个月时间，下文将win10预览版使用攻略与大家分享下，希望可以给安装或者没有安
- 作业通app怎么使用？作业通app是一款解题类型的软件，当学生在做题遇到困难时，能够帮助学生解决困难，提供解题思路，很多学生不知道如何使用，
- 有一些朋友希望Win10系统电脑删除文件时文件不会出现在回收站里，而是直接删除掉，这应该怎么做呢？其实方法很简单，在Windows系统里其实
- word文档中怎么制作立体的文本框？word中需要添加一个文本框，想要制作立体效果的，该怎么制作呢？下面我们就来看看详细的教程，需要的朋友可
- 很多使用win7系统的用户们，都有遇到过网络方面的问题，明明自己已经拨号成功了，为什么还是无法打开网页。有什么方法能够解决这一问题。今天小编
- 有时我们的Excel表格的数据行和列都非常多，从而当移到下方查看数据时，表头就看不到了，如果列数较多，一旦向右移动，左边的序号又查看不到，这
- Excel软件是一款编辑各种图标的办公软件，这个软件对于一些经常编辑数据的小伙伴来说是很熟悉的，但由于有的小伙伴在平时很少使用，所以在有的时
