首页 > Excel专区 > Excel函数 >

excel如何合并同类型工作表

Excel函数 2023-01-13

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

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

SubUnionWorksheets()
Application.ScreenUpdating=False
DimljAsString
DimdirnameAsString
DimnmAsString
lj=ActiveWorkbook.Path
nm=ActiveWorkbook.Name
dirname=Dir(lj&"\*.xls*")
Cells.Clear
DoWhiledirname<>""
Ifdirname<>nmThen
Workbooks.OpenFilename:=lj&"\"&dirname
Workbooks(nm).Activate’复制新打开工作簿的第一个工作表的已用区域到当前工作表
Workbooks(dirname).Sheets(1).UsedRange.Copy_
Range("A65536").End(xlUp).Offset(1,0)
Workbooks(dirname).CloseFalse
EndIf
dirname=Dir
Loop
EndSub

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


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.