返回列表下一主題上一主題發帖

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

jeff5424

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-8-17 21:52 | 只看該作者

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

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

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

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-8-18 00:00 | 只看該作者

試試自定義函數

Function MyCount(Rng As Range, cnt%) As Long
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
For i = 1 To Rng.Count
If Rng(i) = 0 Then d(i) = i
Next
For i = 1 To Rng.Count
If d.exists(i) = False Then
k = k + 1
Else
d1(k) = d1(k) + 1: k = 0
End If
If i = Rng.Count Then d1(k) = d1(k) + 1
Next
MyCount = d1(cnt)
End Function

複製代碼

B5=mycount($I5:$AB5,B$4)向下向右複製

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

學海無涯_不恥下問

TOP

jeff5424

中學生 Rank: 2

帖子: 84
主題: 34
精華: 0
積分: 133
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 斗六
註冊時間: 2010-8-12
最後登錄: 2026-5-13

論壇贊助勳章

3^#

發表於 2011-8-15 21:21 | 只看該作者

回復 2# Hsieh

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

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

TOP

靜思自在 : 時時好心就是時時好日。

返回列表下一主題上一主題