文字検索 の文字の数を調べるには？ (ID:82687)

名前

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

本文 InStr([開始位置,]文字列,検索文字[,比較モード]) ですので INSTR(moji,"k") で見つかった位置＋１を 次の開始位置にしてゼロになるまで（これ以上は無い） For 文で探してカウントしたら如何ですか？ 又は下記でやってみるとか。 Dim moji As String Dim dat() As String Dim kazu As Integer moji = "qqqqqkqqkkqqqkqqqq" dat = Split(moji, "k") kazu = UBound(dat)