合并多个Excel文件的方法

合并多个excel文档同时自动去除除第一个表格之外的表格的表头方法步骤： 

1、新建一个文件夹 
2、将要合并的表格放到里面 
3、并在文件夹内新建一个excel表格文件 
4、用excel打开，因为WPS没有宏命令所以只能使用excel打开
5、在excel下方选项卡处，右击Sheet1选项卡 
6、选择查看代码 
7、将下面代码复制到文本框中 
8、点击运行或按F5 
9、一段时间（取决于表格的大小和多少）后，合并完成。

下列代码可以设定除第一个Excel表格以外的Excel文件从第几行或第几列开始合并以便去除第一个Excel表格以外需要合并的Excel表格所有表头。“UsedRange.Offset(1, 0)”代表去除第1行第0列（如果去除前3行表头，把1改成3即可）,一般不建议对列进行设置，以免与表头对应出现混乱。
 

代码如下：

Sub 合并当前目录下所有工作簿的全部工作表() 
Dim MyPath, MyName, AWbName 
Dim Wb As Workbook, WbN As String 
Dim G As Long 
Dim Num As Long 
Dim BOX As String 
Application.ScreenUpdating = False 
MyPath = ActiveWorkbook.Path 
MyName = Dir(MyPath & "\" & "*.xls") 
AWbName = ActiveWorkbook.Name 
Num = 0 
Do While MyName <> "" 
If MyName <> AWbName Then 
Set Wb = Workbooks.Open(MyPath & "\" & MyName) 
Num = Num + 1 
With Workbooks(1).ActiveSheet 
If Num = 1 Then 
For G = 1 To Sheets.Count 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 
Next 
Else 
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Offset(2, 0).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)
Next 
End If
WbN = WbN & Chr(13) & Wb.Name 
Wb.Close False 
End With 
End If 
MyName = Dir 
Loop 
Range("A1").Select 
Application.ScreenUpdating = True 
MsgBox "共合并了" & Num & "个工作薄下的全部工作表.如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

 

转载自：https://wenku.baidu.com/view/08b6612a0622192e453610661ed9ad51f01d54ff.html