单元条件多个工作表中数据汇总求和

452046297 · 发表于 2015-1-17 23:04

本帖最后由 dengjq2000 于 2015-1-17 23:27 编辑

要把多个工作表中数据全部汇总到总表里并求和。怎么汇总？

ghzx9388 · 发表于 2015-1-17 23:23

工作表样式不一样不太好办，如果一样的话可用公式
=SUM(张三汇总表:杨涛汇总表!B2)

dengjq2000 · 发表于 2015-1-17 23:26

单元格B2公式（由于表名没运用规律，只写前面三个工作表表名，其余自己添加上去）：

=SUMPRODUCT(SUMIF(INDIRECT({"张三汇总表";"李四汇总表";"王伟汇总表"}&"!A:A"),$A2,INDIRECT({"张三汇总表";"李四汇总表";"王伟汇总表"}&"!R1C"&COLUMN(B$1),)))

复制代码

fxl447098457 · 发表于 2015-1-18 11:07

Sub my()
Dim sht As Worksheet, mstr$, arr
For Each sht In Worksheets
If sht.Name <> "总汇总表" Then
mstr = mstr & """,""" & sht.Name & "!" & sht.[a1].CurrentRegion.Address(ReferenceStyle:=xlR1C1)
End If
Next
mstr = Replace(mstr, """,", "", 1, 1) & """"
arr = Evaluate("{" & mstr & "}")
With ActiveSheet.Range("a1")
.CurrentRegion.ClearContents
.Consolidate sources:=arr, Function:=xlSum, toprow:=True, leftcolumn:=True
.Value = "类别"
End With
End Sub

复制代码

452046297 · 发表于 2015-1-18 15:47

fxl447098457 发表于 2015-1-18 11:07

谢谢，可以了，大神能不能解释一下，各个语句的含义，我用到其他地方就报错

Katherine506 · 发表于 2016-11-21 14:20

dengjq2000 发表于 2015-1-17 23:26
单元格B2公式（由于表名没运用规律，只写前面三个工作表表名，其余自己添加上去）：往右往下拉

更多方 ...

&!R1C 这个是哪个单元格？

dengjq2000 · 发表于 2016-11-21 15:18

Katherine506 发表于 2016-11-21 14:20
&!R1C 这个是哪个单元格？

R 代表行位，C代表列位。R1C 是：第一行，根据C的值变化而变化到第一行对应的不同列位单元格。

Katherine506 · 发表于 2017-2-7 16:01

dengjq2000 发表于 2016-11-21 15:18
R 代表行位，C代表列位。R1C 是：第一行，根据C的值变化而变化到第一行对应的不同列位单元格。

请求私聊，我的表跟上表有小差异

dengjq2000 · 发表于 2017-2-7 16:03

有问题直接跟帖，把附件上传。只要数据结构，把关键数据删除会修改。能体现问题相应信息就好了

cspostwjq · 发表于 2019-6-20 11:08

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			免费注册

[求助] 单元条件多个工作表中数据汇总求和

cspostwjq cspostwjq 当前离线性别保密 UID 2495922 阅读权限 0 注册时间 2013-11-5 在线时间小时最后登录 1970-1-1 积分 440 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2019-6-20 11:08 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报