求助用SUMIFS汇总相同列标签多条件统计求和

510437958

这是数据源，需要对G到BR列相同列标签根据A列车间和B列公司进行求和


如上图，模拟1车间1产品计算结果为1896.05，其中G到AZ列为求和，BA到BS为相减
详见附件，要求对符合列标签相同的多列数据整列计算汇总求和，能否不用区域取值范围计算，要求可以在2007实现，用函数解决，非常感谢！
龙年春节将至，顺祝论坛里的各位老师和朋友龙年大吉、心想事成、工作顺利、生活幸福、平安康泰！

由于上次没有说清楚，在此再次向各位老师和论坛里的朋友致谢！
主要是汇总数据，有的是追加复制，有的是插入空白，有的是删除再复制粘贴，绝对引用有时会超出计算范围。
附件已更新，麻烦重新下载附件。非常感谢！

ykcbf1100

我看一下啊。

xkmakel

你看下是不是这样

袁勇

=SUMIF(数据源!$G$1:$AZ$1,B$1,数据源!$G2:$AZ2)-SUMIF(数据源!$BA$1:$BS$1,B$1,数据源!$BA2:$BS2)

hxj119

2007版本SUM，sumproduct是不能运行，还是有啥特别的？？

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.11
   
2.     Dim arr, brr, d, s
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     arr = Sheets("数据源").UsedRange
   
5.     On Error Resume Next
   
6.     For i = 2 To UBound(arr)
   
7.         For j = 7 To UBound(arr, 2)
   
8.             s = arr(i, 1) & "|" & arr(1, j)
   
9.             d(s) = d(s) + IIf(j > 52, -arr(i, j), arr(i, j))
   
10.         Next
    
11.     Next
    
12.     With Sheets("计算")
    
13.         r = .Cells(Rows.Count, 1).End(3).Row
    
14.         arr = .Range("a1:o" & r)
    
15.         For i = 2 To UBound(arr)
    
16.             For j = 2 To UBound(arr, 2)
    
17.                 s = arr(i, 1) & "|" & arr(1, j)
    
18.                 arr(i, j) = d(s)
    
19.             Next
    
20.         Next
    
21.         .Range("a1:o" & r) = arr
    
22.         .Range("a1:o" & r).Borders.LineStyle = 1
    
23.         ActiveWindow.DisplayZeros = False
    
24.     End With
    
25.     MsgBox "OK！"
    
26. End Sub
    
27. 
    

复制代码

ykcbf1100

附件供参考。。。

mykitami

B2公式

=INDEX(MMULT(IF(数据源!$G$1:$BS$1=B$1,数据源!$G$2:$BS$1623,)*(--MID(REPT("01",MATCH("欠款回款合计",数据源!$G$1:$BS$1,))&REPT(-1,COLUMNS(数据源!$G$1:$BS$1)-MATCH("欠款回款合计",数据源!$G$1:$BS$1,)),TRANSPOSE(ROW(INDIRECT("1:"&COLUMNS(数据源!$G$1:$BS$1))))*2-1,2)),TRANSPOSE(COLUMN(数据源!$G$1:$BS$1)^0)),MATCH($A2,数据源!$A$2:$A$1623,))

下拉，右拉
没有自动溢出的话，要按数组三键

一杯绿茶来了

=SUMIF(数据源!$A$1:$AZ$1,计算!B$1,OFFSET(数据源!$A$1:$AZ$1,MATCH(计算!$A2,数据源!$A:$A,)-1,))-SUMIF(数据源!$BA$1:$BS$1,计算!B$1,OFFSET(数据源!$BA$1:$BS$1,MATCH(计算!$A2,数据源!$A:$A,)-1,))

mykitami

=SUMIF(数据源!$G$1:$AZ$1,B$1,OFFSET(数据源!$G$1:$AZ$1,MATCH($A2,数据源!$A$2:$A$1623,),))-SUMIF(数据源!$BA$1:$BS$1,B$1,OFFSET(数据源!$BA$1:$BS$1,MATCH($A2,数据源!$A$2:$A$1623,),))