记录一次VBA字典的使用

部分代码

Public Sub MainRun()'1. 获取数据集，存储到字典中Set dict = CreateObject("Scripting.dictionary")Set dictUse = CreateObject("Scripting.dictionary")Sheets("数据").SelectRange("J3").SelectRange(Selection, Selection.End(xlToRight)).SelectColumnsNum = Selection.CountFor i = 1 To ColumnsNumk = Cells(3, i + 9) & "-" & Cells(5, i + 9) & "-" & Cells(6, i + 9) & "-" & Cells(7, i + 9)v = Cells(8, i + 9)dict.Add k, vNext i'2. 获取Key listKeyList = dict.keysstartColumns = 10'3. 遍历Key list进行数据运算For Each KeyItem In KeyListshortKey = Left(KeyItem, Len(KeyItem) - 1)key3Field = Left(shortKey, Len(shortKey) - 1)If Not dictUse.exists(key3Field) ThenSheets("控件").Cells(3, startColumns) = key3FielddictUse.Add key3Field, key3FieldaSuffix = Right(KeyItem, 1)For i = 5 To 8 Step 1steps = Sheets("控件").Cells(i, 6)oneKey = shortKey & stepsanotherSteps = Sheets("控件").Cells(i, 7)anotherKey = shortKey & anotherSteps' 保证两个值都存在的情况下进行数据运算If dict.exists(anotherKey) And dict.exists(oneKey) ThenDebug.Print dict(oneKey) - dict(anotherKey)Sheets("控件").Cells(i, startColumns) = dict(oneKey) - dict(anotherKey)End IfNextstartColumns = startColumns + 1End IfNextSheets("控件").Select
End Sub

1. VBA 中创建一个字典对象

Set dict = CreateObject("Scripting.dictionary")

2. 字典对象添加key 和 value

dict.Add key,value

3. 获取字典对象的key list

dict.keys

4. 判断是否存在某个key

dict.exists(key)

5. 修改字典值

dict(key) = newdata

6. 修改字典key 名称

dict.key(key) = newkeyname

6. 删除某个item

dict.remove key

7. 删除所有item

dict.removeall
运行结果:

>>> 如果你觉得我的文章对你有用，不妨【点赞】加【关注】，你的支持是我持续写作的动力，thank you! <<<

VBA -[知识点]: 字典相关推荐

建立数组并写入数据_VBA数组与字典解决方案第37讲：在VBA中字典的应用
大家好,我们今日继续讲解VBA数组与字典解决方案第37讲内容:在VBA中字典的应用.对于字典,也许许多的朋友对此比较陌生,在有的语言里字典也称之为MAP,应用也是比较广泛的. 字典,其实就是一些&qu ...
VBA用字典实现分类汇总（一）
VBA中字典的每一个key对应一个唯一的item,只要指定key的值,就可以马上返回其对应的item,利用字典这一特性可以实现快速的分类汇总.分类汇总可以分以下四种情况: 1.单条件单列汇总,如求商品 ...
VBA遍历字典对象中独门秘籍
看到这个标题,相信读者肯定非常不屑的任务我在故弄玄虚,客官莫急,我说说你听听,肯定会有新故事. 字典对象是VBA中常用的对象之一,对于这种这种对象通常用两种绑定方式:前期绑定和后期绑定. 前期绑定需要 ...
VBA用字典实现分类汇总（二）
在VBA中,字典是一个很重要的概念,有点你我们生活中用到的字典,(你可以通过pinyin或部首,查找到某个字),VBA中的字典,可以根据一个关键字(key)查询一个值(item),且关键字(key)是 ...
计算机二级vba知识点,计算机二级--VBA程序
计算机二级--VBA程序考试知识点全面归纳 8.3.3 数据类型和数据库对象 Access数据库系统创建表对象时所涉及的字段数据类型(除了OLE对象和备注数据类型外),在VBA中都有数据类型相对应. ...
VBA中字典的写入技巧
转自:微点阅读 https://www.weidianyuedu.com/content/4717493265745.html 字典的基本概念,调用方法以及字典的6个方法和4个属性,那在实际应用字典 ...
盘点VBA中字典的写入技巧！
讲了字典的基本概念,调用方法以及字典的6个方法和4个属性,那在实际应用字典之前,我们总该了解下字典的写入技巧. 写入技巧一:add方法下图中A列为姓名,有重复的,我们都知道字典里的key是不能重复的 ...
Excel VBA 用字典方法做先进先出法
多年前,一家外包公司帮我司一物业公司做仓库收发存管理软件,我方要求先进先出法,该外包公司称那需要加入批次管理,每次出库选择好批次才能实现先进先出.我以为,这完全是谬论,既然是先进先出,那就已经设定好了 ...
【Excel VBA和Python对照学习】创建字典
Excel VBA和Python双语对照学习我们从小学习语文,都用过字典.查字典时可以从第一页开始,一页一页地往下找,直到找到为止.这样做明显效率低下,特别是字的位置比较靠后的时候.所以查字典时不这 ...

VBA -[知识点]: 字典

VBA字典