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。
猜你喜欢
- 在Excel 2000中是通过对工作表中的对象设定超链接来实现对Internet资源的访问的。实际上超级链接还能够跳转至硬盘,公司的内部网或
- 1、依次单击设计----->页码----->页面底端---->X/Y---->加粗显示的数字2;2、此时页面显示3、
- Word如何设置文字效果转换弯曲?有不少用户都在使用Word来编辑各种文档,并且Word在插入的艺术字有一项转换功能,能够帮助用户设置文字效
- Word文档成百上千的手工编号,如何快速删除?这是今天一位朋友提出的问题。如下图,在Word文档中,每一副图片前都有编号。原来的是手工编号(
- 【方法】格式——文字方向——点击你要应该用的方向按钮【如果改不了】1、看看是不艺术字,如果是艺术字就要选择在艺术字的工具条里更改2、看文字是
- 在微信公众号上看推文有些小伙伴看到内容不错的就想要将其复制到文档中打印出来留存,但是无论在微信里怎么复制一旦粘贴到文档内图片总是显示不了,只
- 最新office触控版Excel、word和PowerPoint画廊怎么用?今天早些时候微软宣布Excel、Word和PowerPoint三
- 当我们更新win101903版本的系统时,有时蓝屏会频繁重新启动。边肖认为这种情况通常是由系统文件损坏引起的。您可以尝试在管理员命令窗口中使
- 在工作中我们经常会对文章内容进行比较,很多人都会使用比较工具来进行比较,其实word2010中就已经具备该功能了,下面我们就一起来看看具体操
- 距离上次发布 2 周后的今天,苹果给大家推送了iOS 15 Beta 3用于测试。iOS 15 Beta 3内部版本号为19A5297e,以
- 这篇文章主要介绍了如何输入对号“√ ”和 叉号“×” word怎么打钩/打叉/半对半勾符号,需要的朋友可以参考下经常使用Word的人来说,许
- 动画演示: 一、撤消方法一:单击“常用”工具栏上的“撤消”按钮。方法二:选择“编辑”→“撤消”。方法三:按Ctrl
- 今天凌晨,苹果正式向用户推送了iOS16 beta7系统升级,此次更新距离上次开发者预览版更新时隔了8天时间,内部版本号为20A5356a。
- Word分栏的均分的小技巧。正常情况下,选中所有段落,然后分栏,会出现分栏不均匀的情况,一边长,一边短。 如何避免这种情况,有个小技巧,选中
- 先通过Ctrl + A来全选,然后再使用Ctrl + C 来进行复制。在你想要复制内容的界面,然后使用快捷键“Ctrl + A”选中全部内容
- 单元格的特殊格式设定好后,怎么让其它的单元格也有同样的格式呢?这会用格式刷工具是最简单的。那么在excel中怎么使用格式刷呢?下面小编就为大
- excel如何利用条件格式进行填充?如图:选中B到E列,开始--样式--条件格式,“新建规则”,用公式:=AND($A1<>&q
- 在Excel单元格中输入函数的第一个字母后,Excel 2013会给出一个以该字母开头的函数名称列表,用户可以直接从列表中选择需要的函数将其
- 如何在EXCEL里制作单线图表格?(网友提问)答:在EXCEL里制作单线图表格,只需在该表格里单击右键选择设置单元格,具体操作步骤可以按照以
- 在处理Excel表格的过程中,为了便于后续计算,有时候要把公式转化为数值。那怎样把公式转化为数值呢?下面给大家介绍一下第一步:选中含有公式的