主要代码：

Public Function WordFrequency(ByVal Lyric As String, ByVal Word As String) As String
    Dim arr As Variant
    Dim brr As Variant
    Dim i As Long
    Dim countChar As Long
    
    If Lyric = "" or Word = "" Then Exit Function
    If InStrRev(Word, "|") = 0 Then Exit Function
    arr = Split(Word, "|")
    For i = 0 To UBound(arr) - 1
        brr = Split(Lyric, arr(i))
        countChar = UBound(brr) - LBound(brr)
        WordFrequency = WordFrequency & "“" & arr(i) & "”" & "出现次数：" & countChar & vbCrLf
    Next i

End Function

示例演示：

附件下载：

点击下载此附件