原发布者:钟晴钟羿如何快速把多个excel表合并成一个excel表有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，其实利用excel表的宏计算就可以实现。具体步骤如下：1、需要把多个excel表都放在同一个文件e799bee5baa6e59b9ee7ad9431333433623736夹里面，并在这个文件夹里面新建一个excel。如下图：2、用microsoftexcel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如下图：3、然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下：Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&"\"&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName>""IfMyName>AWbNameThenSetWb=Workbooks.Open(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb，1、首先打开excel表格，如下图。
如果多个excel需要合并在一起，一个一个合并太麻烦，下面就交给大家一个快速方法
方法
首先需要把所有需要合并的excel文件放到一个文件夹中，并且新建一个空白的excel文件。
两个表假设分别为sheet1，sheet2，以sheet1为基础，C2公式为=ⅤLOOKUP(A2，
然后打开这个新建的excel文件，右键点击sheet1选择查看代码。
如何快速把多个excel表合并成一个excel表有这么一种情况，就是我们有很多张excel，而且ex
然后会出现如下的界面。
Excel怎样将两个表格数据合并首先我们先稍微整理一下需要合并到一块的多个表格中的一个的格式：2另一
然后把如下代码复制粘贴到代码栏。
excel如何快速把多个工作表合并到一个excel表有这么一种情况，就是我们有很多张excel，而且
Sub 合并当前目录下所有工作簿的全部工作表()
多个excel内容合并，需要使用excel中的合并单元格功能。以office2016为例，在exc
Dim MyPath, MyName, AWbName
1、首先，我们创建两个工作表，并输入不同内容来演示，我需要把这两个工作表合并。我们同时打开这两个工作
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文档放在同一个文件夹中,再文件夹中新建一个Excel打开Excel，按ALT+F11，或依次点工具，宏，VB编辑器，弹出的编辑器中点插入模块，新弹出的空白窗口中输入以下代码：SubCom()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&"\"&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName>""IfMyName>AWbNameThenSetWb=Workbooks.Open(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToWb.Sheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("A1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的e799bee5baa6e79fa5e98193e59b9ee7ad9431333433623736全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub保存---点执行键OK，人工将各表格的资料复制、粘贴到一个表中即可。如果多个表格的格式是固定的，也可通过编写VBA程序进行处理。本回答被网友采纳，1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：3.然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub4.运行之e68a84e799bee5baa631333365646233后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示，快速把excel合并在一起，方便分析和统计可以利用excel表的宏计算就可以实现。方法如下：1、我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：2、用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：3、然后e799bee5baa6e78988e69d8331333366303763我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub4、运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。5、查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。本回答被网友采纳，excel必备工具箱有表格合并功能，可以百度EXCEL必备工具箱官方网站下载，再多的表格都可以一键合并：内容来自www.51dongshi.com请勿采集。
