VBA 字典或dictionary（keys,items）教程

1、在VB（ALT+F11）模式下，工具-引用

2、加载Microsoft Scripting Runtime,就可以引用字典功能了

3、举例，建立A列中班级和人数的一一对应关系，也就是说我们能够通过指定班级获得该班级所对应的人数

4、程序演示：

其中dim dic as new dictionary ‘定义了一个新的字典，一定要使用new

Dic(range(“a”&i).value) = rnage(“b”&i).value ‘是一班级做为key，人数做为item；建立起一一对应的关系，其中1班出现了两次，字典赋值的时候会去最后一次的值，这里是人数12

Range(“d”&1).resize(dic.count,1) = applicationtranspose(dic.keys) ‘最后将班级和人数重新打印到d列和e列，这里得到1班就只有一个值了

5、结果：