68手游网

一个文件夹下面有多个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。