字典求合计

yshcy · 发表于 2024-10-5 20:40

菜鸟的问题：数据源在C-F列，想要的结果在H-L列。目前的代码只解决了部分问题，想把L列的小计及H6:L6的合计求出来，谢谢。

ykcbf1100 · 发表于 2024-10-5 20:49

小改一下，加上合计

ykcbf1100 · 发表于 2024-10-5 20:49

小改一下，加上合计

longwin · 发表于 2024-10-5 21:20

供参考。。。。
Sub test000()
Set d = CreateObject("scripting.dictionary")
arr = [c2].CurrentRegion
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 2) + arr(i, 3) + arr(i, 4))
Else
d(arr(i, 1)) = Array(d(arr(i, 1))(0) + arr(i, 2), d(arr(i, 1))(1) + arr(i, 3), d(arr(i, 1))(2) + arr(i, 4), d(arr(i, 1))(3) + arr(i, 2) + arr(i, 3) + arr(i, 4))
End If
Next
ReDim brr(1 To d.Count + 1, 1 To 5)
For Each Key In d.keys
m = m + 1
brr(m, 1) = Key
brr(d.Count + 1, 1) = "合计"
For j = 2 To 5
brr(m, j) = d(Key)(j - 2)
brr(d.Count + 1, j) = brr(d.Count + 1, j) + d(Key)(j - 2)
Next
Next
[h3].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

飞天篮球猪 · 发表于 2024-10-5 22:02

lizhipei78 · 发表于 2024-10-5 23:03

借题练习一下JSA

yshcy · 发表于 2024-10-5 23:20

longwin 发表于 2024-10-5 21:20
供参考。。。。
Sub test000()
Set d = CreateObject("scripting.dictionary")

谢谢。感觉复杂了点。如果结果有100列，就太辛苦了。

yshcy · 发表于 2024-10-5 23:23

本帖最后由 yshcy 于 2024-10-6 09:20 编辑

ykcbf1100 发表于 2024-10-5 20:49
小改一下，加上合计

感谢你的多次帮助。能否写成动态的求合计及小计？这个12如果是动态的，就更完美了。

lizhipei78 · 发表于 2024-10-6 08:21

JSA汇总求和（类似sumif）.rar (11.87 KB, 下载次数: 8)

飞天篮球猪 · 发表于 2024-10-6 09:24

市面上也有很多针对大数据结构化计算的编程语言，可以尝试一下:

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

字典求合计

评分

评分

评分