Function统计字符串出现次数(sourceStrAsString,searchStrAsString)AsLongOnErrorGoToError_Handler统计字符串出现次数=UBound(Split(sourceStr,searchStr))Error_Handler_Exit:OnErrorResumeNextExitFunctionError_Handler:ResumeError_Handler_ExitFunction

测试

Subtest()msg="出现"统计字符串出现次数("大家好，我是笨笨，笨笨的笨，笨笨的笨，谢谢！","笨")"次"MsgBoxmsg,vbOKOnly+vbInformation,"统计出现次数"Sub

Function统计字符串出现次数(sourceStrAsString,searchStrAsString)AsLong

OnErrorGoToError_Handler

统计字符串出现次数=UBound(Split(sourceStr,searchStr))

Error_Handler_Exit:

OnErrorResumeNext

ExitFunction

Error_Handler:

ResumeError_Handler_Exit

Function