excel多个表格合并的教程
发布时间：2022-09-15 02:33:28
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
投稿猜你喜欢
- 如果您在使用OFFICE,比如WORD或EXCEL时,想通过打印对话框中的“查看打印机”浏览网络打印机,实现网络打印,如果出现“目录服务目前
Word如何删除空白页面？Word上的空白页无法删除，是因为在Word文档中有多种类型的格式标记，很多时候隐藏在页面中，无法看到这些标记，并- 特殊的东西总是会得到特别的照顾。在Excel中，可以使用“定位条件”来选择一些特定的单元格，例如空单元格、带有批注的单元格、当前区域，等等。
- 很多小伙伴在进行日常办公时都会用到Word文档这款软件。在Word文档中有一个“分隔符”功能，使用该功能我们可以在文档中插入分页符、分节符。
- 平时很少按到的win10日历，这次按了打不开，没有反应一直点都是老样子。这种故障是什么原因呢，要怎么样才能恢复。需要到系统的隐私设置中去弄，
- 在word 2013文档中水印也算是一种背景填充，水印是一种作为文档背景图案的文字或图像，Word 2013提供了多种水印模板和自定义水印功
- Win10检测不到音频输出设备？很多使用win10系统的用户在使用外放声音的时候，提示系统检测不到扬声器输出设备，让电脑上的音频无法正常播放
- 如何批量查询ip地址归属地等信息？excel表格中的ip地址，想要批量查询归属地信息，该怎么操作呢？下面我们就来看看excel批量查询ip地
- excel2010如何设置备份工作簿，excel2010设置备份步骤：1、点击文件——另存为，为文件指定保存位置，指定好位置后，在另存为对话
- 在我们使用wps表格软件处理数据时，经常会用到很多公式去计算数据的结果，但是当我们看到wps表格所有的公式，那么多的公式有没有让你不知所措，
- Word工具画出来的图怎么保存成JPG格式?自己在word中绘制了图片，但是因为是绘制出来的，没办法另存为图片，该怎么保存成jpg格式的呢？
- win10系统的用户都知道微软会对win10系统推出定期更新，但是这些更新经常会“翻车”，导致系统无法正常启动或者某些功能出现严重bug，下
- pdf怎么转成word文档？1打开PDF文档，复制全文；然后，在Word中粘贴。如果文档格式不复杂，这样得到的结果就够用了。
- word怎么设计毕业证书？word中想要设计一个毕业证书，word中子弟啊了很多模板，今天我们就来看看word制作证书的教程，需要的朋友可以
- PC用户期待多时的2019 Win10更新十一月版（v1909）于2019年11月12日发布，不少人都接到了相关的推送通知。值得一提的是，这
- excel如何计算？excel如何计算的教程，计算步骤如下：excel如何计算步骤一、首先我们来进行一些最简单的运算。打开excel软件，然
- 安装完win10903版本系统后，有些同学不知道该系统的hosts文件位于磁盘的哪个位置。所以对于这个问题小编觉得win10版本1903的h
- 表格仅仅是Excel2000/XP组织数据的一种形式，如果你要更贴切地表示数据所反映的信息，可以利用excel图表直观、易于理解的分析和预测
- 现在很多公司的工资都是背对背不公开的，但是把工资条打印出来一份一份地发太费事。不用急，用Word的“邮件合并”轻松搞定，那么WORD如何邮件
- 在现实工作中，经常会被一些小问题给困恼了，比如说为什么我的下划线一直移动？为什么我的下划线消失了？今天Word妹来给大家解解惑。1、为什么我
