[算表] 自訂Countif函數寫法

作者: home0303 (Blue night)   2018-05-22 09:21:18
軟體:EXCEL
版本:2010
Function CountifMe(MyRange,MyCriteria)
For Each cell in MyRange
If cell = MyCriteria then 計數 = 計數 + 1
Next
CountifMe = 計數
End Function
一般情形下可正常使用 但有個問題是
當MyRange是整欄的情況下(如A:A)
函數會執行好一下子
當然這是可以理解的 畢竟For Each cell要跑100多萬遍
只是我就好奇 內建的Countif函數是用甚麼方式
即使範圍是整欄 仍然可以迅速計算結果呢
請指教 謝謝
作者: soyoso (我是耀宗)   2018-05-22 10:22:00
可將myrange的範圍調整一下,取得整欄或範圍的第一個儲存格,以range.cells(1,1)整欄最後有值的儲存格的,以range.end或range.find來回傳
作者: home0303 (Blue night)   2018-05-22 12:11:00
謝謝 我研究看看

Links booklink

Contact Us: admin [ a t ] ucptt.com