Excel：计算单元格中的特定单词

Question

I am trying to count specific words in cell and display the total. I have searched and tried solutions of several similar questions but couldn't. Here in the example below Column A has the text, Column B has unique words (criteria for search) that need to be counted and Column C is the count. Please help

Example:

|     Column A          |     Column B      |   Column C    |
|  AA; BB; CC; AE; DE   |    AA; DE; CC     |      3        |

Answer 1

Consider:

Public Function StringCounter(sBig As String, sKeys As String) As Long

ary = Split(sBig, ";")
bry = Split(sKeys, ";")
StringCounter = 0

For Each b In bry
    If InStr(1, ";" & sBig & ";", ";" & b & ";") <> 0 Then
        StringCounter = StringCounter + UBound(Filter(ary, b)) + 1
    End If
Next b
End Function

For example:

If a word like AA appeared more than once in cell A1 , the function would count each occurrence .

EDIT#1:

This version will work with or without spaces:

Public Function StringCounter(sBig As String, sKeys As String) As Long

    sBig = Replace(sBig, " ", "")
    sKeys = Replace(sKeys, " ", "")

    ary = Split(sBig, ";")
    bry = Split(sKeys, ";")
    StringCounter = 0

    For Each b In bry
        If InStr(1, ";" & sBig & ";", ";" & b & ";") <> 0 Then
            StringCounter = StringCounter + UBound(Filter(ary, b)) + 1
        End If
    Next b
End Function