標題: [發問] 統計指定區域累積1數次問題 [打印本頁]

---

作者: jeff5424    時間: 2010-8-17 21:52     標題: 統計指定區域累積1數次問題

統計指定區域累積1數次問題
如附所示

---

作者: Hsieh    時間: 2010-8-18 00:00

試試自定義函數

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

複製代碼

B5=mycount($I5:$AB5,B$4)向下向右複製
[attach]2468[/attach]

---

作者: jeff5424    時間: 2011-8-15 21:21

回復 2# Hsieh


    首先感謝超級版主的解答,記得加入會員至今已經發問約6次,
   也學會很多,為增進論壇品質,今日已匯款成贊助會員(兩年)
   最後請超級版主可以幫忙以下的解答..謝謝
或使用其他方式解答

統計指定區域累積1數次多頁問題
http://forum.twbts.com/thread-4336-1-1.html

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)