四川红网

  1. 首页 > 生活百科 > >

excel怎么合并同类型工作表

生活百科小知识

一个文件夹下面有多个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
【excel怎么合并同类型工作表】说明：上面代码是合并xlsx文件 ， 如果是合并excel2007的文件 ， 需要将：dirname=Dir(lj&"\*.xls*") ， xls改为.xlsx 。

    猜你喜欢


    上一篇：Excel文件弹出隐私问题警告的解决方法

    下一篇：怎么让excel中隐藏过行和列的地方显示标记？