解释代码的意思及作用

sa12sa12

以下代码是在论坛里看的一个贴子，觉的很实用，但代码的意思及作用不是很清楚，想请教一下
Dim arr, brr(), d As Object, i&, s$
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets("匹配数据表").Range("A1").CurrentRegion
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    arr = Range("A1").CurrentRegion
    ReDim brr(2 To UBound(arr), 1 To 1)
    For i = 2 To UBound(arr)
        s = arr(i, 2) & arr(i, 3) & arr(i, 4)
        If d.Exists(s) Then
            brr(i, 1) = d(s)
        Else
            brr(i, 1) = "#N/A"
        End If
    Next
    Range("E2").Resize(i - 2) = brr

jiminyanyan

字典,搜一下蓝老师的字典帖子

jiminyanyan

http://club.excelhome.net/thread-868892-1-1.html

lsc900707

结合实例更容易理解代码的意思。

小花鹿

很经典的字典应用..............................................................................................................

sa12sa12

小花鹿 发表于 2017-4-27 22:26
很经典的字典应用.................................................................................... ...

这段代码有几句是能够明白的，但下面几句不太明白，能说明一下吗
d(arr(i, 1)) = arr(i, 2)
ReDim brr(2 To UBound(arr), 1 To 1)动态数组brr的指定区域的范围
brr(i, 1) = d(s)这句是什么意思，
Range("E2").Resize(i - 2) = brr

半百

d(arr(i, 1)) = arr(i, 2)   '添加arr(i, 1)为字典的项，并将arr(i, 2)指定为该项的值
ReDim brr(2 To UBound(arr), 1 To 1)动态数组brr的指定区域的范围
brr(i, 1) = d(s)这句是什么意思，'s是字典d的其中一个项d(s)就是这个项s对应的值，将这个值赋值给数组的某个元素
Range("E2").Resize(i - 2) = brr'将数组写入单元格区域
整过程大概就是模仿VLOOKUP函数的吧。

sa12sa12

半百 发表于 2017-4-28 11:34
d(arr(i, 1)) = arr(i, 2)   '添加arr(i, 1)为字典的项，并将arr(i, 2)指定为该项的值
ReDim brr(2 To UBo ...

动态数组brr的指定区域的范围是什么，

sa12sa12

sa12sa12 发表于 2017-4-28 14:13
动态数组brr的指定区域的范围是什么，

动态数组brr的指定区域的范围
d(s)不是把关键字s加入字典的意思吗

lr116529111

sa12sa12 发表于 2017-4-28 14:17
动态数组brr的指定区域的范围
d(s)不是把关键字s加入字典的意思吗

s 是变量，是字典里面的key，每个key对应一个item
d(s)是指字典里面的key (s)对应的item

brr区域范围是指 这个数组有多少行，多少列
ubound（arr）是指arr这个数组有多少行，
1 to 1 指数组只有1列