:dic.remove key
删除字典对象:set dic = Nothing
with activesheet
'dic.count:字典计数,字典中一共有多少条记录;
'dic.keys:字典的键...,写入单元格以行写入,如需以列写入单元格,调用工作表函数transpose转置;
.cells(1,1).resize(dic.count,1) = application.worksheetfunction.transpose...i, 1)) + arr(i, 2)
Next
'使用copy方法,将表头复制到e1,f1单元格
.Range("a1:b1").Copy .Range("e1")
'字典键去重纵向写入到单元格...字典的value可以数值,字符串,数组等对象;
Array可以通过索引获取对应的值,第一个数值的索引是0;Array(1,2,3,5)(0)返回的是1
key的组合和分割
解决多字段匹配问题...usedrange
for i = 2 to ubound(arr)
d(join(array(arr(i,1),arr(i,2),arr(i,3)),"|")) = arr(i,4)
next
' 把字典键值对写入到工作表