[已解决]如何统计二维数组的相同元素的个数

f1red88

怎么统计该数组的相同元素的个数
Sub c1()
Dim x, y As Integer
For x = 0 To 4
   For y = 0 To 9
   
     m(x, y) = Int(Rnd() * 10)
  
   Next
   
Next
sub
实现在循环中做统计，不是得出结果再统计

最佳答案

月排行榜 / 总排行榜

grf1973

2014-5-15 09:15

我猜是这个意思。

1. Sub c1()
   
2.     Dim x, y As Integer
   
3.     Dim m(0 To 4, 0 To 9) As Integer
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For x = 0 To 4
   
6.        For y = 0 To 9
   
7.          m(x, y) = Int(Rnd() * 10)
   
8.          d(m(x, y)) = d(m(x, y)) + 1
   
9.        Next
   
10.     Next
    
11.     ActiveSheet.UsedRange.ClearContents
    
12.     [a1].Resize(5, 10) = m
    
13.     [a7].Resize(1, 2) = Array("相同元素", "出现次数")
    
14.     [a8].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
15.     [b8].Resize(d.Count, 1) = Application.Transpose(d.items)
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

su45

咱也没看明白统计什么东东！

grf1973

我猜是这个意思。

1. Sub c1()
   
2.     Dim x, y As Integer
   
3.     Dim m(0 To 4, 0 To 9) As Integer
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For x = 0 To 4
   
6.        For y = 0 To 9
   
7.          m(x, y) = Int(Rnd() * 10)
   
8.          d(m(x, y)) = d(m(x, y)) + 1
   
9.        Next
   
10.     Next
    
11.     ActiveSheet.UsedRange.ClearContents
    
12.     [a1].Resize(5, 10) = m
    
13.     [a7].Resize(1, 2) = Array("相同元素", "出现次数")
    
14.     [a8].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
15.     [b8].Resize(d.Count, 1) = Application.Transpose(d.items)
    
16. End Sub
    

复制代码

grf1973

请看附件。

香川群子

1. Sub c1()
   
2.     Dim m(4, 9), c(9) '定义i结果数组m和统计数组c
   
3.     For x = 0 To 4
   
4.        For y = 0 To 9
   
5.          t = Int(Rnd() * 10) '随机取值范围 0-9
   
6.          m(x, y) = t '写入结果数组m 【这一步可以省略】
   
7.          c(t) = c(t) + 1 '用数组c直接统计0-9的出现次数
   
8.        Next
   
9.     Next
   
10.     [a1].Resize(, 10) = c '第1行中输出 0-9出现次数的统计结果
    
11.     [a3].Resize(5, 10) = m  '第3行开始输出数组m的随机取值结果
    
12. End Sub
    

复制代码

香川群子

grf1973 发表于 2014-5-15 09:15
我猜是这个意思。

如果统计对象就是数字，则不需要用到字典。

grf1973

香川群子 发表于 2014-5-15 16:11
如果统计对象就是数字，则不需要用到字典。

很对，直接把产生的随机数作为数组下标。

hyqzzs

香川群子 发表于 2014-5-15 16:11
如果统计对象就是数字，则不需要用到字典。

佩服，真巧妙

su45

楼主都没来表态呀！