如何将2个excel表合并的方法
发布时间：2023-03-20 22:12:30
在Excel中经常需要用到2个表进行合并的功能。或许有些初学的朋友不知道该怎么用，如果需要用到表合并的功能却不会用的朋友，不妨学习一下。下面是小编带来的关于如何将2个excel表合并的方法，欢迎阅读!
如何将2个excel表合并的方法：
合并2个表步骤1：我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
合并2个表步骤2：用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
合并2个表步骤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
合并2个表步骤4：运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
0
投稿猜你喜欢
在平时的生活中，我们经常看到一些视频有水印，有时候就会觉得很烦，你知道一闪怎么去水印的吗？接下来我们一起往下看看一闪去视频水印的方法吧。方法- 当你碰到表格数据列太多，导致打印时无法打印在一页上。是不是绞尽脑汁地缩小字体、页边距、行列间距等等，最后预览一看还是两页。有没有泪奔的感觉呢
- Mac截图工具哪款好用？Snapshot Editor是一款适用于Mac系统的截图编辑器，旨在提高您的工作效率。snapshot edito
- iTunes作为Mac系统自带的应用，自我们上手Mac的时候就已经存在了。但是对于我们来说iTunes的使用成本和使用习惯都不是那么对胃口或
- Win8中已经默认安装了最新版本的Windows Media Player,即使不安装任何第三方的媒体播放器，依然可以轻松地应对大多数媒体文
- 对于熟悉装机的朋友，安装独立显卡就是轻而易举的事情，不过对于电脑小白来说就不是那么容易了，因此小编为用户提供详细的独立显卡安装图文教程，希望
- Win11怎么打开显卡控制面板？Win11系统怎么打开显卡设置？很多喜欢在电脑上玩游戏的朋友都希望通过设置显卡获得更好的游戏性能，但是也有一
- Win10笔记本怎么关闭电脑小键盘？许多用户为了方便工作学习都会选择使用笔记本电脑，但是笔记本电脑自带的键盘相对来说较小，而如果小键盘开着的
- 一般家庭使用的笔记本电脑会给不同的成员设置账户，不同人使用只需要切换到相应账户即可。很多小伙伴还没尝试过Win10专业版的账户切换，不知道如
- Epic商店可以说是全球最大的几大游戏平台之一，并且经常会赠送各种游戏，而目前也是开启了圣诞大促，连续赠送15天游戏，这也让不少用户都遇到了
- InVision Studio for Mac是一款专业的原型设计工具，功能十分强大，将设计，原型和动画完美的结合起来，让用户在设计产品原型
- 磁盘工具过多，分不清用哪款工具？不用担心，今天小编为大家推荐6款不一样应用的磁盘工具，让你各有所需。1.BlueHarvest for Ma
- 今天微软推送了Win10 Mobile预览版10586.420更新，但是Win10 Mobile正式版更新内容与预览版有所不同，下面我们就来
- 在办公软件中，表格软件运用广泛。但是作为新手要操作好表格软件并非易事，常常会走弯路，本来几分中可以搞定的事情，却可能花费掉大量的时间。新手常
- 咱们在 操纵PPT演示文稿 停止 一样平常办公时， 常常 需求 建造 林林总总的幻灯片，也 需求 拔出 各类 笔墨，在抖音上 大概是教程上，
- wps公式编辑器工具栏隐藏了怎么办？wps表格编辑公式的时候，发现公式编辑工具栏没有了，该怎么重新显示出来呢？下面我们就来看看wps显示表格
- Win10如何清理系统临时文件？系统用了一段时间后会产生大量的临时文件和一些无用的系统缓存。这些垃圾文件会影响系统的运行速度，那么如何清除呢
- Office使我们办公必备的软件，很多用户在使用Office的时候会遇到各种各样的问题，比如有小伙伴登录使用Office的时候被提示：很抱歉
- GTX1080作为目前性能最好的显卡是很多装机用户的首选显卡，近期，有朋友问小编：在装有GTX1080显卡的电脑上使用win10系统无法安装
- 这篇文章主要介绍了Windows10边栏怎么去除?Windows10边栏去除操作教程的相关资料,需要的朋友可以参考下本文详细内容介绍。Win
