vba字典item存多个值

ExcelVBA求助，如何把字典转换成数组存出来？将字典D放入A列：B:[A1]。尺寸（d.count）=应用程序。转置（d.keys）[b1]。调整大小（d.Coun...