VBA实现单列数字跟随总次数统计

laoau138

VBA实现单列数字跟随总次数统计

有函数公式改成     用VBA数组方法做

grf1973

1. Sub tt()
   
2.     arr = Range("c11:c" & [c65536].End(3).Row)
   
3.     x = [j10]
   
4.     Dim brr(1 To 6)
   
5.     For i = 1 To 6
   
6.         brr(i) = 0
   
7.     Next
   
8.     For i = 1 To UBound(arr) - 1
   
9.         If arr(i, 1) = x Then brr(arr(i + 1, 1)) = brr(arr(i + 1, 1)) + 1
   
10.     Next
    
11.     [J13].Resize(, 6) = brr
    
12. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-9-16 20:30

解决了这条

laoau138

grf1973 发表于 2016-9-16 20:30

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

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


这两条怎样做