多个Excel合并,并可设定自动去除表头

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《多个Excel合并,并可设定自动去除表头》，欢迎阅读！

步骤：

1、新建一个文件夹

2、将要合并的表格放到里面

3、并在文件夹内新建一个excel表格文件。

4、用excel打开，因为WPS没有宏命令所以只能使用excel打开。

5、在excel下方选项卡处，右击Sheet1选项卡。

6、选择查看代码

7、将下面代码复制到文本框中：

8、点击运行或按F5

9、一段时间（取决于表格的大小和多少）后，合并完成。

'代码如下：

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

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

Wb.Sheets(G).UsedRange.Offset(1, 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://www.wddqxz.cn/6dd2c3c1a2161479161128ba.html