変数の中の特定の文字の出現回数を取得したい。

Sub test01()
Dim mystr As String

mystr = "a1a2a3"

Debug.Print WorksheetFunction.CountA(mystr, "a")

End Sub

のようなコードを作りました。
mystrの中に３つの「a」があります。

なので、CountA関数を使えば、3が返ると思ったのですが、2が返りました。
なぜ3ではなく2が返るのでしょうか？

CountA関数でなくてもいいので、
変数の中の特定の文字の出現回数を取得するコードを教えてください。

No.2 ベストアンサー 回答者： tom04 回答日時： 2014/11/21 23:41

こんばんは！

確かにCOUNTA関数を使うと、「a」がいくつあっても「2」が返ってきますね。

Sub Sample1()
Dim mystr As String
mystr = "a1a2a3"
Debug.Print Len(mystr) - Len(Replace(mystr, "a", ""))
End Sub

のような感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます。

お礼日時：2014/12/12 22:23

No.1 回答者： f272 回答日時： 2014/11/21 23:40

countAはそんなものを返す関数じゃないよ。

Debug.Print UBound(Split(mystr, "a"))
としてください。

この回答へのお礼

ありがとうございます。

お礼日時：2014/12/12 22:23