如何将多个Excel表格汇总在一个表格中? 怎么将多个excel表格里面的工作簿汇总到一个excel里面...

作者&投稿:邴叶 (若有异议请与网页底部的电邮联系)

如果是相同格式的Excel表格,可以利用VBA快速将几个工作表中的数据全部汇总到一个工作表中。

软件版本:Office2007

举例说明如下:

1.当前工作簿中有多个工作表有如下相同格式的数据,将其全部汇总到总表中:

2.Alt+F11,在总表中输入如下代码:

代码是实现:将不同的工作表中AB两列中从第二行开始到最后一行非空数据,依次复制到名为“总表”的工作表中

3.F5执行代码,表格数据就合并到总表中了:



Excel多个工作表汇总
A)创建一张汇总表,选中数量下面的单元格

B)点击数据——合并计算,函数里面填求和。

C)在引用位置,点击带红色箭头的框框。

D)点击A供应商这张工作表,选中参与计算的数据范围。

E)点击添加在所有引用位置出现“A供应商!$D$2:$D$13”,然后依次对B供应商工作表,C供应商工作表进行操作。

F)最后选中“创建指向源数据的链接”,点击确定。

如何把多个表格合并为一个表格~

打开需要合并的表格,鼠标选中第一个表格。鼠标右键点击“合并表格”,选择“合并成一个工作表”。在合并成一个工作表窗口中,勾选要合并的表格。点击“开始合并”即可。MicrosoftExcel是微软公司的办公软件Microsoftoffice的组件之一,是由Microsoft为Windows和AppleMacintosh操作系统的电脑而编写和运行的一款试算表软件。Excel是微软办公套装软件的一个重要的组成部分,它可以进行各种数据的处理、统计分析和辅助决策操作,广泛地应用于管理、统计财经、金融等众多领域。Excel是MicrosoftOfficesystem中的电子表格程序。可以使用Excel创建工作簿(电子表格集合)并设置工作簿格式,以便分析数据和做出更明智的业务决策。

工具/原料

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表的方法,大家看明白了吗?希望能帮助到大家,谢谢大家阅读本篇文章!

excel怎么把多个工作表数据合并到一个工作表?
答:有时候为了方便统计,会把相同的数据分月份来统计,为了分析数据又需要合并在一起,下面教大家:excel怎么把多个工作表数据合并到一个工作表?1、首先打开任意一张Excel表格,点击数据,再点击新建查询,页面弹出选项,点击从...

怎么将多个excel表格里面的工作簿汇总到一个excel里面?
答:excel怎样把多个工作表汇总成1个工作表 2、在原始数据同目录下新建一个工作簿,建立两个工作表,名称分别为“首页”和“合并汇总表”。excel怎样把多个工作表汇总成1个工作表 excel怎样把多个工作表汇总成1个工作表 3、按...

分类汇总怎么把同类弄一块
答:8、按着鼠标左键不松手,用下拖的方式,选择所有合并完的表格。然后点鼠标右键,用鼠标左键选择复制。9、然后我们要把刚才的内容粘贴到新的表格列项中,方法是选择在WPS或Excel的表格空白单元格单击鼠标右键选择“选择性粘贴”。10、然后...

怎么把多个excel文件汇总到一个excel的不同sheet?
答:通过Power Query:使用Power Query(数据查询)功能可以从多个Excel文件中加载数据并合并到一个工作簿中。不管您选择哪种方法,都可以将多个Excel文件的数据合并到一个工作簿中的不同工作表中。如果您对技术方面不熟悉,请考虑...

Excel如何快速将多个表格数据汇总到一个表格?
答:Excel将多个表格相同数据汇总到一个表格,具体要看表格结构,方法有以下几种:第一种:依次点击“数据”选项卡-“合并计算”命令-“添加数据区域”;第二种:将多个表格数据复制到同一张工作表中,再按计算项进行排序,将...

...一个人的数据提取汇总到一张表格中怎么可以把EXCEL中多
答:1、首先将你1-12月中的内容都贴在一张表格里面,竖向贴(不管当月你想要统计的员工编号是否出现),若是你仅仅是想要统计员工每个月的总工时,那么可以仅仅贴“编号”和“工时”字段数据即可,可放在同一张表格的空白处,...

excel多张表数据汇总到一张表
答:下一步继续点击小图标,就会返回上一界面。然后点击“添加”。用同样的方式将其他两个表格也添加进来。标签位置勾选首行和最左列。然后点击确定,即可完成。有多个表格,表格内容有交集也有不同项,如何汇总成另一个表格,要求...

如何把excel表格几个单独的合并到一个表格中
答:,就能全选表1的内容。再次右键点击一下,选择“移动或复制工作表”。3、出现移动或复制选项框,我们点击选择将选定工作表移至“表2”,并选择放置于“移至最后”,点击确定。4、这样,表1的内容都被合并到表2中了。

如何将多个excel文件的数据汇总到一个表格文件里?
答:假设汇总的工作表名就叫“汇总”,右键输入代码:Sub Together()With Sheets("汇总")For Each s In Sheets If s.Name <> "汇总" Then s.Range("a5:i5" ).Copy Range("a" & Range("a65536").End(xlUp).Row ...