多个工作簿合并成一个工作簿知乎（多工作簿合并成一个）

有很多朋友在寻找多工作簿合并成一个相关的资料，本文为大家罗列出多个工作簿合并成一个工作簿知乎一些文章介绍，希望可以帮忙到需要的朋友。如果用得上记得收藏。

本文目录一览：

1、不同工作簿怎么合并？

2、EXCEL如何将两个或多个工作表合并成一个工作表

3、如何将同工作簿中多个工作表合并成一个

4、多个Excel工作簿怎么合并成一个新的工作簿

5、excel 多个工作簿合并

6、怎么把多个表格文件合成一个

不同工作簿怎么合并？

1、我们要把工作簿合并的时候，可以先建一个文件夹，把所要合并的工作簿，全部放进这个文件夹内。\r\n2、我们点击打开打开新建的Excel表格，鼠标右键单击工作表左下角的Sheet1，弹出的栏目中点击添加更多。\r\n3、我们点击之后会弹出文件添加选择页面。\r\n4、我们选中要合并的文件，然后点击下方的打开。\r\n5、经过上方的操作，我们就完成了工作簿的合并，此时我们可以看到文件夹中的需要合并的工作表已经合并到该工作簿中了。\r\n6、选中要合并的单元格，一定要是连续的单元格哦。点击“开始”菜单下“格式”里的“合并后居中”按钮。弹出提示对话框，合并后会把其他单元格的数据删除掉。确定，完成单元格合并操作。在操作这个功能时一定要先把显示的单元格的宽度调整到可以显示下所有内容的大小。\r\n更多关于不同工作簿怎么合并，进入：查看更多内容

EXCEL如何将两个或多个工作表合并成一个工作表

操作步骤如下：

1.新建空白excel文档，选择”插入“；

2.选择”插入“页面的有上角的”对象“；

3.在弹出的窗口中选择“由文件创建”；

4.在该页面选择“浏览”；

5.然后选择需要合并的文档，单击“插入”；

6.然后会弹出如下界面，选择“确定”；

7.这样就成功的将多个表格合并到一个表格里了。

如何将同工作簿中多个工作表合并成一个

如何将同工作簿中多个工作表合并成一个

把 多个工作表 合并到到一张表， 最快捷的方法是用巨集处理：

例如 将多个表合并到总计表：

总计 表只留一个标题

右键点 汇总 工作表 标签 ，检视程式码， 把如下程式码复制进去， F5执行:

Sub 工作表合并()

For Each st In Worksheets

If st.Name ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)

Next

End Sub

如何将一个 Excel 工作簿中的多个工作表合并成一个工作表

参考：:jingyan.baidu./article/624e7459afacef34e8ba5ab6.

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 如何将包含多个工作表的工作簿合并成一个工作簿

使用条件1：有若干个工作薄，每个工作薄有若干工作表，要把这些所有工作表收集到一个工作薄中来，并以原工作薄名加上“--”，再加上原工作表名的方式在该工作薄中命名。

使用条件2：有若干个工作薄，每个工作薄有若干工作表，要从每个工作薄中按关键字收集工作表到一个工作薄中来。按著指定的关键字确定要收集哪些工作表，关键字可以是手动输入的，也可以是各自工作薄名称为关键字。然后再区分要收集的工作表名称是否与关键字完全相同，或是关键字仅为要收集的工作表名称中的一部分。如果要收集与关键字完全相同的工作表，那么收集到新工作薄中后会以原工作薄命名该工作表，如果关键字仅为要收集的工作表名中的一部分，那么收集到新工作薄中后会以原工作薄名加上“--”，再加上原工作表名的方式命名。

1、首先要选择是否要把要收集过来的工作表数值化。

2、确定要收集所有工作表，还是特定的一张工作表。

3、如果选择只收集特定的一张工作表，就要选择关键字的取法：以各工作薄的名称为关键字，或是以手动输入的字元为关键字。

4、关键字确定好后，要确定要收集的工作表的名称是否与关键字完全相同，还是说关键字仅是要收集的工作表名称中的一部分。

5、最后就是选择要收集的工作薄了。

6、收集的工作薄放在一个名叫“收集的工作薄.xlsx”中，该工作薄放在本工作薄所在目录下面名称为“收集工作薄”的资料夹下面。

如何将一个excel表中多个工作簿合并成一个

方法/步骤

如图：有二个工作簿，每一个工作簿中都有若干个工作表，在做合并之前，我们要将这两个工作表开启。

在其中一个工作簿选择所有的工作表，方法是先选择第一个工作表，按住shift键，然后点最后一个工作表，这样就可以快速全部选中

当然，你也可以右击任意一工作表，在弹出的选单中选择“选定全部工作表”选择所有的工作表。

右击工作表标签，在弹出的选单中选择“移动或复制工作表”在第一个下拉框中选择另一个要合并的工作簿。

这样就可以快速将当前工作簿的所有工作表合并到另外一个工作簿了。

这里需要注意的是如果两个工作簿，有相同名字的工作簿的话，系统自动用（2）来命名。

7

这样做的话，当前工作簿不会发生变化，复制移动的工作簿，会合并两个工作表的所有内容。

8

如图你不想影响原来档案的话，你最好可以新建一个空白工作再复制移动工作表到新的档案啊。

如何将多个excel表合并成一个工作簿

开启你的工作簿 新建一个工作表 在这个工作表的标签上右键 检视程式码 你把下面的程式码复制到里边去，然后 上面有个执行 执行子程式就可以了，程式码如下，如果 出现问题你可以尝试工具 巨集 巨集安全性里把那个降低为中或者低再试试

Sub 合并当前工作簿下的所有工作表()

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub

如何将wps中多张工作表合并成一个

将不同的WPS表格合并到一起更便于管理、方便资料查询。不同的WPS表格移动到一起的方法如下：1、开启要移动的WPS表格，然后右键单击底部的WPS工作表档名，在弹出的选项中选择“移动或复制工作表”;2、选择要移动合并到指定的工作薄，工作表放在的位置，如果要保留原来的WPS表格，那么就勾选”建立副本“；3、单击【确定】，这样WPS表格就合并完成了。

excel2016中如何将多个工作簿合并成工作表

将需要合并的excel工作簿档案放置在一个资料夹中。

每个资料夹中的工作簿都输入了简单的内容。

在该资料夹中，新建立一个新的excel工作簿档案。重新命名为8.

开启新建立的excel工作簿档案8.按Alt+F11或者将滑鼠移动到下方工作表名称sheet1上右键，选择检视程式码。

在弹出的程式码编辑视窗中，输入程式码。注意：通过快捷键Alt+F11开启的视窗如下没有直接复制程式码的面板，需要点选左上方的工程-VBA project模组，双击sheet1，即可开启程式码视窗。而步骤3中的第二种方法可以直接开启程式码输入视窗。

在程式码视窗中，黏贴下列程式码：

Sub CombineFiles()

Dimpath As String

DimFileName As String

DimLastCell As Range

DimWkb As Workbook

DimWS As Worksheet

DimThisWB As String

Dim MyDir AsString

MyDir =ThisWorkbook.path "\"

'ChDriveLeft(MyDir, 1) 'find all the excel files

'ChDir MyDir

'Match =Dir$("")

ThisWB =ThisWorkbook.Name

Application.EnableEvents = False

Application.ScreenUpdating = False

path =MyDir

FileName =Dir(path "\*.xls", vbNormal)

Do UntilFileName = ""

If FileName ThisWB Then

Set Wkb = Workbooks.Open(FileName:=path "\" FileName)

For Each WS In Wkb.Worksheets

Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen

Else

WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

End If

Next WS

Wkb.Close False

End If

FileName = Dir()

Loop

Application.EnableEvents = True

Application.ScreenUpdating = True

Set Wkb =Nothing

Set LastCell= Nothing

End Sub

点选选单栏执行-执行子过程-使用者窗体。关闭程式码输入视窗。开启excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。

如何把excel中多个工作表合并成一个

利用excel表的巨集计算可以把多个工作表合并成一个。方法如下：

工具/原料：

多个excel表资料丶microsoft office

步骤：

1.需要把多个excel表都放在同一个资料夹里面，并在这个资料夹里面新建一个excel。如图所示：

2.用microsoft excel开启新建的excel表，并右键单击sheet1，找到“检视程式码”，单击进去。进去之后就看到了巨集计算介面。如图所示：

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.执行之后，等待10秒针左右，等执行完毕，就是合并完成之后，会有提示，点确定就可以了。检视合并后的资料，有5000多行，就是同一个资料夹里面17个excel表资料合并后的结果。效果如图所示。

注意事项：

金山的WPS没有巨集计算功能。只能用microsoft excel来实现。

多个Excel工作簿怎么合并成一个新的工作簿

把多个内容近似的EXCEL表格合并成一个新表格，可以减少文件数目，便于整理，下面我就来讲讲合并多个Excel的方法。

01

首先，我们打开两个excel表格来演示，如图所示，我需要把表格1的内容整体合并到表格2中。

02

页面切换到表格1，如图所示，右键单击“sheet1”，弹出菜单选择“移动或复制工作表”。

03

如图所示，点击下拉菜单，选择“表格2”（此时，表格1和表格2都处于打开状态），然后根据需要，选择表格1插入位置，点击确定。

04

此时，就发现表格1的“sheet1”移动到了表格2中的“sheet3”之后，而原表格1中没有“sheet1”了，效果如图所示，把其他表格移动的步骤与此相同，这样，多个表格就能合并到一个工作簿中了。

excel 多个工作簿合并

一、excel 多个工作簿合并的方法如下：

1、准备材料：excel 表格、电脑

2、首先需要先选择打开excel软件。

3、接着需要再进入界面后，在菜单栏中，选择点击“开始-智能工具箱”。

4、接着在下方的选项中，选择点击下方的“工作表”选项，然后选择点击“工作簿合并”选项。

5、接着在弹出窗口选项中，找到“添加文件”选项并点击进入。

6、接着在找到原有工作表文件路径并完成添加，点击“开始合并”选项。

7、接着在合并完成之后，即可自动弹出合并后的工作表，需要点击三个点，即可查看工作表。

怎么把多个表格文件合成一个

1. 怎样把多个excel文件合并成一个

1、打开电脑，然后打开文件夹将这些excel文件都复制到一个文件夹下。注意，文件夹下不要有其他的excel文件；

2、切换到【数据】菜单，点击【新建查询】，选择【从文件】下的【从文件夹】；

3、接下来输入刚刚的文件夹路径，找到并点击【确定】选项；

4、然后会出现一个新的页面，接着找到并点击【合并】下的【合并和加载】选项；

5、选择要合并的工作表名称，最后点击【确定】选项；

6、这时就完成了多个excel文件的合并。从筛选菜单中可以看到本例中的4个文件都这一份表格中。

2. 怎么把两个EXCEL文档合成一个

1、首先打开EXCEL表格，里面有两个EXCEL文档。

2、然后我们点击EXCEL文档后面如图图标，插入一个新的EXCEL表格。

3、将插道入的这个表格命名为合并。

4、然后将光标放到这个EXCEL文档的位置，右键单击，选择查看代码。

5、接着就会出现VBA编辑窗口，在里面输入下面的代码。

Sub 合并当前工作簿下的所有工作表（）

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕回！"， vbInformation， "提示"

End Sub

6、输入之后，在上面的工具栏里面点击运行里面的运行子过程/用户窗体。

7、这样就可以将两个EXCEL文档合成答一个。

3. 怎么把多个excel文件合并成一个

以WPS 2019版本为例：

如需将多个excel文件合并成一个，可使用WPS2019中已自带的「文档拆分合并」功能：

操作步骤：

1）打开其中一份「表格（Excel）」文档；

2）点击「特色应用-拆分合并-合并」；

3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。

4. 怎样将多个EXCEL文件合并成一个EXCEL文件

如果表不算太多的话可以试试这种方法，打开总表（要粘贴的表），打开一个要复制的表，右击要复制的工作表标签，选择移动或复制工作表，建立副本，选择要移动到表（要粘贴的那总表）。这种方法对合并到同一个文件中还是可行的。

但你说的汇总到一张表里就不行了，可以试试用“=”建立链接（要用相对地址），但这种方法对表结构相同或类似的才可以，而且文件名和表名称要有规律。这样会很快汇总到一张表中，下面的活儿就是整理一下的工作了，要是要数据的话就把链接改成数据才可以，这种方法好在可以动态更新你的数据。

写代码也可以，但若是工作量很大的话可考虑！

5. 如何快速把多个excel表合并成一个

方法/步骤我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。

如图所示：用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。

如图所示：然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：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运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。

查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

6. 如何把excel中多个工作表合并成一个

利用excel表的宏计算可以把多个工作表合并成一个。方法如下：

工具/原料：

多个excel表数据丶microsoft office

步骤：

1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

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.运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

注意事项：

金山的WPS没有宏计算功能。只能用microsoft excel来实现。

7. 如何将多个Excel文件合并成一个有多个sheet的Excel文件

如何将多个Excel文件合并成一个有多个sheet的Excel文件？ 1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。

2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。 3、在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。

4、在编辑框中复制以下代码，注意符号，需是英文状态下。 '功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets（) '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In .SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks.Open(vrtSelectedItem) '复制工作表 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls"， "") '关闭被合并工作簿 tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = NothingEnd Sub 5、代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。

6、运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。 7、代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称，大功告成。

上面的内容就是多工作簿合并成一个的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于多个工作簿合并成一个工作簿知乎、的内容别忘了在本站进行查找喔。