將代碼復制到壹個普通的VBA模塊中,然後返回到工作表,可以像使用普通函數壹樣進行計數。
選項?明確的
功能?sCount(ByVal?rng?作為?範圍)?作為?整數
暗淡?arr()?作為?整數
暗淡?r?作為?範圍
暗淡?我?作為?整數,?k?作為?整數
斯考特?=?0
如果?rng。數數?& lt?3?然後呢?退出?功能
雷迪姆?arr(1?去哪?rng。計數)
為了什麽?每個?r?在?皇族永不言棄(Royal Never Give Up 電子競技俱樂部)
k?=?k?+?1
arr(k)?=?r值
下壹個?r
為了什麽?我?=?LBound(arr)?去哪?UBound(arr)?-?2
如果?CInt(arr(i))?=?0?然後呢。CInt(arr(i?+?1))?=?0?然後呢。CInt(arr(i?+?2))?=?0?然後呢?斯考特?=?斯考特?+?1
下壹個?我
結束?功能