字典如何直接向VBA数组赋值呢?

jinxuanmr

各位大佬, 以下代码中,我将arr中的数据赋值给了字典, 因为是要过滤多条件重复,在键上我用的粘合方法.
请问这样的字典键值格式,除了放回单元格再用数组装的方法. 我该如何把字典中的数据直接传回给arr呢? .
如能解惑 ,将感激不尽!!!





Set Dic = CreateObject("scripting.dictionary")

For JF1 = 1 To UBound(Arr)

    Dic(Join(Array(Arr(JF1, 1), Arr(JF1, 2)), "|")) = Array(Arr(JF1, 3), Arr(JF1, 4))

Next




字典Dic的数据如何直接传回arr呢 ? 除了放回单元格再用数组装的方法.

zxsea_7426

根据字典记录条数定义新数组，逐一输出到数据<注意计数>；或者直接一条一条向原数组输出<注意计数>，超过记录条数的再次循环到原数组最后一条记录进行清空。

zjzyj

arr = dic.keys
brr = dic.items

zxsea_7426

Dic(Join(Array(Arr(JF1, 1), Arr(JF1, 2)), "|"))，关键字直接连接不好吗[Arr(JF1, 1)  & "|" &  Arr(JF1, 2))]，非要加入数组再连接

leolee82

selen

...
Set Dic = CreateObject("scripting.dictionary")
For JF1 = 1 To UBound(Arr)
    Dic(Join(Array(Arr(JF1, 1), Arr(JF1, 2)), "|")) = Array(Arr(JF1, 3), Arr(JF1, 4))
Next
dim key,item,keys,items
keys=dic.keys
items=dic.items
redim brr(1 to dic.count,1 to 4)
for i= 1 to dic.count
key=keys(i-1)
item=items(i-1)
brr(i,1)=split(key, "|")(0)
brr(i,2)=split(key,"|")(1)
brr(i,3)=item(0)
brr(i,4)=item(1)
next i
...

jinxuanmr

zxsea_7426 发表于 2023-3-30 21:36
Dic(Join(Array(Arr(JF1, 1), Arr(JF1, 2)), "|"))，关键字直接连接不好吗[Arr(JF1, 1)  & "|" &  Arr(JF1, ...

感谢帮助，你说的对

jinxuanmr

zjzyj 发表于 2023-3-30 21:31
arr = dic.keys
brr = dic.items

感谢帮助，我要放在一个数组里，楼下有正解

jinxuanmr

zxsea_7426 发表于 2023-3-30 21:36
Dic(Join(Array(Arr(JF1, 1), Arr(JF1, 2)), "|"))，关键字直接连接不好吗[Arr(JF1, 1)  & "|" &  Arr(JF1, ...

非常感谢， 辛苦了。