[已解决]请教统计问题

yvll

请教统计问题。谢谢！
统计跟随数字.rar (8.34 KB, 下载次数: 11)

2016-11-28 19:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2016-11-28 19:37

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, m&, n%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. ks = [t1]
   
5. arr = Range("d3").CurrentRegion
   
6. For j = 1 To UBound(arr, 2)
   
7.     h = (j - 1) * 13 + 4
   
8.     brr = Cells(h, "h").Resize(12, 10)
   
9.     For i = UBound(arr) - ks + 1 To UBound(arr) - 1
   
10.         zf = "数字" & arr(i, j) & ",跟随" & arr(i + 1, j)
    
11.         d(zf) = d(zf) + 1
    
12.     Next
    
13.     For m = 3 To UBound(brr)
    
14.         For n = 2 To UBound(brr, 2)
    
15.             zf = brr(m, 1) & "," & brr(2, n)
    
16.             brr(m, n) = d(zf)
    
17.         Next
    
18.     Next
    
19.     Cells(h, "h").Resize(12, 10) = brr
    
20.     d.RemoveAll
    
21. Next
    
22. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, m&, n%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. ks = [t1]
   
5. arr = Range("d3").CurrentRegion
   
6. For j = 1 To UBound(arr, 2)
   
7.     h = (j - 1) * 13 + 4
   
8.     brr = Cells(h, "h").Resize(12, 10)
   
9.     For i = UBound(arr) - ks + 1 To UBound(arr) - 1
   
10.         zf = "数字" & arr(i, j) & ",跟随" & arr(i + 1, j)
    
11.         d(zf) = d(zf) + 1
    
12.     Next
    
13.     For m = 3 To UBound(brr)
    
14.         For n = 2 To UBound(brr, 2)
    
15.             zf = brr(m, 1) & "," & brr(2, n)
    
16.             brr(m, n) = d(zf)
    
17.         Next
    
18.     Next
    
19.     Cells(h, "h").Resize(12, 10) = brr
    
20.     d.RemoveAll
    
21. Next
    
22. End Sub

复制代码

yvll

dsmch 发表于 2016-11-28 19:37

精彩，非常好，谢谢！

yvll

dsmch 发表于 2016-11-28 19:37

又仔细校对一遍，好像跟随9都没有

yvll

找到问题了，代码第8、19行括号中的10改为11就行了。