返回列表 上一主題 發帖

[發問] 統計指定區域累積1數次問題

[發問] 統計指定區域累積1數次問題

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

統計累積1數次問題.rar (2.95 KB)

試試自定義函數
  1. Function MyCount(Rng As Range, cnt%) As Long
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Set d1 = CreateObject("Scripting.Dictionary")

  4. For i = 1 To Rng.Count
  5.    If Rng(i) = 0 Then d(i) = i
  6. Next
  7. For i = 1 To Rng.Count
  8.    If d.exists(i) = False Then
  9.    k = k + 1
  10.    Else
  11.    d1(k) = d1(k) + 1: k = 0
  12.    End If
  13.    If i = Rng.Count Then d1(k) = d1(k) + 1
  14. Next
  15. MyCount = d1(cnt)
  16. End Function
複製代碼
B5=mycount($I5:$AB5,B$4)向下向右複製
統計累積1數次問題.rar (11.97 KB)
學海無涯_不恥下問

TOP

回復 2# Hsieh


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

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

TOP

        靜思自在 : 好事要提得起,是非要放得下,成就別人即是成就自己。
返回列表 上一主題