VBA把自定义函数改成SUB 计算最大连续

laoau138

VBA把自定义函数改成SUB  计算最大连续

望帝春心

1. =MAX(FREQUENCY(IF(F$6:F$22=H10,ROW($1:$17)),IF(F$6:F$22<>H10,ROW($1:$17))))

复制代码

函数数组公式

望帝春心

1. Sub test()
   
2. arr = [f6:f22]
   
3. brr = [h10:h14]
   
4.    For i = 1 To UBound(brr)
   
5.         rst = 0
   
6.         cnt = 0
   
7.         For j = 1 To UBound(arr)
   
8.             If arr(j, 1) = brr(i, 1) Then
   
9.                 cnt = cnt + 1
   
10.             Else
    
11.                 cnt = 0
    
12.             End If
    
13.             If rst < cnt Then
    
14.                 rst = cnt
    
15.             End If
    
16.         Next
    
17.         Cells(9 + i, "m") = rst
    
18.     Next
    
19. End Sub

复制代码

简单改了下

laoau138

望帝春心 发表于 2017-2-3 16:30
简单改了下

VBA计算最大连续再改写   前面再加H列属性   结果如N列

例如统计数据F6至F22(统计条件H10等于"正生",最大连续"正生次"数为2,I10自动输出2.

自定义函数结果保存J列, SUB答案保存M列   如何改写成N列这样

laoau138

望帝春心 发表于 2017-2-3 16:22
函数数组公式

公式VBA你都懂了

望帝春心

laoau138 发表于 2017-2-3 18:12
VBA计算最大连续再改写   前面再加H列属性   结果如N列

例如统计数据F6至F22(统计条件H10等于"正生", ...

Cells(9 + i, "m") =  rst改成这样Cells(9 + i, "m") = brr(i, 1) & rst

laoau138

望帝春心 发表于 2017-2-3 18:34
Cells(9 + i, "m") =  rst改成这样Cells(9 + i, "m") = brr(i, 1) & rst

用VBA数组计算多列最大连续次数


这个怎样做