excel如何合并不同类型工作表
发布时间：2023-09-07 09:40:33
下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。
现在的问题，如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。
一般的做法，通过“移动或复制”实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。
合并工作表操作步骤：
新建一个excel文件，按ALT+F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。
Sub合并工作簿()
DimFilesToOpen,wbAsWorkbook,shtAsWorksheet
DimxAsInteger
OnErrorGoToErrHandler
Application.ScreenUpdating=False
FilesToOpen=Application.GetOpenFilename_
(FileFilter:="MicrosoftExcelFiles(*.xls),*.xls",_
MultiSelect:=True,Title:="FilestoMerge")
IfTypeName(FilesToOpen)="Boolean"Then
MsgBox"NoFileswereselected"
GoToExitHandler
EndIf
x=1
Whilex<=UBound(FilesToOpen)
IfFilesToOpen(x)<>ThisWorkbook.FullNameThen
Setwb=Workbooks.Open(Filename:=FilesToOpen(x))
ForEachshtInwb.Sheets
sht.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
EndIf
x=x+1
Wend
ExitHandler:
Application.ScreenUpdating=True
ExitSub
ErrHandler:
MsgBoxErr.Description
ResumeExitHandler
EndSub
说明：上面代码是合并xlsx文件，如果是合并excel2007的文件，需要将：FileFilter:="MicrosoftExcelFiles(*.xls),*.xls"，xls改为.xlsx。
0
投稿猜你喜欢
和Win7系统不同，Win10 1909系统在桌面右键时并没有“用管理员身份运行”这一选项，许多网友觉得很不适应。那么，Win10 1909- 我们在使用win7操作系统的时候，如果有些情况下我们用到了电脑的麦克风的话，遇到了win7麦克风音量乱跳的情况，小编觉得我们可以尝试排除一下
- 如何显示XP文件快捷箭头，平时这个问题，很少人提起，因为作用不大。小编本着有问题就回答的原则，就写了一篇显示XP文件快捷箭头的教程。下面小编
- 我们在使用snkrs软件的时候，对于里面的多中国活动还有功能目前很多用户还不了解。对于snkrs陪跑是什么意思，小编觉得就是限量球鞋的抢购活
- 解决方法：1、按下win+r组合键打开运行，输入“regedit”，确定后打开注册表；2、依次打开“HKEY_LOCAL_MACHINESO
- 我们都知道在Numbers的单元格里面输入公式以后计算机会自动帮你计算出最终的答案来然后显示在单元格里面，如果你在单元格里面确实想要显示一个
- 用户在使用Win7旗舰版的时候，出现了错误，提示0x000006d18，若要解决Win7系统的报错问题，可以看看下面的教程电脑用久了难免会出
- 大家在工作中做出数据表格后，有时页数比较多，如果想在浏览表格时让表头固定不动，同时在打印时让每一页都有表头而不用自己一一添加怎么办呢？下面小
- 近期有朋友在我这购买win10系统，普遍反映一个问题，就是在安装win10系统的电脑上进行视频聊天的时候，发现win10系统的摄像头功能未被
- 黑盒工坊是一款专门为《魔兽世界》玩家定制的免费插件管理助手，可以方便我们安装各种插件，不过许多用户在下载安装黑盒工坊之后，并不知道黑盒工坊插
- 本文图文详解INDEX和MATCH函数的使用方法，让你告别excel中index函数和MATCH函数使用方法的烦恼。1、INDEX函数的含义
- 很多小伙伴在制作PPT的时候都会觉得工作量很大，无论是文案，还是PPT的格式、排版等各方面都有很大额工作量，尤其是为了美观需要对PPT进行一
- 在支付宝首页的页面中有一个固定的活动板块经常会为用户推荐各类优惠活动，长时间的推送会导致经常误点，那么要如何关闭这个推荐呢？下面就和小编一起
- 教你在XP或win7下用硬盘安装64位WIN8.1系统 32位的直接安装. 64位win7或win8都一样。工具/原
- 不知道大家知不知道，在我们电脑中Internet信息服务（IIS）管理器功能，这个功能对于普通人来说没有什么用处，但有对于一些需要建立测试网
- 对于微软来说，他们正在大力改造Windows 11，一些UI界面会被重置，同时还会带来全新开始菜单等等。在最新发布的 Windows 11
- 大家知道有时候语法检查很麻烦,搞得word文档里都是红线和绿线，其实关闭自动检查拼写就可以很好的解决了，具体该如何取消这个功能呢?下面随小编
- win10已经被广泛使用。但最近，再使用win10的用户在打开个性化设置-颜色，缩小到任务栏。再用自带的照片应用设置电脑背景图片，这时设置就
- 无线投影（WPS）使用说明 请通过以下五个步骤连接无线投影系统（wireless projection system）： &nb
- 使用安装win10系统电脑的时候，有用户遇到了错误代码0x80070490的问题，win10系统出现0x80070490错误怎么办呢?其实我
