,如需以列写入单元格,调用工作表函数transpose转置;
.cells(1,1).resize(dic.count,1) = application.worksheetfunction.transpose...(dic.keys)
'清除工作表单元格内容
.cells.clearcontents
'dic.items:字典的值;
.cells(1,1).resize(1,dic.count) =...这个应该是使用字典应用最多的了,需要注意的是,如果使用单元格写入到字典,单元格同时也包含格式等信息,如果只需要单元格的值,要使用单元格.value2方法,同时,字典的值也可以是数组。...~
如果需要匹配的姓名后面有之前填写的身高和体重信息,但是载入字典的数据源并没有这个人的信息,我们在遍历匹配时,又不想使身高和体重被替换为空,这时候可以结合dic.exisst语句,判断姓名是否存在于字典的...i = 2 to ubound(arr)
d(join(array(arr(i,1),arr(i,2),arr(i,3)),"|")) = arr(i,4)
next
' 把字典键值对写入到工作表