一、案例概述：
本次案例主要讲解字典的学习和应用，通过使用字典的方式来将每一行不重复的数值进行汇总形成一个字符串，且将该字符串展示到指定单元格中。
二、案例展示：
（1）源数据：

（2） 代码部分：
 

Sub shishi()Dim d, arr, iSet 字典 = CreateObject("Scripting.Dictionary")'将从A1开始的数值存放到数组arr中arr = Range("a1").CurrentRegionFor i = 2 To UBound(arr)字典.RemoveAllFor j = 2 To UBound(arr, 2) - 1If Not 字典.exists(arr(i, j)) Then'将不重复的数值存放到字典的关键字中，且将字典的关键字对应的值复制为空字典(arr(i, j)) = ""End IfNextarr(i, UBound(arr, 2)) = VBA.Join(字典.Keys, ",") '将字典中的关键字合并为一个字符串NextRange("a1").CurrentRegion = arrSet 字典 = Nothing
End Sub

（3）结果呈现：

三、总结：

        字典是VBA编程中的一个对象，具有操作简单、运行高效的特点，常用于数据的条件查询、聚合汇总等，如果说数组是VBA处理数据的基础结构，那么字典就可以被称为核心。

数组用于数据清洗整理，字典用于数据汇总分析

创建字典(内部连接)：Set 字典 = CreateObject("Scripting.Dictionary")
获取字典所有Key：   字典.Keys
获取字典所有Item： 字典.Items