汇总求和

glxxjyf · 发表于 2024-11-12 13:16

有空行的，2列重复的汇总求和。

loirol · 发表于 2024-11-12 13:21

本帖最后由 loirol 于 2024-11-12 13:24 编辑

ykcbf1100 · 发表于 2024-11-12 13:32

附件供参考。。。

ykcbf1100 · 发表于 2024-11-12 13:32

参与一下。。。

Sub ykcbf() '//2024.11.12
Set d = CreateObject("Scripting.Dictionary")
With Sheets("汇总求助")
r = .Cells(Rows.Count, 2).End(3).Row
arr = .[a1].Resize(r, 9)
.[m2].Resize(r, 2) = ""
For j = 4 To UBound(arr, 2) Step 2
For i = 2 To UBound(arr)
s = arr(i, j)
If s <> Empty Then
d(s) = d(s) + arr(i, j + 1)
End If
Next
Next
.[m2].Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.Items))
End With
Set d = Nothing
MsgBox "OK！"
End Sub

复制代码

rym9401 · 发表于 2024-11-12 14:28

=LET(s,WRAPROWS(TOCOL(D3:I25,1),2),GROUPBY(TAKE(s,,1),TAKE(s,,-1),SUM))

复制代码

3190496160 · 发表于 2024-11-12 15:07

=UNIQUE(FILTER(VSTACK(D3:D3000,F3:F3000,H3:H3000),VSTACK(D3:D3000,F3:F3000,H3:H3000)<>""))
=SUMIF($D$3:$D$4000,M3,$E$3:$E$4000)+SUMIF($F$3:$F$4000,M3,$G$3:$G$4000)+SUMIF($H$3:$H$4000,M3,$I$3:$I$4000)

3190496160 · 发表于 2024-11-12 15:07

公式就可以搞定了

汇总求助.rar (36.81 KB, 下载次数: 1)

lizhipei78 · 发表于 2024-11-12 16:11

比较简单的题目，练习一下

翁知江安 · 发表于 2024-11-12 22:40

其实，楼主的意思应该是隐含了一个：就是汇总求助中的标黄的部分也是要用vba的。不知对不对？

翁知江安 · 发表于 2024-11-12 22:41

以上运行测算仅供参考，欢迎批评指正。

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

[求助] 汇总求和