继上篇大猫为大家介绍了合并多个工作簿的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办公效率是众所周知的，几乎可以处理任何数据，也可以按照需求对数据做出修改。不知大家有没有遇到这种情况，把多张工具表数据整理到一个表中。这里，小编为大家详细介绍一下如何去做。

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

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

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

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

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

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

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

鸣谢：

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

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

在 Excel 中，如果要把某种产品1到12月的销量汇总，而每个月的销量为一个独立的工作表，这就需要用多重合并计算数据区域把多个表合并到数据透视表。把多个表合并到数据透视表比较简单，麻烦的是调整出想要的汇总结果。需要调整的项通常包括页、行和列，另外还需要把页下的项改名和调整顺序等。以下就是Excel用多重合并计算数据区域把多个表合并到数据透视表并调整各项以满足汇总要求的具体操作方法，实例中操作所用版本均为 Excel 2016。

一、Excel用多重合并计算数据区域把多个表合并到数据透视表

1、切换到要合并到数据透视表的第一个工作表（例如 1月），按住 Alt，按一次 D，按一次 P，打开“数据透视表和数据透视图向导”窗口，选择“多重合并计算数据区域”；单击“下一步”，来第2步，“请指定所需的页字段数目”选择“创建单页字段”；单击“下一步”，切换到添加表格区域窗口，框选“1月”表格区域，则框选的单元格区域被自动填充到“选定区域”下的输入框中，单击“添加”，则框选区域被添加到“所有区域”，继续框选其它表格的区域并添加到“所有区域”，添加完表格后，单击“下一步”；切换到“数据透视表显示位置”窗口，选择“新工作表”，单击“完成 ”，则框选的多张表格合并到数据透视表；操作过程步骤，如图1所示：

2、“页字段数目”如果选择“自定义字段”，则可以选择 1 到 4 个页字段，可以把一个表格添加一个页字段。例如：把工作表“1月”添加到“页字段1”，把工作表“2月”添加到“页字段2”；框选工作表“1月和2月”后，在“请先指定要建立在数据透视表中页字段数目”选择 2，在“字段1”下输入“1月”，在“字段2”下输入“2月”，如图2所示：

这样把表格合并到数据透视表后，“1月”在“页1”下，“2月”在“页2”下，如图3所示：

二、调整数据透视表并分类汇总

（一）调整页行列，使之显示为表格

1、把“列”从“列”的列表框拖到“行”的列表框，再把“页1”从“筛选器”拖到“列”；右键表格其中一个单元格（例如 A5），在弹出的菜单中选择“数据透视选项”，打开“数据透视选项”窗口，选择“显示”选项卡，勾选“经典数据透视表布局（启用网络中的字段拖放）”，单击“确定”，则数据透视表显示为表格形式，操作过程步骤，如图4所示：

2、其中“行”显示了服装编号，“列”显示其余三个字段，即“产品名称、价格和销量”；“页1”下面的“项1到项6”是原表格“1月到6月”各字段的计数结果。

（二）修改表头名称

1、选中“页1”所在单元格 C3，选择“分析”选项卡，选中屏幕左上角“活动字段”输入框中的“页1”，输入“月份”；选中“项1”所在单元格 C4，按住 Ctrl，单击 C4，输入“1月”，单击 C6 退出输入状态；操作过程步骤，如图5所示：

2、用同样的方法把“项2到项6”改为“2月到6月”，并把它们设为“居中”对齐，改好后如图6所示：

（三）把计数项改为求和项

1、右键 A3 单元格，在弹出的菜单中依次选择“值汇总依据”→ 求和，如图7所示：

2、则计算类型由“计数”变为“求和”，如图8所示：

3、其中“总计”是每个月销量的汇总，而对每件服装的汇总（即对服装编号的汇总）没有任何意义，因为它是把价格加销量，把它取消，方法为：右键其中一个对服装编号汇总的单元格（如 A8），在弹出的菜单中选择“分类汇总"行"”，如图9所示：

则取消对服装编号的分类汇总，如图10所示：

（四）调整字段顺序

1、选中“3月”所在的单元格 D4，把鼠标移到 D4 右边框上鼠标随即变为带箭头的十字架，按住左键，往右拖到 E 列，当粗绿线停在 E 列右边线上时放开左键，则“2月和3月”调好次序，操作过程步骤，如图11所示：

2、当“1月到6月”显示在行时，如果次序不对，也是一样的调整方法。数据透视表调整好后，对行的“总计”（例如 I7）是每件服装1到6月的总销量，对列的“总计”（例如 C44）是所有服装1月份的总销量，效果如图12所示：

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

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

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

图1 原始表

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

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

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

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

图3 生成合并计算结果表

注意：

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

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

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

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

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

假如你是一个教师，你们学校的所有学生成绩都归你统计，哈哈，这个时候你开心了吧，一个学校好几千个学生，别人给了你这样的excel成绩表：

excel成绩表

领导让你统计一年级优秀学生人数是多少？条件是分数大于等于95。这个时候有人会说了，这个不是很简单吗？我们一个一个去查，一年级，张三96，一个优秀，二年级李四98,2个优秀，依此类推，我的天哪，数量少当然没问题，但是学校好几千个人呐，这是要累死的节奏吗？当然不会。

你这样，在excel里需要统计优秀学生的单元格输入=COUNTIFS(A2:A9,"一年级",C2:C9,">=95")，一瞬间，哇哦，结果出来了，几千也不怕：

excel瞬间得到优秀学生结果

其他年级excel也是一样的瞬间得到结果

哎呀，这是个什么意思呢？为什么excel会这么神奇呢？COUNTIFS是条件计数，A2:A9是引用范围，我们这里的范围是一年级，所以自然是引用年级这列，"一年级"自然是条件啦，还有另一个条件就是分数大于等于95，所以我们写上C2:C9,">=95"，一样的C2:C9是范围，">=95"是条件。

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

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自然就是计算满足条件的单元格个数啦。

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

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

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

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

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

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

重点：在“总销售额”表单中的"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】，即可。

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

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

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

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

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

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

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

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

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

9.完成汇总效果如下。

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

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

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

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

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

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

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

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

引用位置选择

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

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

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

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

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

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

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

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

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

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

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

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

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

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

附上VBA源代码

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

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

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