excel如何合并同类型工作表

excel如何合并同类型工作表

一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的同类型关键标题的工作表。

现在的问题，如何将这些多个文件实现合并到一张工作表。　　一般的做法，通过复制粘贴，实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。　　合并工作表操作步骤：　　新建一个excel文件，按ALT+F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。

SubUnionWorksheets()Application.ScreenUpdating=FalseDimljAsStringDimdirnameAsStringDimnmAsStringlj=ActiveWorkbook.Pathnm=ActiveWorkbook.Namedirname=Dir(lj&"\*.xls*")Cells.ClearDoWhiledirname<>""Ifdirname<>nmThenWorkbooks.OpenFilename:=lj&"\"&dirnameWorkbooks(nm).Activate’复制新打开工作簿的第一个工作表的已用区域到当前工作表Workbooks(dirname).Sheets(1).UsedRange.Copy_Range("A65536").End(xlUp).Offset(1,0)Workbooks(dirname).CloseFalseEndIfdirname=DirLoopEndSub

说明：上面代码是合并xlsx文件，如果是合并excel2007的文件，需要将：dirname=Dir(lj&"\*.xls*")，xls改为.xlsx。

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