基本语句Sub dictest ()“词典摘要”词典对象相当于由唯一关键字(Key )及其项目(Item )的组合组成的组合数组) VBA词典有六种方法Add、Keys、Items、exxa 创建比较模式’词典’ d ‘ dimdasobjectsetd=createobject ‘，’ scripting.dictionary ‘ ) ‘ d.Add ‘a ‘， 添加“example CT”7 ‘ add重复key可以直接覆盖d’b ‘ )=7’，与前者相同的d(‘c ‘ )=’ exxex ‘，而不会误导’ d.item”b’=7′ 也可以使用数字、数值作为key ‘速度。 纯数字纯文本字符文本/数值混合型’输出Cells(1(1，1 )=d ) (a ) ) cells (1) 1，1 )=d.item ) )与上述相同cells (1，2 ) 1 )=d.exists(b ) ) d.Add ‘b ) )、7ceells存在或2 )=d.exists(b ) )是keyd.key ) (a ) )的所有密钥的数组1 )=取代=d_keys(0) )2)=d_keys(1) d _ items=d.items cells (4，1 )=d _ items (0) cells (4，2 )=
实例’每个不重复的name和name的income合计subdictest1(dim data _ countaslongdata _ count=188 dim data _ name， 获取data_income，idata _ name=application.transpose (worksheets (数据) ).Cells(2) 2，1 ).resize ) data _ cocose 1 ) ) data_ 2).resize(data_count 1 ) dim D1 asobjectsetd1=createobject (scripting.dictionary ) ) forI=1todata_countifD1.exists ) data _ name (I=ddate ) ta_name ) I )=data_income ) I ) endif nextd.cells (2，1 ).resize(ubound ) D1 _ keys (1，1 )=应用程序. 1