VBA字典对应6个Item，想要对这6个item重新赋值，代码怎么优化，谢谢！

feixiangye

如下我写的代码，字典对应有6个Item，想要对这6个item重新赋值，代码写的挺长，想要学习一下这句代码是否可以优化，请前辈们提供下思路，谢谢！

Sub Test()
    Set d = CreateObject("scripting.dictionary")
    arr = [A1].CurrentRegion
    m = UBound(arr)
    For i = 2 To m
        If Not d.exists(arr(i, 1)) Then
            d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7))
        Else
            s = arr(i, 1)
            d(arr(i, 1)) = Array(d(s)(0) + arr(i, 2), d(s)(1) + arr(i, 3), d(s)(2) + arr(i, 4), d(s)(3) + arr(i, 5), d(s)(4) + arr(i, 6), d(s)(5) + arr(i, 7))
            '想要对字典的6个Item重新赋值，上面这句代码写的有点很长，有没有优化空间，想要学习一下优化思路
        End If
    Next
End Sub

铁马1980

feixiangye

铁马1980 发表于 2024-10-23 15:58

太感谢了，就是想要这个思路，当时没转过来弯。

lizhipei78

一般我是这么处理的，
d(s)=array(.....)
t=d(s)
t(0)=?
t(1)=...
d(s)=t
这样子会好看一点

feixiangye

lizhipei78 发表于 2024-10-23 17:06
一般我是这么处理的，
d(s)=array(.....)
t=d(s)

这样也可以，谢谢您的提供的思路