如何合并多个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
投稿猜你喜欢
停止所有 Windows Media Player 相关的服务。停止所有 Windows Media Player 相关的服务。关闭 Win- 近两年借助电竞运动的兴起，玩家群体中刮起一阵机械键盘风潮，不过知名高端外设厂商海盗船不信这一套，推出了全新非机械轴体游戏键盘K55 RGB（
- excel2007有很多实用的技巧，需要童鞋们慢慢的学习才会掌握好，今天教程是如何对数据的大小一目了然，下面是使用步骤：1、我们现在Exce
- Win10 10122预览版怎么删除桌面右键菜单中项目？Windows系统，桌面右键菜单随着操作的进行会有所增加，如上述问题中的“管理我的手
- 在Excel中，如果要替换字符串中指定字节长度的字符，可以使用REPLACEB函数替换字符串中指定字节长度的字符。Excel2007可使用R
- Excel将不规则的日期格式转换规范格式如图所示如何把不规则的时间格式转换为8位数字？与大家分享2个不错的技巧。第一种：分列法选中数字区域，
- PPT幻灯片怎么插入超链接实现跳着播放？ppt幻灯片很多，想要跳转就需要使用超链接，该怎么插入超链接呢？不需要的时候该怎么删除超链接呢？需要
- 随着 iOS 16 和 iPadOS 16 的发布，苹果官方推出了“锁定模式”，这是一项“极端”的安全保护功能，帮助保护设备免受极其少见、高
- Photoshop怎么加快运行速度？Photoshop是一款功能强大的图片处理软件，有些用户在使用一段时间发现运行速度变慢了，我们要怎么提升
- 对于求职的人来说，简历是至关重要的，为了制作一份精美的简历，我们可以通过wps演示来实现，下面就让小编告诉你 wps演示怎样制作简历的方法。
- 近来不少小伙伴在玩英雄联盟时发现dxgmms2.sys蓝屏错误代码，不知如何解决。只需一玩就会出现，以前没有出现过，一般肯定是第三方软件冲突
- PS界面变成灰色怎么处理？PS软件是电脑端常用的一个图像处理软件，有用户发现自己电脑的PS软件打开了之后界面显示全部都是灰色的。而正常情况来
- 有很多用户在电脑上看视频一卡一卡的，很多用户不知道怎么解决，一般引起这些问题的，就是网络和硬件问题。今天小编就给大家带来了详细的教程吧。电脑
- WPS增加了自动备份功能，这意味着在撰写文章或论文时，一旦出现意外的无法控制的情况，如停电或非正常关机，未来且已保存的文件可以恢复，从而恢复
- 360画报怎么关闭？360画报提供海量壁纸素材，可根据分类、搜索选择喜欢的壁纸。支持喜欢壁纸，支持上传本地壁纸设置到桌面，如果不想用的话要怎
- excel表格中怎么给指定区域填充背景？excel表格中想要给指定的区域填充背景，该怎么填充呢？下面我们就来看看指定区域设置背景图的方法，需
- 小编的电脑在升级Win10 1909系统后便出现了一个奇怪的现象，那就是每次开机后都会显示出更新前后的两个系统。那么，Win10 1909开
- wps Excel如何隐藏行和列？请看下面方法。方法1、打开Excel文档。2、选择要隐藏的列，点击右键，新知隐藏即可。3、如图隐藏成功。4
- 当我们在使用电脑的过程中，使用网页下载软件就非常有可能下载到一些带有垃圾软件的软件。而且下载到这些垃圾软件，下载之后就会立刻自动安装上这些垃
- wps表格怎么添加新的工作表？wps工作簿中想要添加新的工作表，该怎么添加呢？下面我们就来看看wps表格添加工作表的教程，需要的朋友可以参考
