Benjamin_luk 的方法 :
Public Function CSNumber(myStr as String,myLetter as String) as integer
dim I as integer,J as integer
J=0
for I = 1 to Len(myStr)
if MID(myStr,I,1)=myLetter then
J=J+1
End if
Next
CSNumber=J
End Function
相关论坛贴子: http://www.office-cn.net/bbs/dispbbs.asp?boardid=2&id=21901
情比金坚的方法
strc = Len(name1) - Len(Replace(name1, ",", ""))
-------------------------------------------
收集于Office中国论坛