在单个单元格中查找多个短语计数

Question

我需要的东西计算某个短语在单个单元格中出现的次数。

单元格B5包含值＆＃34;测试123测试1234＆＃34;

Sub count()
ival = Application.WorksheetFunction.CountIf(Range("B5"), "Test")
MsgBox ival
End Function

这将返回＆＃34; 0＆＃34;因为它不完全匹配。我想要一些重要的事情＆＃34;测试＆＃34;在单元格中并正确返回2作为值。

Answer 1

结合Split和Ubound

将字符串拆分为基于零的一维子串数组，然后使用ubound找到该数组的上限

Sub count()
 Dim count As Integer
 count = UBound(Split(Range("B5"), "123"))
 MsgBox count
End Sub