字典Items套用array函数

   今天在论坛上看见了一个字典Items套用array函数后期去值的方法。之前还没见过呢！可能是孤陋寡闻吧~~

写入字典：

    For i = 1 To UBound(Arr)
         d(Arr(i, 1)) = Array(Arr(i, 2), Arr(i, 3), Arr(i, 4), Arr(i, 5), Arr(i, 6))
   Next

取值：

    wi = Array(4, 5, 6, 8, 10)

     For i = 1 To UBound(brr)
             If d.exists(brr(i, 2)) Then
                 For j = 0 To 4
                       brr(i, wi(j)) = d(brr(i, 2))(j)
                 Next