求助！字典多列分别求和

zymwhy

zymwhy 发表于 2019-6-11 10:21
字典计数+数组，参考一下。

Sub test1()

6楼代码更简洁

weskerlu

wdx223 发表于 2019-6-11 09:38

非常感谢
这个好难 好多看不懂的，还得学习啊

a18b88

fanyoulin 发表于 2019-6-11 09:43
我曾看过论坛高手 L （抱歉我记不住他ID）写过用类实现字典一对多的范例，后来我用数组也实现了类似的功能 ...

8的代码很好理解，怎么不运行呢？

fanyoulin

a18b88 发表于 2019-6-11 16:55
8的代码很好理解，怎么不运行呢？

应该不会啊，我可以运行通过的。代码放在第一个表里，结果存放在第二个表内

a18b88

fanyoulin 发表于 2019-6-11 16:57
应该不会啊，我可以运行通过的。代码放在第一个表里，结果存放在第二个表内

知道了，测试没问题，谢谢您！

yaozong

运行结果在字典。

Sub 字典方法合计N列()
Dim d, arr, k, s$, i&, j&, x&
    arr = Sheet1.Range("a3:g" & Sheet1.[a65536].End(3).Row)
    x = UBound(arr, 2)
    Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr)
        s = arr(i, 1)
        If Not d.exists(s) Then
          d(s) = Application.Index(arr, i, 0)
        Else
          k = d(s)
          For j = 2 To x
            k(j) = k(j) + arr(i, j)
          Next
          d(s) = k
        End If
    Next
    Sheet2.[a3].Resize(d.Count, x) = Application.Rept(d.items, 1)
End Sub

horselyq

数据透视表