VBA字典用法集锦及代码详解.docxVIP

VBA字典用法集锦及代码详解

一、字典基础认知

1.字典核心优势

字典（Dictionary）是VBA中高效的数据结构，本质是“键-值（Key-Item）”映射集合，核心优势：

查找速度快（哈希表原理），百万级数据查询效率远超数组遍历；

自动去重（Key值唯一），无需手动判断重复；

支持动态增删改查，无需预设长度；

可直接按Key索引值，无需遍历定位。

2.适用场景

数据去重与统计（如计数、求和）；

两表数据匹配（如VLOOKUP功能升级）；

快速查找与替换；

复杂数据分组与分类汇总。

3.引用与创建

方式1：前期绑定（需添加引用）

步骤：工具→引用→勾选MicrosoftScriptingRuntime

SubDict_Create_1()

DimdictAsNewDictionary声明并创建字典对象

核心属性验证

Debug.Print初始字典是否为空：dict.IsEmpty输出：True

Debug.Print初始字典条目数：dict.Count输出：0

EndSub

方式2：后期绑定（无需引用，兼容性更强）

SubDict_Create_2()

DimdictAsObject

Setdict=CreateObject(Scripting.Dictionary)动态创建字典

等价于前期绑定，推荐跨设备使用

EndSub

二、字典核心操作（增删改查）

1.新增数据（Add方法）

SubDict_Add()

DimdictAsObject

Setdict=CreateObject(Scripting.Dictionary)

1.基础添加：Key-Item成对添加（Key唯一）

dict.AddKey:=姓名,Item:=张三

dict.Add年龄,25简化写法

dict.Add部门,技术部

2.批量添加（数组遍历）

DimarrAsVariant,iAsInteger

arr=Array(学历,本科,工龄,3,薪资,15000)

Fori=0ToUBound(arr)Step2

IfNotdict.Exists(arr(i))Then避免Key重复报错

dict.Addarr(i),arr(i+1)

EndIf

Nexti

Debug.Print添加后条目数：dict.Count输出：6

EndSub

注意：Key值不能重复，重复添加会报错，需用Exists方法提前判断。

2.查询数据（Item属性/Exists方法）

SubDict_Query()

DimdictAsObject

Setdict=CreateObject(Scripting.Dictionary)

先初始化数据

dict.AddA,100:dict.AddB,200:dict.AddC,300

1.按Key查询值（两种写法）

Debug.PrintKey=B对应值：dict(B)直接索引，简洁

Debug.PrintKey=C对应值：dict.Item(C)显式使用Item属性

2.判断Key是否存在（避免查询不存在的Key报错）

DimkeyAsString

key=D

Ifdict.Exists(key)Then

Debug.Printkey对应值：dict(key)

Else

Debug.Printkey不存在于字典中输出：D不存在于字典中

EndIf

3.遍历所有Key（ForEach循环）

Debug.PrintvbCrLf所有Key值：

ForEachkeyIndict.Keys

Debug.Printkey→dict(key)

Nextkey

EndSub

3.修改数据（直接赋值）

SubDict_Modify()

DimdictAsObject

Setdict=CreateObject(Scripting.