多个工作表合并到一个工作表

多个Excel表格合并到⼀起，超简单的⽅法！

如何将多个表格⽂件⾥⾯的多个Sheet合并到⼀个表格中？这⾥，⼩汪⽼师以Excel2016为例，给⼤家详细讲解⼀下。

这⾥是三个Excel表格⽂件：

每⼀个表格⽂件⾥⾯都有多个Sheet⼯作表：

01

多⼯作簿多⼯作表合并

1、打开⼀个空⽩表格，然后进⼊「数据」-「获取和转换」-「新建查询」-「从⽂件」-「从⽂件

夹」，在弹出的「⽂件夹」中输⼊多个表格⽂件的存放路径后「确定」-「转换数据」。

2、选中有⽤的列，然后点击「主页」-「管理列」-「删除列」-「删除其他列」，可以删除没⽤

的列。

3、点击「添加列」-「常规」-「⾃定义列」，在「⾃定义列公式」中输⼊公式：

Excel.Workbook([Content],true)

4、点击「⾃定义」旁边的按钮，然后「确定」，再点击“Data”旁边的按钮，「确定」。5、点击「主页」-「关闭」-「关闭并上载」。

6、现在我们合并的数据就已经转到表格中了，但是你可能会发现，好像少了些数据，没关系，

我们可以点击「设计」-「刷新」就有了。

OK，现在我们就已经将多⼯作簿中多⼯作表合并到⼀起了，⼤家把没⽤的列删除掉就可以了。

office2016 合并工作表主要步骤

Office 2016合并工作表主要步骤

在Office 2016中，合并工作表是一项常见的任务，可以将多个具有相似数据结构的工作表合并为一个整体，便于数据分析和处理。本文将介绍Office 2016中合并工作表的主要步骤，帮助您轻松完成该操作。

步骤一：打开Excel应用程序

首先，确保您已经打开了Excel应用程序。在Windows系统中，您可以在开始菜单中找到Excel图标并点击打开；在Mac系统中，可以在Launchpad或应用程序文件夹中找到Excel并打开。

步骤二：创建或打开工作簿

接下来，您可以选择创建新的工作簿或打开已有的工作簿。如果您想要创建新的工作簿，请点击“文件”菜单，然后选择“新建”选项，随后选择“工作簿”。

如果您已经有了要合并的工作表所在的工作簿，可以点击“文件”菜单，然后选择“打开”，浏览并选择相应的工作簿文件。

步骤三：选择要合并的工作表

在打开或创建工作簿后，您需要选择要合并的工作表。在Excel的底部标签栏中，您可以看到每个工作表的名称和选项卡。单击要合并的第一个工作表的选项卡以选择它。 然后，按住Ctrl（在Mac上是Command键）键，并单击其余要合并的工作表的选项卡，以依次选择它们。您可以选择任意数量的工作表进行合并。

步骤四：启动合并工作表功能

在选择了要合并的工作表后，您需要启动Excel的合并工作表功能。在Excel的菜单栏中，点击“数据”选项卡，然后找到“合并工作表”命令并点击它。

步骤五：配置合并选项

点击“合并工作表”命令后，将弹出合并工作表对话框。在这个对话框中，您可以配置合并工作表的选项。

首先，选择要应用的合并方式。您可以选择“添加工作表”将选定的工作表添加到新建的工作簿中，或者选择“合并到一个工作表”将选定的工作表合并到当前工作簿的一个工作表中。

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

有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。

1、将需要合并的excel工作簿文件放置在一个文件夹中。

2、在该文件夹中，新建立一个新的excel工作簿文件。

3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。

4、在弹出的代码编辑窗口中，输入代码。

5、在代码窗口中，粘贴下列代码：

Sub 合并工作薄()

Dim FilesToOpen

Dim x As Integer

On Error GoTo ErrHandler

Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename _

(FileFilter:="MicroSoft Excel文件(*.xls), *.xls", _

MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "Boolean" Then

MsgBox "没有选中文件"

GoTo ExitHandler

End If

x = 1

While x <= UBound(FilesToOpen)

Workbooks.Open Filename:=FilesToOpen(x)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

x = x + 1

Wend

将多个Excel⽂件合并成⼀个有多个sheet的Excel⽂件

⽅法/步骤

1、新建⼀个⽂件夹，将需要合并的excel⽂档复制到该⽂档⽬录下。

2、新建⼀个EXCEL空⽩⽂档，⿏标移动到在sheet⼯作表上单击右键，选择“查看代码”选项，进⼊VBA控制台。

3、在菜单栏点击“插⼊”菜单，选择“模块”选项，进⼊模块编辑界⾯。

4、在编辑框中复制以下代码，注意符号，需是英⽂状态下。

1 '功能：把多个excel⼯作簿的第⼀个sheet⼯作表合并到⼀个excel⼯作簿的多个sheet⼯作表，新⼯作表的名称等于原⼯作簿的名称

2 Sub Books2Sheets() '定义对话框变量

3 Dim fd As FileDialog

4 Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建⼀个⼯作簿

5 Dim newwb As Workbook

6 Set newwb = Workbooks.Add

7 With fd

8 If .Show = -1 Then '定义单个⽂件变量

9 Dim vrtSelectedItem As Variant '定义循环变量

10 Dim i As Integer

11 i = 1 '开始⽂件检索

12 For Each vrtSelectedItem In .SelectedItems '打开被合并⼯作簿

13 Dim tempwb As Workbook

14 Set tempwb = Workbooks.Open(vrtSelectedItem) '复制⼯作表

15 tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i) '把新⼯作簿的⼯作表名字改成被复制⼯作簿⽂件名，这⼉应⽤于xls⽂件，即Excel97-2003的⽂件，如果是Excel2007，需要改成xlsx