VBA含有数字跟随次数统计

laoau138

VBA含有数字跟随次数统计

grf1973

1. Sub 统计()
   
2.     arr = Range("c11:h" & [c65536].End(3).Row)
   
3.     sz = [j10]   '指定数字
   
4.     Dim brr(1 To 1, 1 To 33)   '储存结果
   
5.     For i = 1 To UBound(arr) - 1
   
6.         For j = 1 To UBound(arr, 2)
   
7.             x = arr(i, j)
   
8.             If x = sz Then     '第i行含指定数字
   
9.                 For jj = 1 To UBound(arr, 2)
   
10.                     p = arr(i + 1, jj)      '下一行的各数
    
11.                     brr(1, p) = brr(1, p) + 1       '某数出现一次，Brr对应位置+1
    
12.                 Next
    
13.                 Exit For
    
14.             End If
    
15.         Next
    
16.     Next
    
17.     [J12].Resize(, 33) = brr
    
18. End Sub

复制代码

laoau138

grf1973 发表于 2016-9-13 09:50

写代码速度太惊人了，高手，

结果怎么没有显示0，只显示为空值

laoau138

grf1973 发表于 2016-9-13 09:50

VBA比较两个数据区每行几个数字相同提取

http://www.excelpx.com/thread-424421-1-1.html

wangxfei

学习学习