將代碼復制到壹個普通的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
下壹個？我
結束？功能