难题求大神用字典功能帮求解,并加上备注指导让我看看~

309020713

各位大大神们

想了很久也看了论坛关于字典的用法,但是奈何小弟笨拙,实在不解
在此恳请各位大神帮帮忙 解答

图片1

test form.rar (9.9 KB, 下载次数: 2)

2018-10-2 21:30 上传

点击文件名下载附件
附件

不知道为什么

这个没有什么复杂的，字典基本运用。如图

不知道为什么

如图

xiangbaoan

Sub test() '少量字典 + 数组
Dim d As Object, ar&(), br, r&, c%, y&, x%
Set d = CreateObject("scripting.dictionary")
br = [j1:r6]
ReDim ar&(1 To UBound(br) - 1, 1 To UBound(br, 2) - 1) '长整型数组，初始赋值为0
For r = 2 To UBound(br)
    d(br(r, 1)) = r - 1
Next
For c = 2 To UBound(br, 2)
    d(br(1, c)) = c - 1
Next
'以上少量字典只记录索引号，也就是相关数据累加位置，数据的处理还是交给数组去做吧
br = [a1].CurrentRegion.Resize(, 7)
For r = 2 To UBound(br)
    If d.exists(br(r, 1)) Then
        y = d(br(r, 1)) '读取索引号（行位置）
        For c = 2 To UBound(br, 2) Step 2
            If d.exists(br(r, c)) Then
                x = d(br(r, c)) '读取索引号（列位置）
                ar(y, x) = ar(y, x) + br(r, c + 1) '相关位置累加汇总
            End If
        Next
    End If
Next
[k2].Resize(UBound(ar), UBound(ar, 2)) = ar '写入数组
Set d = Nothing
End Sub

309020713

不知道为什么 发表于 2018-10-2 23:58
如图

好感谢呀~毕竟对于刚刚进入这个门槛的我，真是雪中送炭

309020713

xiangbaoan 发表于 2018-10-3 07:03
Sub test() '少量字典 + 数组
Dim d As Object, ar&(), br, r&, c%, y&, x%
Set d = CreateObject("scrip ...

感谢您的慷慨备注,一定好好吸收