d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","的含义？

bjbxm97

刚在学字典，蓝桥玄霜的一个例子，不能理解（红线部分），还请各位高手不惜赐教，最好能够介绍一下：Sub cfz()Dim i&, Myr&, Arr, j&, aaDim d, k, t, m&, Arr1Set d = CreateObject("Scripting.Dictionary")Myr = Sheet1.[a65536].End(xlUp).RowArr = Sheet1.Range("a1:g" & Myr)For i = 2 To UBound(Arr)    If Left(Arr(i, 2), 3) = "禾丰镇" Then        d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","    ElseIf Left(Arr(i - 1, 2), 3) = "禾丰镇" Then        d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","    End IfNextk = d.keyst = d.itemsReDim Arr1(1 To UBound(Arr), 1 To 2)For i = 0 To UBound(k)    t(i) = Left(t(i), Len(t(i)) - 1)    If InStr(t(i), ",") > 0 Then        aa = Split(t(i), ",")        For j = 0 To UBound(aa)            m = m + 1            Arr1(m, 1) = k(i)            Arr1(m, 2) = Arr(aa(j), 2)        Next    End IfNextSheet2.Activate[a:b].ClearContents[a2].Resize(UBound(Arr1), 2) = Arr1[a1].Resize(1, 2) = Array("姓名", "地址")End Sub

bjbxm97

希望哪位高手能够稍微详细介绍一下过程。万分感谢！

zhaogang1960

d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","
用字典记住每个Arr(i, 3)所在的行号。
假设i=5时，Arr(i, 3)假设是“ 办公室”，第一次出现，即字典不存在，这时d(Arr(i, 3))=""，该表达式就是：
d("办公室") = "" & 5 & ","——d("办公室") = "5,"
i=9再次遇见"办公室"，这时字典已经存在了，该表达式就是：
d("办公室") ="5," & 9 &  ","——d("办公室") ="5, 9,"
…………
最后d("办公室")会记住所有办公室出现的行号："5, 9,……"

bjbxm97

万分谢谢！ zhaogang1960，你解释非常清晰：
另外，麻烦您在解说一下，  
For i = 0 To UBound(k)   
t(i) = Left(t(i), Len(t(i)) - 1)   
If InStr(t(i), ",") > 0 Then        aa = Split(t(i), ",")        
For j = 0 To UBound(aa)            
m = m + 1            
Arr1(m, 1) = k(i)            
Arr1(m, 2) = Arr(aa(j), 2)        
Next

zhaogang1960

bjbxm97 发表于 2014-5-19 16:53
万分谢谢！ zhaogang1960，你解释非常清晰：
另外，麻烦您在解说一下，  
For i = 0 To UBound(k)   

For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1) '去掉最右边多余的逗号
If InStr(t(i), ",") > 0 Then '含有逗号
    aa = Split(t(i), ",") '用逗号为分隔符把字典记住的行号分割为一个一维数组
    For j = 0 To UBound(aa) '逐个行号
    m = m + 1 '加一行
    Arr1(m, 1) = k(i) '字典键值
    Arr1(m, 2) = Arr(aa(j), 2) '该行号对应的值——具体是什么不知道
End If
Next

bjbxm97

zhaogang1960 发表于 2014-5-19 17:03
For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1) '去掉最右边多余的逗号
If InStr(t(i), "," ...

谢谢！之前看了好一会，没有理解，您帮了我大忙了，万分谢谢！

bjbxm97

之前在网上找了很久，没有帖子能像 zhaogang1960 解释这么清晰的，相信这对很多初学的朋友很有用。

jiminyanyan

赵老师解释的好。。。。

nikonmonarch

zhaogang1960 发表于 2014-5-19 16:41
d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","
用字典记住每个Arr(i, 3)所在的行号。
假设i=5时，Arr(i, 3)假设 ...

太感谢了，正在疑惑呢，终于理解了。

ahhsqmtfhtpl

zhaogang1960 发表于 2014-5-19 17:03
For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1) '去掉最右边多余的逗号
If InStr(t(i), "," ...

感谢你的解释。