[已解决]提取最大值

yilang521

求一个和max类似的自定义函数，提取字符串最大值=zlb（nubmber1,number2....）

最佳答案

月排行榜 / 总排行榜

cbg2008

2014-6-25 21:30

1. Function zlb(ParamArray rng())
   
2.     Dim arr1, str, arr2
   
3.     For Each arr1 In rng
   
4.     For Each arr2 In arr1
   
5.         If arr2 = "类别" Then GoTo 100
   
6.         If arr2 > str Then
   
7.             str = arr2
   
8.         End If
   
9. 100:
   
10.     Next arr2
    
11.     Next arr1
    
12.     zlb = str
    
13. End Function

复制代码

跳转到最佳答案楼层

cbg2008

1. Function zlb(ParamArray rng())
   
2.     Dim arr1, str, arr2
   
3.     For Each arr1 In rng
   
4.     For Each arr2 In arr1
   
5.         If arr2 = "类别" Then GoTo 100
   
6.         If arr2 > str Then
   
7.             str = arr2
   
8.         End If
   
9. 100:
   
10.     Next arr2
    
11.     Next arr1
    
12.     zlb = str
    
13. End Function

复制代码

緣来如此

学习了

tgydslr

学习自定义函数