excel vba： 统计单元格区域公式中包含某个字符串的单元格个数

Question

用VBA统计出excel单元格区域A5:C20公式中含“车间”的单元格个数，如何编写？

Answer 1

如果光这个功能，用公式就可以的 =countif(a5:C20,"*车间*")用VBA的话，是这样子 Sub GetNum()
Dim Rng As Range, TempRng As Range
Dim Cnt%
Set Rng = Sheets("你的表名").Range("A5:C20")
For Each TempRng In Rng
If InStr(1, TempRng.Value, "车间") > 0 Then Cnt = Cnt + 1
Next
MsgBox "有“车间”字符的单元格个数为：" & Cnt
End Sub