excel多表如何合并到一张表格
发布时间：2022-08-26 21:28:26
快速把excel合并在一起，方便分析和统计可以利用excel表的宏计算就可以实现。方法如下：
1、我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
2、用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
3、然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | 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 |
0
投稿猜你喜欢
有时侯我们为了方便自己打开应用程序，我们常常会在桌面上创建一个该程序的快捷方式，但是有时我们双击快捷方式却发现无法打开，出现“打开方式”的界- 使用电脑上网时，浏览器有时候会出现提示“您与该站点交换的信息不会被其他人查看或更改。但该站点的安全证书有问题”，这是怎么回事？遇到安全证书有
- Win10正式版很快就要发布了，现在的测试版也已经无限接近正式版。随着正式版的发布，会有更多的用户需要安装Win10系统。当然网上安装Win
- 昨日午间，乌云漏洞平台揭秘了一项重大消息，有网友发现，第三方下载渠道下载的iOS开发工具XCode被植入了而恶意代码（XcodeGhost）
- Windows系统中iis服务能够支持用户在网络上发布信息，不过在新建iis站点的时候容易出现一些问题，并提示“错误1068：依赖服务或组无
- 萝卜书摘怎么进行阅读？萝卜书摘是一款非常好用的阅读记录软件，有些刚下载萝卜书摘的用户还不太了解在这款软件中要怎么进行阅读，下面就给大家分享萝
- IE浏览器是很多用户常用的浏览器之一，但是有用户反映最近使用IE浏览器经常出现闪退的情况，这是怎么回事？可能是系统中存在其他浏览器造成的。下
- 我们经常会用到Word这款软件来进行一些文档的编辑，而我们在使用的过程中难免会有一些不熟悉的地方，例如有的小伙伴就不清楚要如何去设置形状填充
- 在日常操作中，Windows系统的右键快捷菜单扮演了非常重要的角色，而Vista隐藏菜单栏的界面设计更进一步强化了右键菜单的功能。因此，要想
- Option键是MAC电脑中一个非常重要的键，用户们在使用MAC电脑时，很多时候都要用到Option键。那么Option键到底有哪些功能呢？
- 在利用Excel制作表格时我们就需要将数据转换成图表，如扇形图或者柱形图，那么要怎么做呢?其实方法很简单记错了。将WPS表格的数据制作成图表
- 相信有很多人并不知道，Win7操作系统中有一个休眠文件hiberfil.sys，这个休眠文件有好几个G的大小，如果不删除掉就会大量占用C盘的
- 最近有windows7系统用户问小编DDOS防火墙有什么功能？Win7系统如何配置DDOS防火墙参数？本文将带来DDOS防火墙相关介绍及Wi
- Win7回收站清空文件之后怎么找回来？若是用户不小心清空了回收站，而恰好回收站中有一些文件是用户非常需要的，应该怎么去恢复呢？找回这些文件其
- Win11怎么设置可信站点？最近有用户反映这个问题，很多用户都安装了Win11系统，但是很多操作都不知道怎么操作，针对这一问题，本篇带来了详
- 很多朋友购买的品牌电脑预装着正版Win10系统，想知道如何创建U盘恢复介质，这也是未雨绸缪，担心以后系统出现大毛病，到时候就可以使用着恢复介
- 有些Win10用户在设置了头像之后，可能时间久了又怀念Win10默认用户头像那简约神秘的黑白轮廓，但是如何才能恢复默认用户头像呢？方法如下：
- usbwriter怎么用？usbwriter能够将任何磁盘映像文件iso之类的写入到USB驱动器，帮你轻松制作可启动的电脑维护盘，那怎么把i
- 在excel工作表中网格的默认颜色是淡蓝色的，其实我们还可以根据自己的喜好对excel表格设置网格线的颜色，这个操作只作为个性化的操作，用途
- 四象限图是对数据进行分类分析的常见方法。一般是利用水平和垂直分割线将图表区域分为四个象限，每个象限的数据表现有所不同。而图表主要以散点图为主
