关于字典的：请教一下这行代码是什么意思？

cyh_119

      背景：统计每列数字的走势（见附件说明）。比如第1位0到1出现过多少次，即从上往下统计，上次是0下次是1出现过几次，依此类推，0－2多少次，……9－9多次，每位数（每列）单独统计，从0－0到9－9共100种走势，1－7位数按上述情况重复。
      如下代码运用字典，很巧妙的实现了这个功能，但红色标注的一行代码有点不理解，不知实现什么功能，请指点：

Sub 统计数字走势()
     Dim i%, d
     Set d = CreateObject("Scripting.Dictionary")
      For i = 2 To [a65536].End(3).Row - 1
      d(Range("a" & i).Value & "-" & Range("a" & i + 1).Value) = d(Range("a" & i).Value & "-" & Range("a" & i + 1).Value) + 1
      Next i
     [m1].Resize(d.Count, 1) = Application.Transpose(d.keys)
    [n1].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

2E-er

这就是一个基础的累加。

micch

每一行与下一行（i+1）连接组合，比如：  a2-a3,a3-a4，连接的字符串加入字典，计数。  数据不多countifs就可以，数据多操作单元格range也够慢的

山菊花

循环程序中，当i=2时：
Range("a" & i).Value = 4
Range("a" & i + 1).Value = 7

这一行长长的代码，相当于：        
d("4-7") = d("4-7") + 1

这一句的作用是统计数据中"4-7"出现的次数，如果是人工操作，你会在这N37单元格中记上1（原来是空白），当下一次出现"4-7"时，把1改为2。代码的作用就是把次数加1，再保存到字典d("4-7")条目中。

cyh_119

山菊花 发表于 2020-1-10 07:47
循环程序中，当i=2时：
Range("a" & i).Value = 4
Range("a" & i + 1).Value = 7

谢谢。这个明白了。我不明白的是， "4-7"是字典的关键字，写成d("4-7") 就是直接就对"4-7"出现的次数进行计数吗？这是怎么实现的呢？

山菊花

cyh_119 发表于 2020-1-10 09:15
谢谢。这个明白了。我不明白的是， "4-7"是字典的关键字，写成d("4-7") 就是直接就对"4-7"出现的次数进行 ...

代码在启动以后，就像人的脑子一样，会思考、会判断、会执行。
按F8逐行执行代码，打开本地窗口，观看执行过程。
它就是这样实现的，无它。

zc123zc

等号前面d("4-7") 的意思就是把"4-7" 加入字典关键字集合，等号后面的d("4-7") 代表的是这个关键字对应的值，第一次加入，默认是空，相当于等于0.

cyh_119

zc123zc 发表于 2020-1-10 10:01
等号前面d("4-7") 的意思就是把"4-7" 加入字典关键字集合，等号后面的d("4-7") 代表的是这个关键字对应的值 ...

应该前后都表示值吧？不然怎么能把值赋给关键字呢？

excel海

山菊花 发表于 2020-1-10 07:47
循环程序中，当i=2时：
Range("a" & i).Value = 4
Range("a" & i + 1).Value = 7

总版主威武

excel海

cyh_119 发表于 2020-1-10 09:15
谢谢。这个明白了。我不明白的是， "4-7"是字典的关键字，写成d("4-7") 就是直接就对"4-7"出现的次数进行 ...

“4-7”是一个整体作为key，因为他取的就是本单元格和下一个单元格的值来组合，就贴合了你的本次出现4，下次出现7的要求。本单元格是4，下一个单元格是7，那么久计数1次，下次再出现本单元格是4，下一个单元格是7的情况，计数就+1，这样就达到了你的要求