[已解决]统计不同元素的个数，数组添加时没有结果

f1red88

大灰狼1976 发表于 2014-6-10 12:50
数据小的时候字典比较慢，这个结论不知你从哪里得来的，
即使是正确的，你也说了“数据小”，差个0.0几秒你 ...

删除相同元素的标题，r=1取消默认，数组brr(r,2)为何会错
Sub fangli2()
Dim x&, y&, array1(1 To 51, 1 To 1) As Long, brr(1 To 51, 1 To 2), d As Object, r&
r = 1
brr(1, 1) = "相同元素": brr(1, 2) = "出现次数" '这句删除后屏蔽错误
Set d = CreateObject("scripting.dictionary")
For x = 1 To 5
  For y = 1 To 10
    If x Mod 2 = 1 Then
      xt = xt + 1
      array1(xt, 1) = y + x
      If Not d.exists(array1(xt, 1)) Then
        r = r + 1
    brr(r, 1) = array1(xt, 1)
        brr(r, 2) = 1  '这里屏蔽为何会错
        d(array1(xt, 1)) = r
      Else
        brr(d(array1(xt, 1)), 2) = brr(d(array1(xt, 1)), 2) + 1
      End If
    End If
  Next
Next
[A1].Resize(25, 1) = array1
[c7].Resize(d.Count, 2) = brr
End Sub

大灰狼1976

r=1的原因是我要将r从2开始（通过r=r+1），因为第1行是标题，已经赋值了