求助字典最基本使用方法

听歌的海

本人愚钝，未能理解字典正确使用方法，想要在附件中“汇总”sheet的“E:M”列，按行和列分类汇总一直不成功，请求各位帮助，在字典处帮忙加个注释以便理解，感谢。

kkf5560

大概得思路就是：
//新建一个结果数组，可以稍微大一点
redim aRes(1 to 99,1 to 9)
//循环将部门指向数组的下标，例如
if not dic.exists(技术部) then i=i+1
dic(技术部)=i
aRes(i,1)=技术部
//然后循环数据源，双循环（列取部门行取数）将对应的数据累计，例如

n=dic(技术部)

  for i =2 to x
       aRes(n,i)=aRes(n,i)+需累计的数
  next i

ykcbf1100

汇总表自动生成，关键代码已加注释，你自己慢慢消化吧。

附件供参考。。。

ykcbf1100

字典排重汇总

听歌的海

kkf5560 发表于 2024-9-25 11:07
大概得思路就是：
//新建一个结果数组，可以稍微大一点
redim aRes(1 to 99,1 to 9)

老师好，请教一下，aRes(n,i)=aRes(n,i)+需累计的数，这行，该如何表达？
我这下面在哪里错了？感谢指点

'*********从数组crr中按关键字累加************
For y = 1 To hzrow
    s = crr(y, 1)                                    '设首列的部门设为关键字
    If Not d.exists(s) Then                          '加入字典
        i = i + 1
        d(s) = i                                     '循环序列号
        drr(i, 1) = d(s)                             '将key值放在新数组
        For k = 2 To sl                              '循环列数，从2列开始需要累加
            drr(d(s), k) = drr(d(s), k) + crr(y, k)  '数组累加
        Next k
    End If
Next y

听歌的海

ykcbf1100 发表于 2024-9-25 11:18
汇总表自动生成，关键代码已加注释，你自己慢慢消化吧。

附件供参考。。。

谢谢草爷帮忙，我先消化消化