用VBA数组统计B列 上一行出现同尾数 下一行跟尾数字总次数

laoau138

用VBA数组统计B列  上一行出现同尾数 下一行跟尾数字总次数

B列数字(范围从1-36,按两位数字格式)  例如01  第一位"0为头数", 第二位"1为尾数"
例如:01 11  21  31............这4个数字，当作"尾数1"  其它如此类推

跟尾统计B列, 上一行出现同尾数   下一行跟尾数字总次数.............主要计算这个
例如: 要计算上期"尾数1",下期1-36个数字的跟尾次数

现在:  看B列黄底单元格,  上一行为"尾数1",
       下一行数字3跟尾一共3次(01跟尾03，01跟尾03，31跟尾08)
       看B列绿底单元格, 上一行为"尾数1",
        下一行数字8跟尾一共1次(31跟尾08)         部分模拟结果保存看下表     主要计算工

lmze2000

1. Sub Tj()
   
2.     Dim Arr, Brr
   
3.     Arr = [a1].CurrentRegion
   
4.     ReDim Brr(1 To 36, 0 To 9)
   
5.     For i = 0 To 9
   
6.         For j = 2 To UBound(Arr) - 1
   
7.             If CInt(Right(Arr(j, 2), 1)) = i Then
   
8.                 Brr(Arr(j + 1, 2), i) = Brr(Arr(j + 1, 2), i) + 1
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     [h3].Resize(36, 10).ClearContents
    
13.     [h3].Resize(36, 10) = Brr
    
14.     MsgBox "统计完成"
    
15. End Sub
    

复制代码

laoau138

lmze2000 发表于 2017-1-27 20:55

写得好清楚了

laoau138

lmze2000 发表于 2017-1-27 20:55

VBA用数组计算D列可能出现颜色


拖动表格看下面就可以



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