Office TANAKA - Excel VBA Tips[文字列内の文字をカウントする]たとえば、ある文字列の中に、任意の文字が存在するかどうかは、InStr関数で判定できます。下のコードは、"ABC,DEF"の中に","が存在するかどうかを判定します。 Sub Sample1() Dim buf As String buf = "ABC,DEF" If InStr(buf, ",") > 0 Then MsgBox "存在します" Else MsgBox "存在しません" End If End Sub InStr関数は、検索する文字列(ここでは",")が何文字目に存在するかを返しますので、InStr関数の結果が0より大きいときは、存在するということです。もし、検索する文字列が複数存在した場合、InStr関数は最初に見つかった位置を数値で返します。 Sub Sample2() Dim buf As String, n As Long buf = "ABC,DEF,GHI" n
