返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

excel如何合并同类型工作表

时间:2017-05-10 13:07来源:Office教程学习网 www.office68.com编辑:麦田守望者

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

 

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

Sub UnionWorksheets()    
Application.ScreenUpdating = False    
Dim lj As String    
Dim dirname As String    
Dim nm As String    
lj = ActiveWorkbook.Path    
nm = ActiveWorkbook.Name    
dirname = Dir(lj & "\*.xls*")    
Cells.Clear    
Do While dirname <> ""        
If dirname <> nm Then            
Workbooks.Open Filename:=lj & "\" & dirname            
Workbooks(nm).Activate            '复制新打开工作簿的第一个工作表的已用区域到当前工作表            
Workbooks(dirname).Sheets(1).UsedRange.Copy _                
Range("A65536").End(xlUp).Offset(1, 0)            
Workbooks(dirname).Close False        
End If        
dirname = Dir    
Loop
End Sub
 
  说明:上面代码是合并xlsx文件,如果是合并excel2007的文件,需要将:dirname = Dir(lj & "\*.xls*") ,xls改为.xlsx。

顶一下
(1)
100%
踩一下
(0)
0%
标签(Tag):excel excel2003 Excel行变为列
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣