文字列を検索する

今回は文字列の検索についてメモしておきます。

ある文字列の中から指定された文字列を検索するには、InStr関数／InStrRev関数を使います。
Instr関数とInstrRev関数の構文は同じではないので注意が必要です。(パラメータの順序)

文字列の先頭から検索する

先頭から検索する場合はInStr関数を使います。

実行プログラム

Sub Sample5_9_1()

    MsgBox CStr(InStr(Cells(1, 1).Value, "many")) & "文字目"

End Sub

Sub Sample5_9_1()

MsgBox CStr(InStr(Cells(1, 1).Value, "many")) & "文字目"

End Sub

実行前

実行後

ここでは、14文字目を開始位置として指定しています。

実行プログラム

Sub Sample5_9_2()

    MsgBox CStr(InStr(14, Cells(1, 1).Value, "many")) & "文字目"

End Sub

Sub Sample5_9_2()

MsgBox CStr(InStr(14, Cells(1, 1).Value, "many")) & "文字目"

End Sub

実行前

実行後

最後から検索する場合はInStrRev関数を使います。

実行プログラム

Sub Sample5_9_3()

    MsgBox CStr(InStrRev(Cells(1, 1).Value, "many")) & "文字目"

End Sub

Sub Sample5_9_3()

MsgBox CStr(InStrRev(Cells(1, 1).Value, "many")) & "文字目"

End Sub

実行前

実行後

ここでは、19文字目を開始位置として指定しています。

実行プログラム

Sub Sample5_9_4()

    MsgBox CStr(InStrRev(Cells(1, 1).Value, "many", 19)) & "文字目"

End Sub

Sub Sample5_9_4()

MsgBox CStr(InStrRev(Cells(1, 1).Value, "many", 19)) & "文字目"

End Sub

実行前

実行後

大文字小文字、全角半角、カタカナ平仮名を区別せずに検索することも可能です。

実行プログラム

Sub Sample5_9_5()

    MsgBox CStr(InStr(1, Cells(1, 1).Value, "Aｂあイ", vbTextCompare)) & "文字目"

End Sub

Sub Sample5_9_5()

MsgBox CStr(InStr(1, Cells(1, 1).Value, "Aｂあイ", vbTextCompare)) & "文字目"

End Sub

実行前

実行後

memo バイナリ比較、テキスト比較の考え方については、前項を参照してください。
(2つの文字列を比較する)