Hsieh

¸Õ¸Õ¦Û©w¸q¨ç¼Æ

1. Function MyCount(Rng As Range, cnt%) As Long
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. 
   
5. For i = 1 To Rng.Count
   
6.    If Rng(i) = 0 Then d(i) = i
   
7. Next
   
8. For i = 1 To Rng.Count
   
9.    If d.exists(i) = False Then
   
10.    k = k + 1
    
11.    Else
    
12.    d1(k) = d1(k) + 1: k = 0
    
13.    End If
    
14.    If i = Rng.Count Then d1(k) = d1(k) + 1
    
15. Next
    
16. MyCount = d1(cnt)
    
17. End Function

½Æ»s¥N½X

B5=mycount($I5:$AB5,B$4)¦V¤U¦V¥k½Æ»s
²Î­p²Ö¿n1¼Æ¦¸°ÝÃD.rar (11.97 KB)

¤U¸ü¦¸¼Æ: 4

2010-8-18 00:00