作者：乔山办公网日期：
返回目录：excel表格制作
建立一个宏，或一个按钮7a64e58685e5aeb9363输入以下代码就行了
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
太多方法了，提供两种供你。
特定字符是文本时要加""双引号引起来，如：
=COUNT(FIND("大",A1:A10))
就是说在百A1:A10的字符串中中查找“大”，如果能找到，就返回大在度字符串中出现的位置，比如大在A1中是第三个字符，问那么就返回3，如果没有找到“大”这个字符，将返回错误值。
count()函数是统计一个数组或答区域中数字的个数，文本、错误值和逻辑值都专不会被统计，所以上面的公式最后得到的属就是包含“大”的单元格个数。
可以使用LEN函数，其功能是返回文本字符知串中的字符数,语法格式为Len(text)。参数text：为必需参数，表示要查找其长度的文本，空格将作为字符进行计数。
1、例如要统计A1单元道格专中we出现的次数，在B1单元格输入we；
2、在选择一单元格存放次数，输入公式=(LEN(A1)-LEN(SUBSTITUTE(A1,B1,"")))/LEN(B1)；
3、点击enter键得到计算结果为2次，结果正确。
汉字的查找属使用同样方式也可得到结果。
=COUNTIF(B:B,"*工艺*")