本文目录一览：
怎么将多个excel合并成一个
可以通过更改excel代码来合并多个文件。
详细步骤：
1、新建一个文件夹。
2、将要合并的表格放到里面。
3、新建一个表格。
4、用excel打开。
5、右击Sheet1。
6、选择查看代码。
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、点击运行，即可成功合并。
如何将多个excel表合并成一个excel表？
经常需要编辑Excel表格的朋友，电脑桌面上总会有密密麻麻的表格，这样不仅看上去杂乱，而且也会影响电脑的开机速度，所以说我们完全可以将其中类型相同的表格合并到一张Excel表格里，那么如何合并呢？下面我介绍一种不用公式也可以快速合并的方法，希望对大家有帮助！
01
下图是两张Excel表格，我们可以看到分别是工资表和设备列表，如果我们想要将它们合并到一张新的表格里，应该作何操作呢？
02
首先我们需要打开Excel，然后新建一个空白工作簿，选择工作簿里面sheet 1工作表任意单元格，如图所示...
03
接着点击工具栏的“数据”-“现有连接”，然后就会在表格上弹出现有连接对话框，如图二；
04
我们点击对话框左下角的“浏览更多”，然后在桌面上将刚才两个表格中的任意一个添加进来；
05
在导入数据的时候，我们只需选择“表”以及确定导入的位置即可，其他的无需做任何改动，下图二就是我们将工资表导入以后的效果图；
06
然后我们点击表格左下角的“+”新建名为sheet 2的工作表，接下来按照以上的步骤将剩下的那个工作表导入数据，不过有一点需要注意，刚才我们导入表格的时候其中只包含一个sheet表格，而此时我们会发现有3个甚至更多，见下图二...
07
这种情况下又该如何导入数据呢？其实系统每次只支持导入一份sheet表格，所以我们需要分3次导入，但是不一定必须新建3个sheet表格，我们可以在导入一份以后，重新选择空白单元格，然后陆续导入剩余的表格；
08
不过这种导入方法虽然比较快捷，但是也有它的弊端，那就是在导入图表的时候可能会和原先的有差别，甚至根本无法完整的导入进来，下图就是导入前后的数据对比图；
怎样将多个excel 合并成1个excel
鼠标点击【汇总拆分】，选择【合并多表】。勾选全部工作表，设置表头行数为2，最后点击【确定】即可完成，详细步骤：
1、打开演示文件，如下图有多个工作表，要求将这几个工作表合并到一起。
2、首先点击如下图选项。
3、鼠标点击【汇总拆分】。
4、选择【合并多表】。
5、勾选全部工作表，设置表头行数为2，最后点击【确定】即可完成。
6、完成效果如下图。
把多个excel合并的方法步骤详解
在 Excel 中录入好数据以后，或许有需求把多个Excel合并成一个，这个时候只需要利用一个功能就能轻松搞好了。下面是我带来的关于如何把多个excel合并的 方法 ，希望阅读过后对你有所启发!
把多个excel合并的方法
多个Excel合并步骤1：新建一个文件夹
把多个excel合并的方法图1
多个Excel合并步骤2：将要合并的表格放到里面
把多个excel合并的方法图2
多个Excel合并步骤3：新建一个表格
把多个excel合并的方法图3
多个Excel合并步骤4：用excel打开
把多个excel合并的方法图4
多个Excel合并步骤5：右击Sheet1
把多个excel合并的方法图5
多个Excel合并步骤6：选择查看代码
PS：excel有着一项，WPS没有
把多个excel合并的方法图6
把多个excel合并的方法图7
多个Excel合并步骤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
把多个excel合并的方法图8
多个Excel合并步骤8：点击运行
把多个excel合并的方法图9