想学习字典，请给一个最简单的字典代码 谢谢

VBNewUser

想从最基础的学起，但找了半天都是字典的各种炫酷技能，实在看不懂

根据AB列的信息，利用字典查找，结果在F列显示。
举例：

不知道为什么

论坛字典相关的基础贴子多的很，譬如 蓝版  佛山  等老师的。

chis3

Sub test()
    Dim dic As Object
    Dim arr
    Dim brr(1 To 9)
    Dim i As Byte
    arr = [a1].CurrentRegion
    Set dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        dic(arr(i, 1)) = arr(i, 2)
    Next i
    arr = [e1].CurrentRegion
    For i = 2 To UBound(arr)
        brr(i - 1) = dic(arr(i, 1))
    Next i
    [f2].Resize(9, 1) = Application.Transpose(brr)
    Set dic = Nothing
End Sub

duquancai

我给你写详细一点吧！！！》》》》》》》》》》》》》》

1. Sub main()
   
2.     Dim c1 As Range, c2 As Range, r1&, r2&, arr(), brr, d As Object
   
3.     Set c1 = Range("a:b").Find("*", , , , 1, 2)
   
4.     If c1 Is Nothing Then Exit Sub
   
5.     r1 = c1.Row
   
6.     Set c2 = Range("e:f").Find("*", , , , 1, 2)
   
7.     If c2 Is Nothing Then Exit Sub
   
8.     r2 = c2.Row
   
9.     arr = Range("a1:b" & r1)
   
10.     brr = Range("e1:f" & r2)
    
11.     Set d = CreateObject("Scripting.Dictionary")
    
12.     For i = 1 To r1
    
13.         If Not d.exists("'" & arr(i, 1)) Then
    
14.             d("'" & arr(i, 1)) = arr(i, 2)
    
15.         Else
    
16.             d("'" & arr(i, 1)) = d("'" & arr(i, 1)) & "," & arr(i, 2)
    
17.         End If
    
18.     Next
    
19.     For i = 1 To r2
    
20.         brr(i, 2) = d("'" & brr(i, 1))
    
21.     Next
    
22.     Range("e1:f" & r2) = brr
    
23. End Sub

复制代码

autolzg

先马克
我也要学习一下字典

qing0408

duquancai 发表于 2019-1-18 00:12
我给你写详细一点吧！！！》》》》》》》》》》》》》》

请教老师，如果用楼主这个例子，如何用字典代替名称使用呢？定义了如AB列的名称及数值，像名称一样在其它单元格里可以引用，使用，并参与计算？

VBNewUser

duquancai 发表于 2019-1-18 00:12
我给你写详细一点吧！！！》》》》》》》》》》》》》》

谢谢老师，写的十分详细！
如果在此基础之上增加一个判断，即如果F列有些已经有了结果以后，就不要再查找字典了，仅对F列为空的单元格进行字典查找，代码又该怎么写呢？

xdxiaodou

学习中，留个痕迹。