60秒get一个HR实用小技巧

在用EXCEL做统计表时，经常会遇到一个问题：相同项目的工作表有N个，需要汇总时，该怎么办？难道要一个个地Ctrl+V吗？

当然不是了！如果要使用那么累的方法，EXCEL就一点都不智能了！贴心的小薪今天就来教大家一个简单的方法，让宝宝们能快速hold住多个工作表的合并！

我们先看看需要合并的工作表长啥样

▼

工作表1

工作表2

类似的工作可能会有很多，除了上述举例的各地区的销售量表，还可以是员工的其他信息表，小薪就不一一举例了，宝宝们各自灵活套用吧！

▼

下面我们开始正式讲解，如何快速实现多表合并。

新建一个的工作表，命名为“汇总”（或其他任何你需要的名字）

在“汇总”表的A1单元格，选择“数据”——“合并计算”

“函数”在此时选择“求和”（可根据自己需要，自行选择其他函数）

“引用”处，我们选择需要汇总的各个工作表里的对应数据

5.选择下图中的“+”，添加我们刚刚选择好的引用位置

6.重复第4步和第5步，添加完所有我们需要汇总的工作表数据

7.标签位置选择默认的“首行”、“最左列”，然后选择“确定”

下面我们看一下完整动图演示

▼

以上就是小薪交给大家的“多表合并”的小技巧啦！希望大家活学活用，让“合并计算”完美代替Ctrl + V ！

-END-

在工作中，我们经常需要把多个表中的数据汇总到一个表中。

这必须考虑以下三种情况：

情况一：多个表在同一工作簿中，表的结构相似，表头内容顺序一致。

解决方案：使用函数公式完成

具体方法，如下动图演示：

重点：在“总销售额”表单中的"B2"单元格中，输入公式【=SUM(华北区:华南区!B2)】

情况二：多个表在同一工作簿中，表的结构相似，表头内容顺序不一致。

解决方案：使用【数据】-【合并计算】完成

情况三：多个表不在同一工作簿中，表的结构和表头内容可随意。

解决方案：使用VBA代码完成

具体方法，如下代码：

Sub CombineWbs()

Dim bt As Range, r As Long, c As Long

r = 1

c = 7

Dim wt As Worksheet

Set wt = ThisWorkbook.Worksheets(1)

wt.Rows(r + 1 & ":1048576").ClearContents

Application.ScreenUpdating = False

Dim FileName As String, sht As Worksheet, wb As Workbook, WbN As String

Dim Erow As Long, fn As String, arr As Variant, Num As Long

FileName = Dir(ThisWorkbook.Path & "*.xlsx")

Num = 0

Do While FileName <>""

If FileName <> ThisWorkbook.Name Then

Erow = wt.Range("A1").CurrentRegion.Rows.Count + 1

fn = ThisWorkbook.Path & "" & FileName

Set wb = GetObject(fn)

Set sht = wb.Worksheets(1)

Num = Num + 1

arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(1048576, "B").End(xlUp).Offset(0, 7))

wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

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

wb.Close False

End If

FileName = Dir

Loop

Application.ScreenUpdating = True

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

End Sub

温馨提醒（针对情况三）：

把以上代码，复制到Thisworkbook代码窗口中（即：按【Alt+F11】组合键，打开VBE编辑环境），然后点击【运行】命令，就可以快速实现上述功能了；

需要合并的工作簿和存储汇总数据的活动工作簿，二者需要在同一文件夹下；

本案例，假定工作表总列数为7。需要更改列数时，只需更改代码中对应的参数设置。

点击【运行】命令后，会弹出如下对话框（仅举例说明）：

最后，点击【OK】，即可。

鸣谢：谢谢大家的阅读！有问题，欢迎提问！！

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

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

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

图1 原始表

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

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

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

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

图3 生成合并计算结果表

注意：

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

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

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

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

excel数据太多，如何批量、快速的判断并进行统计呢？

举个例子，假如公司需要进行优秀员工数量统计，我们现在有这样一些excel数据:

我们需要统计的excel数据

我们现在的要求是，计算excel里完成力、执行力、创新力任意一项大于98，就算优秀员工，有人说，这个不是很简单吗？我们来数一数，张三执完成力96、执行力65、创新力78，不满足，李四完成力73、执行力83、创新力83，不满足，以此类推，当然，数量少是没有问题的，不过要是员工人数几千或者上万呢，我的天呐，要累死人啦！

那么，excel里有快速的办法吗？有的！

excel，需要显示优秀员工的单元格输入=IF(OR(B2>=95,C2>=95,D2>=95),"优秀员工","")，向下填充，在需要统计人数的单元格输入=COUNTIF(E2:E9,"优秀员工")，哇，瞬间得到结果，何惧几千上万呢？

excel瞬间完成的计算

excel需要的单元格输入函数

这是什么意思呢？if函数就是假如的意思，or就是或者，意思就是假如引用单元格1大于等于98，或者引用单元格2大于等于98，或者引用单元格3大于等于98，假如有1个条件满足，就是优秀员工，否则的话就为空。

COUNTIF自然就是计算满足条件的单元格个数啦。

怎么样，很简单吧，你学会了吗？快去试试吧！非常感谢您观看文本，如果你有更好的方法适用这个情况，请您留言分享！分享好玩、有趣、实用的手机和电脑技巧，您的支持就是我的最大动力！

excel使用技巧大全如何汇总多个excel表格这是很多朋友都非常困扰的一个问题，今天我们来介绍一下不用公式如何来轻松的完成。

如下图所示，在一个工作簿中有4个城市的销量表，我们现在要将这4个表用数据表来汇总起来。

方法如下：1、按alt+d键，松开后按d键。这时就会打开数据透视表和数据透视图向导，第1步选取“多重合并计算数据区域”，请看下图。

2、点击“自定义页字段”

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

4、添加要合并的所有表格，并且依次的给所有表设置名称和字段数目。

5、点击完成后就会生成数据透视表，将页字段名字从“页1”改成“城市”，“行”改成“产品”。

没更改前：

更改后为：

设置ok!

下面我们就能够通过字段位置的调整来完成模式不同的汇总。

以城市+产品汇总

以产品+城市汇总

数据透视表只是可以完成一些比较简单的表格的合并，但一些行数列数比较多比较复杂，格式又不一致的表格就要用到SQL语句来合并了。在之后的课堂上我们会讲到这个的，谢谢。

Excel办公效率是众所周知的，几乎可以处理任何数据，也可以按照需求对数据做出修改。不知大家有没有遇到这种情况，把多张工具表数据整理到一个表中。这里，小编为大家详细介绍一下如何去做。

1.工作簿中有多张数据表，如下图中的1表和2表，现在要把1表和2表的内容整理到汇总表下。

2.在汇总表中，选中A1单元格，点击菜单下的“数据”，点击“合并计算”。

3.左上角选择计算方式，本例为“求和”。如下图所示点击选择数据。

4.选中1表数据，并点击“添加”按钮。

5.也依次把其他工作表数据也添加进来。

6.由于原始数据第一行是标题，并且要以A列数据分类汇总，所以要选择下面两个选项。

7.点击确定。完成汇总效果如下。

鸣谢：

若喜欢本篇文章，记得点赞、评论和转发哦！

如有问题，欢迎向小编提问。

我们有时候需要将在多个工作表的数据到同一个工作表当中，首先我们需要确认的是这些数据的格式是否具有一致性，如果所有的数据格式都是一样的，那么这个问题就非常好处理了。今天和大家分享的是一键汇总各分表数据到总表。

照例举个栗子，如下图，一个工作簿，包含多个工作表的格式都是相同，现在需要将各个分表的数据汇总到总表中，如果是你，你会怎么去做？

数据分别在不同的工作表中，每个工作表的数据格式都是一致的。

也许你会想到使用数据透视表或者合并计算等方式进行操作。但是你会发现这两种操作方式都有它的不足或者扩展性不强。比如说，当标题行或列是多行（多列）或者存在合并单元格时，也就无能无力了。

我和你说的是VBA代码来实现这个，有时候就是那么一瞬间的错过，你就不会再遇到啦！

我们首先看看，下面的动画教程：

PS:是将分表的数据汇总明细到当前活动的工作表，因此在使用时务必先在需要汇总的表中执行。

附上VBA源代码

以上就是今天要和大家分享的技巧，希望对大家有所帮助，祝各位一天好心情！

唯有不断学习，才能不被淘汰！

Excel中每一个方法都有特定的用途，不是他们没有用处，只是你不了解或者暂时用不着，建议你收藏起来，万一哪天用着呢？

关于多表汇总的问题，我在类似的问题中介绍了一种非常好的方法：Power Query（有兴趣的同学，请参考仅需3分钟，轻松帮你搞定Excel多表数据汇总）。下面我来介绍一种更为简单的汇总多表数据的技巧。如何快速汇总下图中的12个sheet中的数据到总表呢？

一、无链接简单汇总法（各个数据源发生变化，汇总表不发生变化）

1.选择sheet汇总中的任意空白单元格，依次单击“数据”--“合并计算”，如下图所示：

2.在弹出的对话框中函数设置为：“求和”。单击引用位置的折叠按钮选择在各个sheet中的数据区域并添加到所有引用位置列表中。勾选标签位置下的“首行”和“最左列”选项，单击确定。

3.我们将得到如下的汇总表，这时候我们可以删除B列和C列，或者将任意sheet中的B列和C列数据复制粘贴到汇总表中即可。

二、有链接的数据汇总（汇总结果随数据源的变化而变化）

此种方式与上面介绍的方法唯一不同的地方就在于多勾选了一个选项，操作技巧都一样，只是在上面设置合并计算对话框时勾选一下：“创建指向源数据的链接”即可。

得到的结果也会有所不同。

包含了公式，且前面变成分类汇总的样式。

1.工作簿中有多张工作表，A列和B列都有类似的数据，行数不同。

2.选中“汇总”表A1单元格，点击【数据】-【合并计算】。

3.左上角选择适当的运算方式，本例为“求和”。如下图所示点击选择按钮选择数据。

4.选中第一张工作表数据，并点击【添加】按钮。

5.顺序将其他工作表数据也添加进来。

6.由于原始数据第一行是标题，并且要以A列数据分类汇总，所以选中下面两个选项。

7.确定后就在“汇总”表生成了每个人的“数量”汇总求和数据。

8.如果勾选【创建指向源数据的链接】则最终返回链接数据并汇总。

9.完成汇总效果如下。

10.点击每个人旁边的加号就可以看到汇总数据是从哪张工作表的哪个单元格引用过来的。

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

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个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啦！如果表格数据过多的话，时间会久一点。