[已解决]求和函数d

shihuai · 发表于 2017-2-8 14:41

本帖最后由 shihuai 于 2017-2-9 12:08 编辑

求一多表求和公式，谢谢

最佳答案

月排行榜 / 总排行榜

hupin6331

2017-2-8 17:23

本帖最后由 hupin6331 于 2017-2-8 17:25 编辑

给个函数公式。

跳转到最佳答案楼层

grf1973 · 发表于 2017-2-8 15:55

用VBA吧。不然以后再增加几个项目部搞死你。

Sub 汇总()
Set d = CreateObject("scripting.dictionary")
For Each sh In Worksheets
If sh.Index > 1 Then
arr = sh.[a1].CurrentRegion
For i = 4 To UBound(arr) - 1
x = arr(i, 2) & arr(i, 4)
d(x) = d(x) + arr(i, 3)
Next
End If
Next
arr = [a1].CurrentRegion
For j = 3 To UBound(arr, 2) - 1
For i = 2 To UBound(arr) - 1
x = arr(i, 2) & arr(1, j)
arr(i, j) = d(x)
s = s + d(x)
Next
arr(i, j) = s: s = 0
Next
[a1].CurrentRegion = arr
End Sub

复制代码

shihuai · 发表于 2017-2-8 15:58

grf1973 发表于 2017-2-8 15:55
用VBA吧。不然以后再增加几个项目部搞死你。

我已经弄了一天了，晕乎乎呢，VBA不知咋用，

，领导写个函数么

shihuai · 发表于 2017-2-8 16:02

shihuai 发表于 2017-2-8 15:58
我已经弄了一天了，晕乎乎呢，VBA不知咋用，，领导写个函数么

表格增加或变动不知道咋个调试，我距离VBA太遥远了

grf1973 · 发表于 2017-2-8 16:13

表格增加变动不需要有任何改变，照点不误。

hupin6331 · 发表于 2017-2-8 17:23

这个最佳答案由 hupin6331 给出，感谢 hupin6331 的回答。

单击隐藏图章

本帖最后由 hupin6331 于 2017-2-8 17:25 编辑

给个函数公式。

shihuai · 发表于 2017-2-9 11:12

hupin6331 发表于 2017-2-8 17:23
给个函数公式。

SUM(SUMIFS(INDIRECT({"北京","天津","湖北"}&"项目部!C:C"),INDIRECT({"北京","天津","湖北"}&"项目部!B:B"),$B2,INDIRECT({"北京","天津","湖北"}&"项目部!D:D"),C$1))这个公式是正解

咨询个问题，这个函数结构给实用工作表名称带括号的，比如（北京）项目部
SUM(SUMIFS(INDIRECT({"（北京）","（天津）","（湖北）""}&"项目部!C:C"),........................

hupin6331 · 发表于 2017-2-9 15:37

shihuai 发表于 2017-2-9 11:12
SUM(SUMIFS(INDIRECT({"北京","天津","湖北"}&"项目部!C:C"),INDIRECT({"北京","天津","湖北"}&"项目部!B ...

带括号或数字、空格等，需要加单引号。

=SUM(SUMIFS(INDIRECT({"'（北京）项目部'","'（天津）项目部'","'（湖北）项目部'"}&"!C:C"),INDIRECT({"'（北京）项目部'","'（天津）项目部'","'（湖北）项目部'"}&"!B:B"),$B2,INDIRECT({"'（北京）项目部'","'（天津）项目部'","'（湖北）项目部'"}&"!D:D"),C$1))

复制代码

shihuai · 发表于 2017-2-9 17:30

非常感谢各位大神的回复，

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