在日常工作中，经常需要将相似结构或内容多个表格进行合并汇总。当数量庞大时人工进行计算比较繁琐，工作量大且易犯错，使用Excel中的“合并计算”功能可以轻松完成这项任务。

合并计算的数据源可以是同一工作表中的不同表格，也可以是同一工作簿中的不同工作表，还可以是不同工作簿中的表格。现针对第一种情形进行演示说明：

如图1所示的两个结构相同的数据表“表一”和“表二”，利用合并计算可以轻松将这两个表格进行合并，具体步骤如下。

图1 原始表

步骤1选中B10单元格，作为合并计算后结果的存放起始位置，再单击【数据】选项卡【数据工具】命令组的【合并计算】命令按钮，打开【合并计算】对话框，如图2所示。

图2 打开【合并计算】对话框

步骤2激活【引用位置】编辑框，选中“表一”的B2:D6单元格区域，然后在【合并计算】对话框中单击【添加】按钮，所引用的单元格区域地址会出现在【所有引用位置】列表框中。使用同样的方法将“表二”的F2:H6单元格区域添加到【所有引用位置】列表中。

步骤3依次勾选【首行】复选框和【最左列】复选框，然后单击【确定】按钮，即可生成合并计算结果表，如图3所示。

图3 生成合并计算结果表

注意：

1.在使用按类别合并的功能时，数据源列表必须包含行或列标题，并且在“合并计算”对话框的【标签位置】组合框中勾选相应的复选框。

2.合并的结果表中包含行列标题，但在同时选中【首行】和【最左列】复选项时，所生成的合并结果表会缺失第一列的列标题。

3.合并后，结果表的数据项排列顺序是按第一个数据源表的数据项顺序排列的。

4.合并计算过程中不能复制数据源表的格式。如果要设置结果表的格式，可以使用【格式刷】将数据源表的格式复制到结果表中。

应用场景1

老板：小王啊，调查一下大家对我们人事部的服务有什么意见或建议没。小王：好的。

小王做好一份Excel调查表模板，分发下去。然后收到了100份结果文件。

应用场景2

老板：小王啊，还有5分钟我就要开会了，我们12家门店的销售情况表汇总到一起了吧。

小王应该怎么合并这些Excel文件？一个一个复制到手软吗？

合并多个Excel文件

第一步：将所有的Excel调查表文件存放在同一个文件夹下。打开一个空白Excel文件，点击“新建查询”，选择“从文件夹”中导入，然后粘贴所有Excel调查表所在路径。

第二步：在“组合”下拉菜单中选择“合并和编辑”。

第三步：选中要合并的工作表。

第四步：点击Power Query编辑器中的“关闭并上载”。

稍等片刻，所有的文件就都合并到同一个工作表啦。

可以看到表头的两行重复显示了很多遍。使用定位或筛选功能，删除多余的行即可。

当然，也可以在上述步骤4“关闭并上载”之前删除一些行。

更新数据

小王好开心，100份Excel调查表就这么轻松地合并到一起了。小丽：小王，我的调查表修改了一下，发一份新的给你吧。小王……

小王，莫急，直接在原来的文件夹下替换小丽的调查表，然后在合并后的汇总表上，右键一下，点击“刷新”即可。

合并多个Excel工作表

和合并excel文件类似，用Power Query同样可以快速完成。

第一步：打开一个空白Excel文件，点击“新建查询”，选择“从工作簿”中导入，然后打开需要汇总的Excel文件。

第二步：选中所有要合并的工作表名称，然后点击“编辑”。

第三步：按照图示的步骤，点击“追加查询”，然后将所有的工作表添加进来。

最后点击“关闭并上载”，所有工作表内容就合并到一个工作表下啦。同样的，如果原始的表格数据更新，在汇总表上刷新一下即可同步更新数据。

注意：以上步骤都基于Power Query插件，Excel2016才支持。使用低版本的Excel或WPS的朋友请查考明日的文章。

相关阅读：《多个word文档怎么合并》。

谢谢阅读，每天学一点，省下时间充实自己。欢迎点赞、评论、关注和点击头像。

把几个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个表格的内容合并到同一张表格里面。

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

在Excel中，多页签的数据汇总，是一个出镜频率极高的问题，有人用VBA，有人用函数，有人用最传统的方式……总之，就是八仙过海，各显神通……

然而，模式虽多，但当Excel小白实操起来，大脑又是一片空白……

So，今天介绍2种方法，只需10秒，便可对Excel多页签进行快速有效的汇总。

例如：当总部要汇总各区域的销售数据时，你拿到的表可能是这样的：

其中，每个页签的样式格式都一样，而现在要做的就是，将各区域的销售业绩全部汇总的合计页签中

如果是职场小白，相信只能是这样弱弱的累加操作：

如果有30+以上的区域公司，岂不手残模式！

你说，你不累，谁累呢？

而今天，要介绍两种方式：

1

函数法

使用的是最为常见的SUM函数

操作方法：在合计页面中，输入=SUM(，然后开始点击第一个要汇总的页签的对应单元格，然后按住SHIFT不放，直接点选最后一个页签的对应单元格，回车即可

这里便是采用了SUM函数的优势，将多个连续页签的对应单元格进行有效汇总，怎么样，是不是比传统的方式快很多？

2

功能法

使用的是合并计算功能

操作方法：点选到对应的单元格，然后在【数据】-【合并】页签中，选择【合并计算】，然后逐次添加对应页签的单元格区域，看似复杂，其实操作过程都比较自动化，也比较高效，基本不超10秒，便能有效的进行数据汇总

当然，针对这种类型的数据汇总，还有其他方式，但无论那种，只要能快速解决你的问题，即可。

你，学会了吗？

在 Excel 中，可以设置打印区域，一次既可以设置一个打印区域，也可以同时设置多个打印区域。若打印区域超出一页，也可以把超出部分缩小到一页中全部打印出来。另外，当进行了打印或页面布局相关设置，会在表格右边显示一条虚线作为分页线，这条虚线如果不想显示，也可以把它去掉。打印时，若一页内容较多，可以把页边距调小，并且一次可以把所有工作表的页边距调小；当然，内容少也可以调大。以下是Excel打印区域怎么设置、超出一页如何全部打印、表格的分页虚线怎么去掉和批量设置页边距的具体操作方法，操作中所用版本为 Excel 2016。

一、Excel打印区域怎么设置

1、框选要打印的区域，选择“页面布局”选项卡，单击“打印区域”，在弹出的菜单中选择“设置打印区域”，则框选区域被加上一条灰黑色的线框；依次选择“文件”→ 打印，打印预览中只有框选的部分，操作过程步骤，如图1所示：

提示：用快捷键 Alt + P + R + S 也可以设置打印区域，按键方法为：选中要打印的区域，按住 Alt，按一次 P，按一次 R，按一次 S，按先后顺序按。

2、取消打印区域。再次单击“打印区域”，在弹出的菜单中选择“取消打印区域”，则打印区域被取消，框住打印区域的灰色线框随即消失，操作过程步骤，如图2所示：

提示：用快捷键 Alt + P + R + C 取消打印区域。按键方法与用快捷键设置打印区域一样，按住 Alt，分别按 P、R、C 一次，注意按先后顺序按。

3、添加到打印区。框选一个打印区域后，还可以继续添加打印区域，方法如下：

A、框选要添加的打印区，单击“打印区域”，在弹出的菜单中选择“添加到打印区域”（或者按快捷键 Alt + P + R + A，按键方法为：按住 Alt，分别按 P、R、A 一次），如图3所示：

B、则框选区域也被一个灰线框框住，表示已经添加到打印区，如图4所示：

C、在打印预览中，第一次设置为打印区域的部分显示在第一页，添加到打印区域的部分显示到第二页之后，例如刚才添加到打印区域的部分显示在第2页，如图5所示：

二、Excel打印区域超出一页怎么缩到一页打印

1、假如有一个 Excel 工作表超出一页，如果要打印，超出的部分（即坚虚线右边的部分）将被移到下一页打印，这样表格就会断裂而不完整，如图6所示：

图6下图是打印预览，从图中可以看出，打印预览的第一页没有坚虚线右边的部分，即“管理”列，它被移到了下一页。

2、如果要求把超出一页的部分放到一页打印，就要通过设置打印区实现。设置方法为：

A、选择“布面布局”选项卡，单击“打印标题”，打开“页面设置”窗口，选择“页面”选项卡，选择“缩放”下面的“调整为”，值设置为 1，即 1 页宽 1 页高，单击“确定”，则超出页面的部分会被缩小到一页内打印（见下面的打印预览），操作过程步骤，如图7所示：

B、看打印预览。依次选择“文件”→ 打印，则坚虚线右边的“管理”列也在打印预览中，说明设置成功，如图8所示：

三、Excel表格的分页虚线怎么去掉

1、右键功能区任意处，在弹出的菜单中选择“自定义功能区”，打开“Excel选项”窗口，选择左边的“高级”，往下拖右边的滑块直到找到“显示分页符”，单击它把其前面的勾去掉，单击“确定”，则表格分页坚虚线和横虚线都去掉，操作过程步骤，如图9所示：

2、如果要重新显示表格虚线，重复上述步骤，重新勾选“显示分页符”，单击“确定”后，它就会重新显示。

四、Excel打印区域页边距设置

（一）Excel怎么批量设置多个工作表的打印区域页边距

1、右键 Excel 窗口左下角“学生表”，在弹出的菜单中选择“选定全部工作表”；选择“页面布局”选项卡，单击“页边距”，在弹出的菜单中选择“自定义页边距”，打开“页面设置”窗口，选择“页边距”选项卡，把上下页边距设置为 1.6，左右页边距设置为 1.2，单击“确定”，则当打开的 Excel 文档所有工作表的页边距都变为设置值，操作过程步骤，如图10所示：

2、演示的最后切换到“服装表短”工作表，查看它的页边距，上下为 1.6 厘米，左右为 1.2 厘米，正是刚才设置的值。

（二）在“打印预览”调整页边距

1、依次选择“文件”→ 打印，打开“打印预览”窗口，单击窗口右下角的“显示边距”图标，则打印预览页出现调整页边距的灰色线框，把鼠标移到左边距线上，鼠标随即变为带箭头的十字架，按住左键并往左拖，则页边距被缩小，同样方法调整其它页边距，操作过程步骤，如图11所示：

2、调整好后，再次单击“显示边距”图标，则打印预览中就不会再显示页边距调整边框。

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个Excel表格数据，经常是多个数据合并到一个excel表格里来做数据分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一个文件夹里。如下图：

2、打开汇总excel，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

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 Sub

运行几十秒钟就OK啦！如果表格数据过多的话，时间会久一点。

继上篇大猫为大家介绍了合并多个工作簿的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

把 多个工作表 合并到到一张表， 最快捷的方法是用宏处理：

例如 将多个表合并到总计表：

总计  表只留一个标题

右键点 汇总 工作表 标签 ，查看代码，  把如下代码复制进去， F5运行: 

Sub 工作表合并()For Each st In WorksheetsIf st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)NextEnd Sub

就会把多个表合并 到   总表，

如下例： 在Sheet  总计  中 运行  如上代码，就会将所有 月份 分表 汇总 进来，方便后续处理，而 不需要一次次粘贴处理

（本文内容由百度知道网友James0yuxuan贡献）

一听到Excel数据多表合并计算，感觉很难，其实简单的Excel数据多表合并计算，实际上很简单的。

Excel数据多表合一的问题在工作中经常遇到，将两张表合并在在一起计算，我们想合成一张报表，怎么处理呢？

今天跟各位朋友分享下“Excel数据多表合并计算”操作步骤如下：

1、将鼠标定位在O1单元格中，然手点击【数据】选项卡下的“合并计算功能”；

2、在弹出的“合并计算”对话框中，先选择计算方式“求和”，再点击浏览旁边的“红色小箭头”按钮，

在弹出的“合并计算—引用位置”对话框中，选择左边表格中的数据；

引用位置选择

3、将“引用位置”添加到“所有引用位置"，再次选“引用位置”红色小箭头按钮

4、在弹出的“合并计算—引用位置”处选择右表的数据，将"引用位置"添加到“所有引用位置”处，勾选标签位置的“首行”和“最左列”，点击确定；

选择数据引用位置动态操作图

5、初步效果出来，左表加右表得出第3个数据表。

6、将合并计算得出的数据表格进行美化，得出最终数据表格。

今天分享的Excel多表合并计算你学会了吗？如果是跨表合并的话，选择引用位置到另一个表格提取即可操作。希望今天的分享对各位朋友在工作中有所帮助！

更多关于Office——Excel操作技巧可加入我们 群 一起交流学习！159534659

合并方法如下：

把需要合并的excel表格文档放到同一个文件夹里

新建一个“数据合并.xlsx“文档

打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口

双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面

完成Excel表格的合并。

（本文内容由百度知道网友lvrqing贡献）