参照如下：

总表取分表对应值

在B2单元格中输入公式：

=vlookup(a2,indirect(left(b$1,len(b$1)-2)&“!a:b“),2,)下拉填充

如图：

1、以图中所示的表格为例，五张纸的格式完全相同。  

2、查看第一季度和第二季度的表，我们还可以看到每个表的格式完全相同，只是表内容数据不同。  

3、返回到“汇总”工作表，并在计算汇总值的第一个单元格B2中输入以下公式“=sum(’*’)！B2)“。

4、输入完成后，按回车键，此时已经计算出单元格。

5、拖动单元格公式，此时将获得准确的结果。

根据你提问的意思，有以下两种情况：

1、如果是要把几张表合到一个工作簿中，简单的复制粘贴一下就行了，或右单击工作表标签，复制或移动----建立副本---到汇总工作簿中去就行了

2、如果是要把几张有的内容合并到一张工作表中，就用一个简单的“=”，每一个字段设置好后，就直接下拉，这种方法最简单最直接。

如图所示，几张表的内容全汇表一张表中了。

工具/原料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 WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets(“合并汇总表“).DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = “合并汇总表“MyFileName = Application.GetOpenFilename(“Excel工作薄 (*.xls*),*.xls*“)If MyFileName = “False“ ThenMsgBox “没有选择文件！请重新选择一个被合并文件！“, vbInformation, “取消“ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:=“请选择要合并的数据区域：“, Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets(“合并汇总表“).SelectActiveWorkbook.Sheets(“合并汇总表“).Range(“A“ & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets(“合并汇总表“).Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Subexcel怎样把多个工作表汇总成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多个工作表汇总A)创建一张汇总表，选中数量下面的单元格B)点击数据——合并计算，函数里面填求和。C)在引用位置，点击带红色箭头的框框。D)点击A供应商这张工作表，选中参与计算的数据范围。E)点击添加在所有引用位置出现“A供应商!$D$2:$D$13”，然后依次对B供应商工作表，C供应商工作表进行操作。F)最后选中“创建指向源数据的链接”，点击确定。

两个文件的合并，可以使用复制粘贴实现。具体步骤如下：

一、把第一个表复制到总表；

二、复制第二个表的数据，到总表里面，选择性粘贴，选中【加】，确定，数据就合计了，不是覆盖，选择性粘贴的界面如下图：

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet12、选择查看代码（PS：excel有着一项，WPS没有）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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。