文字列の中に指定の文字が何回出てくるか調べる関数

表題の通り、文字列の中に指定の文字が何回出てくるか調べるユーザ定義関数です。マクロ入りブックでしか使えません。

今プログラム作っているのですが、備忘のため、残しておきます。

使用するコード

Function findNumber(string1 As String, string2 As String)
    Dim N As Long, cnt As Long
    N = InStr(1, string1, string2)
    Do While N > 0
        cnt = cnt + 1
        N = InStr(N + 1, string1, string2)
    Loop
    findNumber = cnt
End Function

解説

文字列の中に指定の文字が何回出てくるかを検索します。

引数の string1 は検索元の文字列、string2 は検索対象文字列 を入力します。

例えば、findnumber(“AAA”,”A”) と入力すれば、３が返ってきます。