怎么将多个excel表格里面的工作簿汇总到一个excel里面？

Question

不是汇总成一个表，而且一个excel文件里面有其他文件所有的工作簿，需要比较快的方法。🙏🙏🙏

Answer 1

工具/原料

Excel

操作步骤：

1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。

excel怎样把多个工作表汇总成1个工作表

2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。

excel怎样把多个工作表汇总成1个工作表

excel怎样把多个工作表汇总成1个工作表

3、按Alt+F11进入VBA代码编辑和调试界面。

excel怎样把多个工作表汇总成1个工作表

4、根据下图提示，插入一个模块。

excel怎样把多个工作表汇总成1个工作表

excel怎样把多个工作表汇总成1个工作表

5、将下述代码粘贴到模块空白处：

复制代码

代码如下:

Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts = False
Worksheets("合并汇总表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = "合并汇总表"
MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")
If MyFileName = "False" Then
MsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"
Else
Workbooks.Open Filename:=MyFileName
Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name
Set DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)
AddressAll = DataSource.Address
ActiveWorkbook.ActiveSheet.Range(AddressAll).Select
SourceDataRows = Selection.Rows.Count
SourceDataColumns = Selection.Columns.Count
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Num
ActiveWorkbook.Sheets(i).Activate
ActiveWorkbook.Sheets(i).Range(AddressAll).Select
Selection.Copy
ActiveSheetName = ActiveWorkbook.ActiveSheet.Name
Workbooks(ThisWorkbook.Name).Activate
ActiveWorkbook.Sheets("合并汇总表").Select
ActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetName
ActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
DataRows = DataRows + SourceDataRows
Workbooks(MyName).Activate
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
Workbooks(MyName).Close
End Sub

excel怎样把多个工作表汇总成1个工作表

6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。

excel怎样把多个工作表汇总成1个工作表

excel怎样把多个工作表汇总成1个工作表

7、点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。

excel怎样把多个工作表汇总成1个工作表

8、下一步，用鼠标选择要合并的数据范围。

注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。

excel怎样把多个工作表汇总成1个工作表

excel怎样把多个工作表汇总成1个工作表

9、点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。

注意：

1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；

2）数据之间会有一些空行，下面通过筛选删除。

excel怎样把多个工作表汇总成1个工作表

10、选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。

excel怎样把多个工作表汇总成1个工作表

11、然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：

excel怎样把多个工作表汇总成1个工作表

excel怎样把多个工作表汇总成1个工作表

END

以上就是excel如何快速把多个工作表合并到一个excel表的方法，大家看明白了吗？希望能帮助到大家，谢谢大家阅读本篇文章！

Answer 2

打开excel表格，我们先在表格中将汇总数据的标题单元格制作好。再单击主菜单中的“数据”选项，在其下拉子菜单“数据工具”组中找到“合并计算”子项并单击，这时会弹出对话窗。

单击“合并计算”对话窗中“引用位置”处的斜向上红色箭头，这时会出现数据采集框。

接着我们使用鼠标选中第一个表格中需要汇总的数据，此时数据采集框中就出现了选中数据的数据源，之后再单击数据采集框右侧的图标，这样就会返回到对话窗中。如图所示：

返回到“合并计算”对话窗中后，我们点击“添加”按钮，这样刚才采集的数据就被添加了。

重复步骤二、步骤三、步骤四我们将第二个和第三个表格中的数据进行采集，并添加到“合并计算”对话窗中。

所有表格中的数据采集完成后，我们在对话窗的“标签位置”处选择“最左列”项，并单击“确定”按钮，这样所有表格中的数据就汇总到一起了。

本回答被网友采纳

Answer 3

先普及下Excel的一些基本概念，一个Excel文件叫做一个工作簿，工作簿的名称就是文件名。一个工作簿中可以有多张工作表，如Sheet1、Sheet2等，这些工作表的名称是可以自己修改的。一个工作表中有行和列，2007后有1048576行，16384列（最后一列是XFD）。行和列的交叉点就是单元格，单元格是Excel中最小的单元，不能再拆分了。若干个单元格的一片称为区域，区域可以是1列中的若干单元格，也可以是1行中的若干单元格，或多行多列组成的矩形区域。Excel中可以把一个区域转换为“表格”，如A1:D5这样一个区域，可以转换为表格。
对照以上的概念，来解读你的提问，就会很迷茫了。“多个表格里的工作簿”指的是什么？只能能靠猜。“合并到一个Excel里”又是达到怎样的目的，也无法得知。“一个excel文件里面有其他文件”同样使人如雾里看花，不知是什么意思。
初步猜测：是在一个文件夹中，有多个工作簿（多个Excel文件），至于各个工作簿中分别有多少张工作表就无法得知了。反正是要把这些工作簿的数据汇总到另一个工作簿（另一个Excel文件）中，是这样的吗？
如果是，那么用Power Qurey是一个很不错的选择，把所有工作簿放到一个专门的文件夹中，然后新建一个工作簿，用Power Qurey导入数据——从文件夹导入，再在Power Qurey中进行处理。具体方法不是三言两语能说清楚的。而且上面的猜测也不一定对，如果不对，说了也没什么作用。还是等你追问时参照上面所说的Excel的基本概念，肥你的具体问题说清楚，再来回答你吧。

Answer 4

这很容易啊
先打开所有的Excel文件，再在需要引用的excel文件上选择所有的表格，单击右键，选择【移动或复制工作表】，注意一定点选【制作副本】这个选项，然后选择要汇总的excel文件和插入的位置(默认是放到最后)就可以啦。
这样，所有的表格都在一个文件里了。