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

建立一个宏，或一个按钮输入以下代码就行了
d = 0
With ActiveSheet.Range("a5:c20")
Set c = .Find("车间", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
d = d + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
msgbox d
第二种代码：
Dim b As Range
c = 0
With ActiveSheet.Range("a5:c20")
For Each b In Range("a5:c20")
Set d = b.Find("车间", LookIn:=xlValues)
If Not d Is Nothing Then
c = c + 1
End If
Next
End With
MsgBox c
太多方法了，提供两种供你。

示例公式：
=countif(a1:c100,*&"ABCD"&*)
示例公式统计A1:C100区域内有字符串ABCD的个数。
其中：OUNTIF函数统计单元格区域中满足给定条件的单元格的个数。语法结构为COUNTIF(rage,criteria)，参数range是需要统计符合条件单元格数目的单元格区域，参数criteria为指定的统计条件。

太高深了，不懂