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

Question

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

单元格 B5 包含值“测试 123 测试 1234”

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

这将返回“0”，因为它不是完全匹配。我想要计算单元格中“测试”的次数并正确返回 2 作为值的东西。

Answer 1

结合Split和 Ubound

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

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