继上篇大猫为大家介绍了合并多个工作簿的VBA代码之后，这篇我们继续为大家介绍一个实用的技能。

将一个excel文档中的多个工作表进行合并为一个工作表

打开要合并的工作簿

按alt+F11进入VBA工程界面

新建一个模块

复制下面的代码，然后执行即可

作用结果是：

它会新建一个叫做“汇总”的工作表，然后把当前工作簿里的所有Sheet里有数据的内容都复制到“汇总”表里。提示：如果数据表里的内容没有表头的话需要把StartRow = 2改成StartRow = 1

Function LastRow(sh As Worksheet)

On Error Resume Next

LastRow = sh.Cells.Find(what:="*", _

After:=sh.Range("A1"), _

Lookat:=xlPart, _

LookIn:=xlFormulas, _

SearchOrder:=xlByRows, _

SearchDirection:=xlPrevious, _

MatchCase:=False).Row

On Error GoTo 0

End Function

Sub MergeSheets()

Dim sh As Worksheet

Dim DestSh As Worksheet

Dim Last As Long

Dim shLast As Long

Dim CopyRng As Range

Dim StartRow As Long

Application.ScreenUpdating = False

Application.EnableEvents = False

'新建一个“汇总”工作表

Application.DisplayAlerts = False

ActiveWorkbook.Worksheets("汇总").Delete

Application.DisplayAlerts = True

Set DestSh = ActiveWorkbook.Worksheets.Add

DestSh.Name = "汇总"

'开始复制的行号，忽略表头，无表头请设置成1

StartRow = 2

For Each sh In ActiveWorkbook.Worksheets

If sh.Name <> DestSh.Name Then

Last = LastRow(DestSh)

shLast = LastRow(sh)

If shLast > 0 And shLast >= StartRow Then

Set CopyRng = sh.Range(sh.Rows(StartRow), sh.Rows(shLast))

If Last + CopyRng.Rows.Count > DestSh.Rows.Count Then

MsgBox "内容太多放不下啦！"

GoTo ExitSub

End If

CopyRng.Copy

With DestSh.Cells(Last + 1, "A")

.PasteSpecial xlPasteValues

.PasteSpecial xlPasteFormats

Application.CutCopyMode = False

End With

Next

ExitSub:

Application.GoTo DestSh.Cells(1)

DestSh.Columns.AutoFit

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

把几个excel表格的内容，合并到同一张表格里面，如何操作？看小编给你演示。

第一步：把需要合并的表格放在同一个文件夹里面，然后再新建一个excel，如图：

第二步：打开“新建Excel2007”，鼠标右键单击Sheet1，选择“查看代码”并打开进去。

第三步：将下列代码粘贴进代码栏：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <>""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

第四步：点击菜单栏的“运行”、“运行子子过程/用户窗体”，等待几秒后提示合并完成，点击确定。如图：

完成，这样就把3个表格的内容合并到同一张表格里面。

好了，如果觉得小编文章不错，欢迎关注、点赞、收藏。

前言：最近总有同学提问

怎么能合并多个工作簿？怎么把表分发给其他人做调查，收回后能批量合并到一个表中。

合并多个表的确是一个难题，好象除了VBA也没有什么好办法，即使是新兴的power query也很难完成固定位置合并的问题。其实在06年就发现了个很神奇的工作簿合并的功能，所以今天再把这篇旧文翻出来，希望能帮到大家。

这个功能是昨天无意中发现的，为什么称它为超重量级Excel功能，先给你演示个操作。

【例】在一个文件夹中有N个公司的Excel格式报表，需要把这些报表的数据合并到“报表.xlsx”中。

只是点了一个按钮，然后选取了要汇总的文件，刷刷刷，各公司的数据已全部合并过来了，是不是很神奇！（合并多个文件的多个工作表也适用）

其实我e在合并过程中，使用了一个在Excel中隐藏很深的功能：比较和合并工作簿

我们先把它揪出来：

文件 - 选项 - 快速访问工具栏 - 不在功能区域中的命令 - 找到“比较和合并工作簿”

然后在快速访问工具栏中就可以看到它了，只是它是灰色的。

它到底怎么才可以用？ 和兰色一起开始操作吧

1、先设置一个报表模板（可以有多个工作表），把格式设置好，然后设置成共享工作簿。

2、把设置好的模板发放给各公司填写。

3、收到各公司上缴的报表，放在一个文件夹里。

4、合并时，点击“比较与合并工作簿"按钮，选取要合并的文件，然后.....如开始动画演示。多个Excel文件的合并瞬间完成！

Excel解释说明：在实际工作中，这个功能可以省去非常大的工作量，毕竟把N多个报表汇总到一起是一件多么枯燥又费力的事情。但这个功能只是合并而不能汇总。

如果觉得这个技巧好用，记得分享给自已的朋友们！

在我们的工作和生活中，都会用到office等办公软件，其中word、ppt比较简单的，都很容易上手。但是excel算是比较难的一个，其中excel表格的函数、数据分析、精确统计、作图更是需要长期实践才能掌握的。那么有没有更快速的学习和掌握excel的方法和技巧呢？今天给大家分享excel最全套的模板，更着模板学习，必定会起到事半功倍的效果，其中的一些模板也是生活和工作中很常用的模板，都可以直接拿来使用。

这些模板都是是我这几年精心收藏的，今天分享给大家

【最全的Excel函数技巧】

【最全的Excel常用模板】

【最全的Excel表格数据图形分析】

excel技巧

只有私信才能给大家，需要的请转发加评论后并私信我，回复关键词 "下载” 就会出来下载链接，直接下载即可，希望对大家有帮助，也希望您能多多点赞，后续还会分享更多高价值的资料，请留意关注

Excel作为一个具有强大的数据处理的办公软件，对于白领一族来说，使用频率应该较高。在处理数据过程中，您是否碰到过清单之类汇总的情况，就是将同一个工作簿中的所有工作表的内容合并到一个工作表中。对于不会取巧的朋友，可能就是一个表一个表的复制，然后粘贴拼凑在一块，若碰到表格数量不多的情况，这种方法还好，若是碰到工作表数量庞大，例如50个工作表，100个工作表......这种方法就很鸡肋。今天本篇以Excel2013为例，教大家如何一键实现所有工作表合并到新工作表中，同样适用于Excel其他版本，碰到细微差异，可以适当调整代码。

教程将内容分成三部分：第一部分是新建一个汇总的工作表，并重新自定义命名；第二部分是逐一将各个工作表复制粘贴到汇总工作表中；第三部分为提示，即当合并工作完成后弹出提示。具体操作如下：

打开工作簿，在工作表标签中会显示包含的工作表名称，教程以下图中三个工作表为例，分别是Sheet1，Sheet2，Sheet3.按下组合键Alt+F11即可从Excel工作界面切换到VBA界面，在VBA窗口单击菜单栏中的插入，找到模块命令，单击该命令即可创建一个新的模块窗口，在模块窗口复制粘贴以下代码：

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub

HELLO！大家好，我是帮帮。今天跟大家分享Excel自带的功能——合并计算。很多小伙伴经常说，函数太复杂，没基础，记不住。其实Excel很多自带的功能就能满足我们基本需求，我们来看看。

这是1-3的月报表（三张表内容一模一样），我们现在要汇总一季度的数据。（大家注意，大部分报表都是统一制式，不存在单元格顺序变化！）

我们看一季度的数据如何生成，注意产品顺序跟1，2，3月的样没有变化。框选销量和金额的数据区域，点击数据选项卡中的合并计算。

函数选择求和，引用位置点击折叠按钮。

框选1月的销量和金额的数据区域。

如法炮制，将1-3月的引用位置，逐一添加后，点击确定。

我们一季度的数据就自动汇总生成了。（大家注意，这只是合并计算的结果。这不是函数逻辑关系，如果你合并计算后，改动1-3月的数据，该结果不会发生变化）。

PS：用函数就能实现实时更新，=SUM（1月!C3，2月!C3，3月!C3)

如果我们的表格中有其他项目，导致1-3月的产品类别不一致。我用红色字体改动一下，将鼠标换成手机。我给大家演示，如何完成合并计算。

一季度的表格内部数据（包括表头）全部清除。点击B2单元格，点击合并计算。

在引用位置区域的时候，大家注意我选择1-3月的区域。（区域包含产品列，表头以及数据区域，没有选择序号列！）

依次添加，勾选首行，勾选最左列（如果你刚才引用位置选择了序号列，这里最左列就会以序号作为统计条件，无法实现我们的目的）。

点击确定后，合并计算的结果出来了。我们更改的手机也被列入合并计算之中。现在只需要手动添加序号，产品的表头。就能轻松实现汇总。

怎么样？这个功能很棒吧。如果大家喜欢帮帮，请点击文章末尾的了解更多或推广广告，在里面找到并关注我，我给表亲们准备了更多更实用的办公软件技巧，一定要来唷^^。拜拜，下课！

汇总多个excel表格，一直困绕着很多职场同事，今天介绍的方法，不需要用任何公式就可以轻松完成，只用鼠标点点。

【例】如下图所示，在一个工作簿中有四个城市的销售表，需要根据这4个表格，用数据透视表进行汇总。

具体步骤：

1、按alt+d组合键，松开后再快速按p键。会打开数据透视表向导，在第一步中选取“多重合并计算数据区域”

2、选取“自定义页字段”

3、添加区域和设置字段数目及名称

4、添加所有要合并的表，并分别设置字段数目和名称。

5、点击完成后，会自动生成数据透视表。把页字段名字由“页1”改为“城市”、“行”改为“产品”。

更改前：

更改后

设置OK!

接下来就可以通过调整字段位置，来完成不同模式的汇总。

以城市+产品汇总

以产品+城市汇总

数据透视表只能完成表格结构相对简单的合并、而对于列数较多、格式不完全一致的表格进行合并（如由入库表和出库表生成 进销存报表），就需要使用SQL语句合并。|来源： Excel精英培训

百家号-【袁帅数据分析运营】运营者：袁帅，会展业信息化、数字化领域专家。新社汇平台联合创始人，永洪数据科学研究院MVP。认证数据分析师、网络营销师、SEM搜索引擎营销师、SEO工程师、中国电子商务职业经理人。畅销书《互联网销售宝典》联合出品人。

之前写过一篇文章，介绍如何合并一个 Excel 文件中的多个工作表。

以后如果碰到要合并12个月的

每一年的

全部学院的

还有来自五湖四海的

各种五花八门成千上万行的数据，都可以在几秒内轻松搞定。

不用函数公式，不用编写VBA代码，还能自动更新。

体验了这一个功能，我就对 Excel 2016 的查询功能爱不释手了！还能不能更牛C一点呢？

很多时候，我们要汇总合并的表格不在一个文件里头。

比如，做好报名人员信息登记表模板，群发给了100个训练班的班主任。他们登记好表格表格发回给我，肯定是分开一个个文件的呀。有没有办法把他们自动合并到一个汇总表里头呢？

再比如，我每周都要汇总一次公司所有产品的销售明细，拿到手的却只有单周数据。难道我还要每周复制粘贴，每周重做一遍统计工作吗？

这不科学

……

幸好幸好，查询这个功能还可以合并多个文件中的多个表格。操作起来和汇总单个文件中的多个表差不多，只是多了几步而已。

以每个业务员发出的赠品明细表为例。每人提交的表格文件，统一放入一个文件夹中。

接下来我们就看如何，用5个步骤，将这个文件夹里的所有表格数据全部提取出来合并到一个新的汇总表中。

第一步：导入文件夹

在数据选项卡下，【新建查询】-选择【从文件】-【文件夹选项】。

导入文件夹后，跟随提示进入查询编辑器。

上一篇文章，在导入单个Excel文件中的多个工作表后，直接就开始对数据进行整理操作了。

但是这一次导入的是文件夹中的多个Excel文件，目前为止获取到的数据，都是Excel工作簿的名称、格式、创建日期等文件基本信息，还没有文件夹、工作簿的“外壳”包裹着。

所以需要额外做的是穿透文件夹、工作簿，提取到每个工作簿中的表格和数据。

第二步：提取工作簿

要穿透工作簿提取出工作表，需要在查询编辑器中创建一个辅助列。所以，先选择【添加列】-【添加自定义列】。

然后添加自定义对话窗中，写入一条公式。

（别担心，很短，只要一模一样复制过去就可以了）

=Excel.Workbook([Content])

注意，一定要一模一样，包括字母大小写。

一定要用英文符号！一定要用英文符号！一定要用英文符号！

重要的事情说三遍

点击确定以后，就将文件夹中的全部 Excel 工作簿放入编辑器中。

第三步：提取工作表

点击自定义列旁边的扩展按钮，展开按钮工作表列表。

再继续提取工作表中的详细数据。

第四步：提取数据

点击Custom.Data列旁的扩展按钮，就能展开明细数据。

第五步：清洗数据

后面的操作就和上一篇操作步骤一样了。再简单复习一遍。选中需要保留的数据列，然后删除其他列。

将第一行设为标题行。

去除标题同名数据行、Null空行，筛选出最终需要的汇总数据。

第六步：完成合并

将加工完成的数据加载至工作表中。以后再添加新工作表，直接丢进文件夹，然后打开合并中刷新查询就行。

Tips:如果从管理系统中导出的文件是 CSV、TXT 等文本格式的文件就更加简单。从文件夹导入数据到查询编辑器之后，不需要写公式提取工作表，直接将 Content 列扩展即可。

扩展得到数据列表后，继续扩展得到详细数据，再按照上述步骤清洗数据，就能达到同样的查询效果。

看，就是简单的点击操作，最复杂的也就是一行固定不变的简短代码，=Excel.Workbook([Content])

意思是来源于 Excel 软件的工作簿内容。

有了这一招，只要搭建好统计报表的框架，数据引用自合并以后的汇总表。以后有新的数据表，就丢进文件夹里 100 多份表格汇总、统计分析、别人几天的工作量，每月来一次。

就这样轻轻松松点击一下刷新，搞定！可以喝咖啡去咯~

这几天总有小伙伴在后台问有没有Excel模板。对此小e表示，Word、PPT都有了，怎么会少了Excel！E职家族常年致力治疗各种职场疑难杂症。攻克办公软件这件事就交给我们了！你们要的Excel模板合集，这期统统都给你 ~

也许有人认为Excel这样的数据记录工具没什么经验可取。升级个人技能只能靠日复一日的摸索，和前辈模板的无私奉献。事实上并非如此。数据内容也许无法复制，可常用数据登记项目、表格样式设计还是大有规律可循。尤其是财务部门工作者，提起做表格大概是说不尽道不完的苦闷。试想：月初、年末数据汇总时正在头痛的你忽然拥有一份格式完美、条目清晰的表格模板，区区几个数字录入又怎么会难倒你！

再也不用为月初年末的工作报表愁白了头！

再也不用随时掏出小本本记录函数公式！

再也不用一字一词输入分类！

再也不用绞尽脑汁设置突显！

只是想一想是不是就觉得自己终于可以摆脱大表姐、大表哥的荣誉称号了~

话不多说，快来看看小e倾心推荐：各行业Excel财务账表模板大合集！

01、总账、明细账表

02、商贸企业财务表

03、工资、个税、考勤表

04、餐饮酒店营业表

不够用？看这里 ↓↓↓

关注百家号：E职一课 发送“财务表格”至评论即可免费领取

欢迎关注我的百家号：E职一课

前言：最近总有同学提问

怎么能合并多个工作簿？多个Excel表格汇总到一个表中？怎么把表分发给其他人做调查，收回后能批量合并到一个表中？

合并多个表的确是一个难题，好象除了VBA也没有什么好办法，即使是新兴的power query也很难完成固定位置合并的问题。其实兰色在06年就发现了个很神奇的工作簿合并的功能，所以今天再把这篇旧文翻出来，希望能帮到大家。

这个功能是小编昨天无意中发现的，为什么称它为超重量级Excel功能，小编先给你演示个操作。

【例】在一个文件夹中有N个公司的Excel格式报表，需要把这些报表的数据合并到“报表.xlsx”中。

只是点了一个按钮，然后选取了要合并的文件，刷刷刷，各公司的数据已全部合并过来了，是不是很神奇！（合并多个文件的多个工作表也适用）

小编在合并过程中，使用了一个在Excel中隐藏很深的功能：比较和合并工作簿

我们先把它揪出来：

文件- 选项 - 快速访问工具栏 - 不在功能区域中的命令 - 找到“比较和合并工作簿”

然后在快速访问工具栏中就可以看到它了，只是它是灰色的。

它到底怎么才可以用？ 和小编一起开始操作吧！

1、先设置一个报表模板（可以有多个工作表），把格式设置好，然后设置成共享工作簿。

2、把设置好的模板发放给各公司填写。

3、收到各公司上缴的报表，放在一个文件夹里。

4、合并时，点击“比较与合并工作簿"按钮，选取要合并的文件，然后.....如开始动画演示。多个Excel文件的合并瞬间完成！

在实际工作中，这个功能可以省去非常大的工作量，毕竟把N多个报表汇总到一起是一件多么枯燥又费力的事情。

但这个功能只是合并而不能汇总。

别急，小编再教大家一个神技能，多个表格如何汇总！

多个Excel表格汇总到一个表中，有一个神秘技巧帮你实现！

如下图所示工资表中，含有多个月份的数据。要求在汇总表中把所有月份的数据汇总到一起。

操作步骤：

1、数据选项卡 - 现有连接 - 浏览更多。

2、找到当前操作的excel文件。

3、选取任一个表格名称

4、【导入数据】窗口中，显示方式选“数据透视表”，放置位置选工资表A1单元格（也可以选新工作表）

5、选取刚创建的数据透视表，然后点击 数据透视表工具 - 选项 - 更改数据源 - 连接属性。

6、把下面的代码粘贴到命令文本框里。

------------------------------------

select '3月' as 月份, * from [3月$] union all select '4月' as 月份, * from [4月$]union all select '5月' as 月份, * from [5月$]

-------------------------------------

代码说明：

1) 具体的SQL语句一言两语也说不清楚，同学们只需要按下面的模式套用即可。有多少表，连接多少个。

Select * from [表1$] union all Select * from [表2$] union all Select * from [表3$]....union all Select * from [表N$]

2) '3月' as 月份: 是为三个表创建一个共同的字段（月份），其中引号内3月为自定义字符，用来区分工作表，只是不一定要和工作表名称一致。月份是数据透视表要用的字段名，也是自定义的。中间用 as 连接，放在select 之后 *号之前。如果不需要为三个表创建共同字段名，此部分可以省略。

7、连接完成！下面就是对数据透视表的基本操作，添加行、列标标签和数据标签。

8、调整格式和修改字段标题。最终效果如下图所示。