excel如何合并不同类型工作表

网友投稿 446 2022-10-28

excel如何合并不同类型工作表

excel如何合并不同类型工作表

下图所示:一个文件夹下面有多个excel工作薄,每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作,有的文件是多张工作表。  现在的问题,如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。

一般的做法,通过“移动或复制”实现合并工作表。要高效,可以使用VBA代码来实现合并工作表。  合并工作表操作步骤:  新建一个excel文件,按ALT+F11,打开VBE编辑器,复制下面的代码,然后运行,选择文件夹下面的所有excel文件,执行合并工作表。

Sub合并工作簿()DimFilesToOpen,wbAsWorkbook,shtAsWorksheetDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename_(FileFilter:="MicrosoftExcelFiles(*.xls),*.xls",_MultiSelect:=True,Title:="FilestoMerge")IfTypeName(FilesToOpen)="Boolean"ThenMsgBox"NoFileswereselected"GoToExitHandlerEndIfx=1Whilex<=UBound(FilesToOpen)IfFilesToOpen(x)<>ThisWorkbook.FullNameThenSetwb=Workbooks.Open(Filename:=FilesToOpen(x))ForEachshtInwb.Sheetssht.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)Nextwb.CloseEndIfx=x+1WendExitHandler:Application.ScreenUpdating=TrueExitSubErrHandler:MsgBoxErr.DescriptionResumeExitHandlerEndSub  说明:上面代码是合并xlsx文件,如果是合并excel2007的文件,需要将:FileFilter:="MicrosoftExcelFiles(*.xls),*.xls",xls改为.xlsx。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:excel没有保存的文档怎么恢复
下一篇:Excel表格常用快捷键大全含快捷键操作演示(二)
相关文章