[已解决]哪位大侠能帮忙看一下一个数组组合统计的问题

sjz0

见附件，小弟想了很久也搞不定，求高手

多谢，多谢，

最佳答案

月排行榜 / 总排行榜

grf1973

2014-5-16 10:56

请看附件。

跳转到最佳答案楼层

as0810114

=COUNTIF(A:A,"*"&D1&"*")

grf1973

用公式的话，如果同一行有相同数就会漏统计。用代码如下：

1. Sub tt()
   
2.     r = [a65536].End(3).Row
   
3.     arr = Range("a1:a" & r)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 1)
   
7.         xrr = Split(x, " ")
   
8.         For j = 0 To UBound(xrr)
   
9.             xkey = Val(xrr(j))
   
10.             d(xkey) = d(xkey) + 1
    
11.         Next
    
12.     Next
    
13.     brr = [d1:e40]
    
14.     For i = 1 To 40
    
15.         brr(i, 2) = d(Val(brr(i, 1)))
    
16.     Next
    
17.     [d1:e40] = brr
    
18. End Sub
    

复制代码

grf1973

请看附件。

ppp710715

正则表达式+字典