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

358736102

谢谢楼主分享

cbb186

我的字典启蒙老师

kedykedy

记录学习了

xl994066285

对字典讲解的很详细，学习了

龙鹏-Excell

蓝桥玄霜 发表于 2010-10-18 12:54
实例9  字典取行数，数组重新赋值
一、问题的提出：
要求编写一段代码，求得B列不重复的名字，其相应的A ...

你好，看了半天代码，图中所示的重新给数组赋值的意义在哪？？？有什么玄机么？？？

气愤excel

龙鹏-Excell 发表于 2018-3-30 22:46
你好，看了半天代码，图中所示的重新给数组赋值的意义在哪？？？有什么玄机么？？？

此处 d(R(i,2))=i 应该为 d(R(i,2))=k,即字典d发现关键字存在时，1，4列相组合，5，6相加，如果这种情况出现多次，即i的值变化多次，比如i变化了3次，假设i原值为p,现为p+3,此时d(R(i,j))始终为k值不变，直到发现关键字不存在时，K值加1，并将新的K值赋值给字典，此时的R(i,j)中的变化了3次，即为R(p+3,j),这样就会出现如果下一个关键字第一次出现时，其本应为重复行合并成行后单独的下一行，然而确赋值给了下3行，也就是会出现错行赋值的情况

龙鹏-Excell

气愤excel 发表于 2018-3-31 20:46
此处 d(R(i,2))=i 应该为 d(R(i,2))=k,即字典d发现关键字存在时，1，4列相组合，5，6相加，如果这种情况 ...

原数据

修改后数据

这个表格，我随意调换了一行重复的数据位置，为什么代码会报错呢。报类型不匹配。

气愤excel

龙鹏-Excell 发表于 2018-3-31 22:35
这个表格，我随意调换了一行重复的数据位置，为什么代码会报错呢。报类型不匹配。

请确保d(R(i,2))=i 改为d(R(i,2))=k,如果是F8逐条语句运行时会报错，这时请将if 判断语句改为：If d.Exists(R(i, 2)) And d(R(i, 2)) <> "" Then

05050818

抱着一丝希望求教，万一蓝桥老师看见了呢？     蓝桥老师，麻烦有空看下：http://club.excelhome.net/thread-1405535-1-1.html 。想了有一段时间了，一直无解。

气愤excel

05050818 发表于 2018-4-1 21:56
抱着一丝希望求教，万一蓝桥老师看见了呢？     蓝桥老师，麻烦有空看下：http://club.excelhome.net/threa ...

Public Sub 杀杀杀()


Dim d As Object, i&, R, Rng()

Set d = CreateObject("scripting.dictionary")

R = Sheet1.Range("a2:a" & [a1048576].End(xlUp).Row)

ReDim Rng(1 To UBound(R), 1 To 1)

    For i = 1 To UBound(R)
   
        If Not d.exists(R(i, 1)) Then
        
            d(R(i, 1)) = ""
            
            Rng(i, 1) = 1
        
        Else
            Rng(i, 1) = 0
        
        End If
   
    Next

Sheet2.Activate

[a2:b1048576].Clear

Sheet1.Rows("1:1").Copy [a1]

[a2].Resize(UBound(R), 1) = R
[b2].Resize(UBound(R), 1) = Rng

Set d = Nothing

End Sub