把几个Excel文档中的工作表(sheet)合并到同一工作簿中(图文)

批量将多个excel中的多个工作簿合并到一个excel中将要合并的excel放到一个文件夹中，在这个目录中新建一个excel。

打开新建的excel。

按alt+F11。

单击【插入】菜单,【模块】。

将下面的东东复制进去，关闭对话框。

选中刚才插入的模块。

点击【运行】菜单,【运行宏】。

在弹出的对话框中选中【Combinefiles】，单击【运行】搞定。

Sub CombineFiles()Dim path As StringDim FileName As StringDim LastCell As RangeDim Wkb As WorkbookDim WS As WorksheetDim ThisWB As StringDim MyDir As StringMyDir = ThisWorkbook.path & "\"'ChDrive Left(MyDir, 1) 'find all the excel files'ChDir MyDir'Match = Dir$("")ThisWB = Application.EnableEvents = FalseApplication.ScreenUpdating = Falsepath = MyDirFileName = Dir(path & "\*.xls", vbNormal)Do Until FileName = ""If FileName <> ThisWB ThenSet Wkb = Workbooks.Open(FileName:=path & "\" & FileName)For Each WS In Wkb.WorksheetsSet LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address ThenElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)End IfNext WSWkb.Close FalseEnd IfFileName = Dir()LoopApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueSet Wkb = NothingSet LastCell = NothingEnd Sub。

一、操作方法将所有要合并的工作簿存放到同目录下，在同目录下新建“汇总工作簿.xls”,打开后，按Alt+F11进入代码编辑界面,点击插入-模块，将代码复制粘贴进去，点击运行。

二、将多个工作簿的所有工作表(sheet)复制到一个工作簿内,代码：Sub CombineFiles()Dim path As StringDim FileName As StringDim LastCell As RangeDim Wkb As WorkbookDim WS As WorksheetDim ThisWB As StringDim MyDir As StringMyDir = ThisWorkbook.path & "\"'ChDrive Left(MyDir, 1) 'find all the excel files'ChDir MyDir'Match = Dir$("")ThisWB = Application.EnableEvents = FalseApplication.ScreenUpdating = Falsepath = MyDirFileName = Dir(path & "\*.xls", vbNormal)Do Until FileName = ""If FileName <> ThisWB ThenSet Wkb = Workbooks.Open(FileName:=path & "\" & FileName)For Each WS In Wkb.WorksheetsSet LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address ThenElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)End IfNext WSWkb.Close FalseEnd IfFileName = Dir()LoopApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueSet Wkb = NothingSet LastCell = NothingEnd Sub三、将多个工作簿的第一张工作表（sheet）复制到一个工作簿内,代码：Private Sub 合并工作薄()Dim f_name As StringDim bok1 As Workbook, bok2 As WorkbookSet bok2 = Nothingf_name = Dir(ThisWorkbook.Path & "\*.*") '获得该目录下的所有EXCEL文件Do While f_name <> "" '开始执行循环If f_name <> Then '如果当前的文件不是代码所在文件，执行合并操作Set bok1 = Workbooks.Open(ThisWorkbook.Path & "\" & f_name) '打开被合并的文件If bok2 Is Nothing Then '合并后的文件是否存在bok1.Sheets(1).Copy '如果合并后的文件不存在，则创建一个Set bok2 = ActiveWorkbookElsebok1.Sheets(1).Copy Before:=bok2.Sheets(1) '如果合并后的文件存，在则将被合并文件的第一个工作表复制到合并文件中。

如何把多个相同工作簿数据汇总到一个工作簿内要把多个相同工作簿的数据汇总到一个工作簿内，可以使用Excel提供的功能和技巧来完成。

以下是具体步骤：1. 打开一个新的Excel工作簿，该工作簿将用于汇总数据。

2.点击“数据”选项卡，然后选择“来自其他源”下的“从文本”选项。

这将打开“导入文本向导”对话框。

3.在“导入文本向导”对话框中，选择“文件”选项，并点击“浏览”按钮，选择需要汇总的第一个工作簿文件。

4.在下一步中，选择“分隔”，并选中与数据文件中使用的分隔符相匹配的选项。

通常情况下，逗号或制表符是常用的分隔符。

5.完成后，点击“下一步”按钮来设置每列数据的格式。

如果一些列包含数字，则可以选择相应的格式（如“常规”）。

6. 点击“完成”按钮，Excel将导入第一个工作簿的数据，并将其显示在新的工作簿中。

7. 重复步骤3到步骤6，导入其他需要汇总的工作簿文件。

每次导入完成后，Excel会询问您想要将新的数据放在哪个位置，可以选择“现有工作表”中的现有选项或创建新的选项。

8.重复导入过程，直到将所有工作簿的数据导入到新的工作簿中。

9.在新的工作簿中进行必要的数据整理和格式化。

根据需要，可以添加总计、折线图等其他功能。

10.保存新的工作簿，以便以后使用。

除了上述步骤外，还可以使用宏来自动化汇总过程。

通过录制宏，将导入每个工作簿的操作自动化，并在单击按钮时完成数据汇总。

这样可以提高效率和准确性。

在导入和汇总数据时，还需要注意以下事项：-确保多个工作簿中的数据具有相似的结构和字段名称。

- 检查导入的数据是否准确无误。

如果数据格式有误，可以使用Excel的数据透视表和筛选功能来修复。

-如果需要定期更新数据，可以在新的工作簿内设置外部数据链接。

这样，当源工作簿的数据发生更改时，新的工作簿将自动更新。

希望以上步骤能够帮助您成功将多个相同工作簿的数据汇总到一个工作簿内。

18、在Excel中相同格式工作簿（工作表）汇总到一个工作簿中的方法：1、首先新建一个汇总工作簿，汇总工作簿和要会做的其他的工作簿要放在同一个文件夹中。

2、然后再汇总工作簿中打开宏函数（ALT+F11）复制如下代码：Sub HuiZong()Dim myfile, mypath, wb '声明变量Application.ScreenUpdating = False '关闭屏幕更新edRange.Offset(1, 0).Clear '清除除表头之外的所有内容mypath = ThisWorkbook.Path '找到当前工作簿的路径myfile = Dir(mypath & "\*.xls*") '遍历当前文件夹下的Excel文件Do While myfile <> "" '当找到的文件不为空时If myfile <> Then '当找到的文件不是当前Excel工作簿时Set wb = GetObject(mypath & "\" & myfile) '得到dir找到的工作簿的内容，设为wbWith wb.Sheets(1) '对找到的工作簿的sheet1进行操作'复制wb的sheet1除第一行的所有内容.UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & edRange.Rows.Count + 1)End Withwb.Close False '关闭wb工作簿且不保存End Ifmyfile = Dir '寻找下一个Excel工作簿LoopApplication.ScreenUpdating = True '恢复屏幕更新End Sub。

excel如何快速把多个工作表合并到一个excel表有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表下面为大家介绍这种方法，希望能帮助到大家。

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

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

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

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

5、将下述代码粘贴到模块空白处：代码如下:6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。

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

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

注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。

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

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

注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。

10、选中全部数据区域，执行自动筛选。

然后选择其中一个字段，选择“空白”和标题内容。

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

多个工作簿合并到一个工作簿中
首先，我们可以使用Excel自带的“合并工作簿”功能来实现多个工作簿的合并。

具体操作步骤如下，首先打开一个新的空白工作簿，然后选择“数据”选项卡中的“获取外部数据”功能，接着选择“从工作簿”选项，然后在弹出的对话框中选择需要合并的工作簿文件，最后按照提示完成合并操作即可。

其次，我们还可以通过使用宏来实现多个工作簿的合并。

宏是一种自动化操作
的方式，可以帮助我们简化重复的操作步骤。

具体操作步骤如下，首先打开一个新的空白工作簿，然后按下“Alt+F11”组合键打开VBA编辑器，接着在VBA编辑
器中编写宏代码，最后保存并执行编写好的宏代码即可实现多个工作簿的合并操作。

此外，我们还可以借助第三方工具来实现多个工作簿的合并。

市面上有很多优
秀的第三方工具可以帮助我们实现这一目标，比如Kutools for Excel、Power Query 等。

这些工具通常具有更加丰富和强大的功能，可以帮助我们更加高效地完成多个工作簿的合并操作。

总的来说，无论是使用Excel自带的功能、编写宏代码，还是借助第三方工具，我们都可以实现多个工作簿的合并。

在实际操作中，我们可以根据具体的需求和情况选择合适的方法来完成这一操作。

希望以上介绍的方法可以帮助大家更加轻松地实现多个工作簿的合并，提高工作效率。

excel如何快速把多个工作表合并到一个excel表有这么一种情况,就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面,这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表?下面为大家介绍这种方法，希望能帮助到大家。

工具/原料Excel操作步骤:1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同,比如说不同人名的工作表数据或者不同部门填写的数据.2、在原始数据同目录下新建一个工作簿,建立两个工作表，名称分别为“首页"和“合并汇总表”。

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

4、根据下图提示，插入一个模块.5、将下述代码粘贴到模块空白处：复制代码代码如下：Sub CombineSheetsCells（）Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows，SourceDataColumns As VarNext iApplication.ScreenUpdating = TrueApplication。

EnableEvents = TrueEnd IfWorkbooks(MyName)。

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

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

8、下一步，用鼠标选择要合并的数据范围.注意:每个工作表数据可能不一样，比如说有的是10行数据,有的是30行数据。

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

如何将⼀个⼯作簿⾥的多张⼯作表合并到同⼀张⼯作表如何将同⼀个⼯作簿⾥的多张⼯作表合并到⼀张⼯作表⾥呢？如下图所⽰，为同⼀个⼯作簿⾥的多张⼯作表，每个⽉份的销售数据在其对应的⼯作表⾥，现在需求是，将1⽉~5⽉这⼏张⼯作表的销售数据，统⼀合并到“汇总表”⾥。

第⼀种⽅法：如果要合并的数据量不⼤且要合并的⼯作表不多，当然，可以直接点开每张⼯作表，然后复制，粘贴到“汇总表”⾥。

这种⽅法太低效了，不在本次的讨论范围。

第⼆种⽅法：使⽤PQ（即PowerQuery）⾥的追加查询适⽤情况：要合并的⼯作表数量不多如果要合并的⼯作表数量不多，可以将每个⼯作表分别加载到PQ⾥。

⽐如，将⼯作表“1⽉”加载到PQ。

点击数据源⾥任意⼀单元格——【数据】——【来⾃表格/区域】在弹出的“创建表”对话框中，会显⽰表的来源及是否要包含表标题。

点击【确定】即可。

这时候，就将⼯作表“1⽉”加载到PQ了。

如下图所⽰，⼯作表“1⽉”的数据已加载了进来，且，在左侧查询列表⾥，可以看到，PQ编辑器将其⾃动命名为“表1”然后再点击左上⾓的【关闭并上载】下拉按钮，选择“关闭并上载⾄”，在弹出来的“导⼊数据”对话框中，勾选数据在⼯作簿中的显⽰⽅式为“仅创建连接”。

因为我们并不需要将加载到PQ的⼯作表在前端显⽰，我们后续还要进⾏合并汇总的。

点击【确定】。

就会看到，原来的⼯作表“1⽉”，被套⽤了默认的蓝⽩相间的表样式，也就是说，⼯作表“1⽉”已经由区域，即普通⼯作表，转换成了智能表（⼜叫超级表），其名称为“表1”。

如法炮制地，把要合并的其他张⼯作表，也执⾏完全⼀样的操作，分别⼀⼀加载到PQ⾥。

如图，我们已将5张要合并的⼯作表全部加载到PQ中了，且，PQ按加载的顺序，⾃动其它们命名为表1、表2、表3、表4、表5，如左侧查询列表所⽰。

我们点击查询列表⾥的任意⼀个查询——【追加查询】。

在【追加查询】下拉列表中，有两个选项，分别是“追加查询”和“将查询追加为新查询”，它俩的区别在于，前者会在原本查询的基础上，追加其他表，不会⽣成新表；⽽后者会⽣成⼀个新的查询，默认名称为“追加1”。

excel如何快速把多个工作表合并到一个excel表有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家.工具/原料Excel操作步骤：1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。

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

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

4、根据下图提示，插入一个模块.5、将下述代码粘贴到模块空白处:复制代码代码如下:Sub CombineSheetsCells(）Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle，ColumnTitle, SourceDataRows, SourceDataColumns As VarNext iApplication。

ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks（MyName）。

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

7、点击“首页”工作表中插入的按钮，根据提示,浏览到原始数据工作簿.8、下一步，用鼠标选择要合并的数据范围.注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。

在这里我们可以用鼠标选择任意工作表的一个较大范围,比如说A1：D100,保证比最多行数的工作表数据还多就可以，一会再删除空行.9、点击确定按钮,待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。

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

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

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

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

5、将下述代码粘贴到模块空白处：复制代码代码如下:Sub CombineSheetsCells()Dim wsNewWorksheet As Worksheet Dim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Var iantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, Address Column$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count)) = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄(*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = Set 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 = Workbooks().ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNa meActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).S electSelection.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 Sub6、在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。