如何快速把多个excel表合并成一个excel表
快速把多个excel表合并成一个excel表步骤如下：
1、把多个excel表格放在同一文件夹里。
2、新建一个excel表格。
3、打开新建excel表格，右键单击sheet1，点击查看代码。
4、弹出宏计算界面，将代码复制进去。
5、在工具栏中找到运行，点击“运行子过程”。
6、运行完成之后，点击确定查看合并后的数据。
1、如图：有二个工作簿，每一个工作簿中都有若干个工作表，在做合并之前，我们要将这两个工作表打开。
2、在其中一个工作簿选择所有的工作表，方法是先选择第一个工作表，按住shift键，然后点最后一个工作表，这样就可以快速全部选中
3、当然，你也可以右击任意一工作表，在弹出的菜单中选择“选定全部工作表”选择所有的工作表。
4、右击工作表标签，在弹出的菜单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。
5、这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。
6、这里需要注意的是如果两个工作簿，有相同名字的工作簿的话，系统自动用（2）来命名。
7、这样做的话，当前工作簿不会发生变化，复制移动的工作簿，会合并两个工作表的所有内容。
8、不想影响原来文件的话，你最好可以新建一个空白工作再复制移动工作表到新的文件啊。
1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1(注意是表名上右击）；
2、选择查看代码（PS：excel有着一项，WPS没有）
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
.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
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。
本人汇总报来的数据就是由此修改的。
希望本人的存在电脑内的东西可能帮到您。祝你一切顺利。
用这个工具吧，不需要那么麻烦，操作如下图：
选择要合并的Excel文件，按住Ctrl多选，
如果要跳过表头，填入内容的开始行
选择合并到的文件（可以建一个空的Excel）
工具地址：www.excelfb.com 点击： 多个Excel文件多个Sheet合并（合并到一个Sheet）
|
广告 您可能关注的内容 |
