文字列の中から特定の文字列の数を調べるには？ (ID:125234)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まぁ記憶をするのが大変ならば、記憶をしなけりゃいいじゃん〜 ということで、さんぷる〜 Dim strHoge As String '文字列 Dim strChar As String '文字 Dim IntCnt As Integer '汎用カウンタ IntCnt = 0 Do While Not (Len(strHoge) = 0) If InStr(strHoge, strChar) > 0 Then IntCnt = IntCnt + 1 TenNo = Right(strHoge, Len(strHoge) - InStr(strHoge, strChar)) Else strHoge = "" End If Loop 何も考えず書いたけれど、こんなイメージで