字典方面的基础学习.docVIP

字典方面的基础学习 字典方面的基础学习，谢谢各位帮忙 ccc 想取得arr的不重复值显示在第1行，请帮忙修改代码，谢谢 option base 1 Sub ccc() Dim d, arr, i% Set d = CreateObject(Scripting.Dictionary) arr = Array(1, 1, 1, 2, 3, 44, 4, 44, 4, 5) For i = 1 To UBound(arr) If Not d.exists(arr(i)) Then d.Add arr(i) End If Next Sheet1.[a1].Resize(d.Count, 1) = d.keys End Sub 呵呵，虚心学习是好事。 代码有两处错误。 1. 词典赋值语句： d.Add arr(i) 错误，缺了Item值 应该改为： d.Add arr(i), 语法：d.Add 关键词,内容 此处内容不可缺。 或者直接使用： d(arr(i)) = 语法: d(关键词)=内容 …… 顺便说，d(arr(i)) = 这种方式有个好处，不用事先判断该关键词是否已经存在，就可执行。 即， 如果关键词已经存在，则修改关键词相关内容， 如果关键词不存在，则把关键词加入词典并同时加入相关内容。 因此，代码可省略是否存在的判断而简化为： For i = 1 To UBound(arr) d(arr(i)) = 第二处错误，是结果输出问题。 d.keys结果，是个一维列数组，可以直接输出到整行， 但你的代码写错了： [a1].Resize(d.Count,1) = d.keys 这个是多行单列范围输出。 应该改为： [a1].Resize(, d.Count) = d.keys 这个，才是单行多列输出。 如果需要多行单列输出，那就要使用transpose函数了： [a1].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys) 第一次看到此种写法 谢谢啊 受益匪浅 第2个错误是Resize(d.Count, 1)应该改为Resize(1，d.Count) 已调试成功 谢谢 继续学习字典 继续提问高手们。谢谢 如果字典的关键字对应很多items怎么办，比如 姓名? ? ? ? 地址? ? ? ? 性别? ? ? ? 年龄? ? ? ? ? ? 姓名? ? ? ? 地址? ? ? ? 性别? ? ? ? 年龄 a? ? ? ? a街? ? ? ? 男? ? ? ? 22? ? ? ? ? ? ? ? ? ? ? ? d? ? ? ? ? ? ? ? ? ? ? ? b? ? ? ? b街? ? ? ? 女? ? ? ? 23? ? ? ? ? ? ? ? ? ? ? ? c? ? ? ? ? ? ? ? ? ? ? ? c? ? ? ? c街? ? ? ? 男? ? ? ? 23? ? ? ? ? ? ? ? ? ? ? ? b? ? ? ? ? ? ? ? ? ? ? ? d? ? ? ? d街? ? ? ? 女? ? ? ? 24? ? ? ? ? ? ? ? ? ? ? ? a? ? ? ? ? ? ? ? ? ? ? ? e? ? ? ? e街? ? ? ? 男? ? ? ? 26? ? ? ? ? ? ? ? ? ? ? ? e? ? ?Option Base 1 Sub a() Dim i%, d, arr, brr Set d = CreateObject(Scripting.Dictionary) arr = Range(a2:d [a65530].End(3).Row).Value brr = Range(g2:g [g65530].End(3).Row).Value Application.ScreenUpdating = False For i = 1 To UBound(arr) 地址 d(arr(i, 1)) = arr(i, 2) Next For i = 1 To UBound(arr) brr(i, 1) = d.Item(brr(i, 1)) Next [h2].Resize(d.Count, 1) = brr Application.ScreenUpdating = True Set d = Nothing End Sub 此程序只能取出右表的地址 把关键词（姓名）以外的相对应的信息，一起合并压入到Item中就可以了。 为了今后能逐项取出，信息合并压入时要指定分隔符。 取出时即可用split还原。 00.00.S