怎么将几个excel文件合并-多个excel表合并成一个的

具体操作步骤如下：

你需要将所有需要合并的Excel文件放置在一个文件夹中，并新建一个空白的Excel文件作为合并后的工作簿。

接着，打开这个新建的Excel文件，右键点击Sheet1标签，选择“查看代码”。这时，你会进入到一个编程界面。

然后，复制粘贴以下代码到代码栏中：

```vba

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long, Num As Long

Dim BOX As String

Application.ScreenUpdating = False '关闭屏幕更新，提高代码运行效率

MyPath = ActiveWorkbook.Path '获取当前活动工作簿的路径

MyName = Dir(MyPath & "\" & ".xls") '获取指定路径下的第一个Excel文件名

AWbName = ActiveWorkbook.Name '获取当前活动工作簿的名称

Num = 0 '计数器初始化

Do While MyName <> "" '循环遍历指定路径下的所有Excel文件

If MyName <> AWbName Then '排除当前正在操作的工作簿

Set Wb = Workbooks.Open(MyPath & "\" & MyName) '打开找到的Excel文件

Num = Num + 1 '计数器加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 Destination:=.Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next G

WbN = WbN & Chr(13) & Wb.Name '记录合并的工作簿名称

Wb.Close False '关闭源工作簿，不保存修改

End With

End If

MyName = Dir '获取下一个Excel文件名

Loop '循环结束条件为找不到更多Excel文件

Range("B1").Select '选中单元格B1

Application.ScreenUpdating = True '恢复屏幕更新

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下" & Chr(13) & WbN, vbInformation, "提示" '弹出提示框，显示合并结果

End Sub

```