这是专门为你设计的程序，其中的'是英文的半角字符。
**********************************************
Sub count_symbols()
Sheets("sheet1")。Select
astring = Cells(1, 1)
stringlenth = Len(astring)
inputstring = InputBox(Message, Title)
looptime = 0
showposition = 0
Do While showposition 0 Then
MsgBox "你要查找的符号‘" & inputstring & "’出现" & looptime & "次"
Else
MsgBox "此单元格中没有你要查找的字符" & inputstring
End If
End Sub
******************************************
有问题请发消息。
祝你成功！
-----------------------------------------
补充：
我把我做的表格上传上来了，打开即可用。
-----------------------------------------
补充：
如果你希望在旁边的单元格里显示结果，下
面的表格可以做到。
全部
