常见字典用法集锦及代码详解

hnnyfcykl · 发表于 2022-9-20 17:55

感谢老师的无私讲解！

xkzb · 发表于 2022-9-24 07:53

大公无私，现在恐怕没有人能做到

ning84 · 发表于 2022-10-9 03:46

复制代码

没搞懂，Debug.Print d.Item(1)，为什么Count由3变成4

a18b88 · 发表于 2022-10-9 08:30

谢谢分享，学习，收藏。

失控的轰子 · 发表于 2022-10-25 17:56

跟贴备学！谢谢！

zhhmok · 发表于 2022-11-9 10:21

大神级别！谢谢分享！

zhhmok · 发表于 2022-11-9 10:24

打印出来慢慢研究

qmj530 · 发表于 2022-11-10 12:10

蓝桥玄霜发表于 2010-10-18 12:48
实例1 普通常见的求不重复值问题
一、问题的提出：
表格中人员有很多是重复的，要求编写一段代码，把重 ...

实例2 求多表的不重复值问题.zip (11.57 KB, 下载次数: 1)

楼主，为何用你的代码算不出不重复的人名？百思不得其解，望指导。感谢！

乐轻入梦 · 发表于 2022-11-10 16:04

yvhgydn 发表于 2010-10-19 23:55
蓝兄能否详细解一下这句
arr(i,3)="姓名"
d(arr(i,3))开始的时候为什么就会为空了呢

d(Key)=""
是d.Add key,Item 的简化写法，如果d.Add key,Item 中的条目为空
那么就是字典.新增关键字值，Item="" 。即简化为：d(Key)=""

乐轻入梦 · 发表于 2022-11-10 16:12

李巴发表于 2010-10-21 21:17
Sub cfz()
Dim i&, Myr&, Arr
Dim d, k, t

因为循环是从第二行开始的，开始时d(Arr(i, 3)) =""当你循环一行后，它的值就由空变成了1，当循环第n行后，那么就相当于键值加了n,此时n只是起到计数器的作用

		自动登录	找回密码
密码			免费注册

[原创] 常见字典用法集锦及代码详解