excel合并多个文件的方法

Excel 中经常需要合并多个文件，Excel 文件具体该如何进行合并呢?下面是小编带来的关于excel 合并多个文件的方法，希望阅读过后对你有所启发!

excel 合并多个文件方法：

合并多个文件步骤1：新建一个文件夹

合并多个文件步骤2：将要合并的表格放到里面

合并多个文件步骤3：新建一个表格

合并多个文件步骤4：用excel 打开

合并多个文件步骤5：右击Sheet1

合并多个文件步骤6：选择查看代码

PS：excel 有着一项，WPS 没有

合并多个文件步骤7：将下列代码复制到文本框中：

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

.Cells(.Range(B65536).End(xlUp).Row + 2, 1) = Left(MyName,

Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range(B65536).End(xlUp).Row + 1,

1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range(B1).Select

Application.ScreenUpdating = True

MsgBox 共合并了& Num & 个工作薄下的全部工作

表。如下：& Chr(13) & WbN, vbInformation, 提示

End Sub

合并多个文件步骤8：点击运行

合并多个文件步骤9：一段时间(取决于表格的大小和多少)后，合并完成了tips:感谢大家的阅读，本文由我司收集整编。仅供参阅！