Excel VBA InStrRev関数 文字列を後ろから検索

Excel VBAの「InStrRev関数」について解説します。

InStrRev関数とは

Excel VBA の InStrRev関数とは、対象文字列内に指定文字列が存在するかを後ろから検索し最初に見つかった位置を返します。返される位置は先頭から数えた位置です。

文字列の先頭から検索する InStr関数とは逆方向の検索です。その違いについても見ていきましょう。

InStrRev関数(Visual Basic for Applications リファレンス)

構文（引数と戻り値）

Excel VBAの関数を使いこなすには、関数の構文を正しく理解しておくことが重要です。

構文

※ [ ] 内の引数は省略可能であることを表しています。
※ 文字列の先頭から検索する InStr関数とは start の位置が違うので注意してください。

引数と戻り値

InStrRev関数の引数は次のとおりです。

InStrRev関数の戻り値は次のとおりです。

[compare] 比較モード

※ vbUseCompareOption（-1）と vbDatabaseCompare（2）という設定もありますが、まず使用することは無いと思いますので説明を省略しています。

解説

★ InStrRev で必須な引数(stringmatch と stringcheck)だけ指定した場合の動作は次とおりです。

• 検査対象の文字列(stringmatch)を後ろから前方に向かって検査します。
• 検索は、大/小文字、全/半角、ひらがな/カタカナを区別するバイナリモードです。
• 検査指定文字列(stringcheck)が最初に見つかった（先頭からの）位置を返します。
• 見つからなかった場合 0 を返します。

★ InStrRev で引数(start と compare)を指定した場合の動作は次とおりです。

• 検査対象の文字列(stringmatch)を指定(start)位置から先頭に向かって検査します。
• 検索モードは引数(compare)の指定に従います。省略時はバイナリモードです。
• バイナリモードは、大/小文字、全/半角、ひらがな/カタカナを区別します。
• テキストモードでは区別しないで検索します。
• 検査指定文字列(stringcheck)が最初に見つかった位置の数値を返します。
• 見つかった位置の数値は開始位置からの数値ではなく、先頭からの数値です。
• 見つからなかった場合 0 を返します。

見つかった場合1以上の数値、無かった場合0を返すということです。

使用例

InStr関数の解説で使った使用例を、InStrRev関数に置き換えてみる方法がわかりやすいと思いますのでやってみます。

省略できる引数を指定しない単純な例がこちらです。

Sub InStrRev_test1()
  Dim strCheck As String
  Dim strMatch As String
  strCheck = "ｱｲｳｴｵアイウエオ"
  strMatch = "ｱ"
  Debug.Print InStrRev(strCheck, strMatch)　' 1 を返します
End Sub

引数を省略した場合、実際には最後尾から検索(-1) と vbBinaryCompare(0) が指定されているのと同じです。

バイナリモードで最後尾から検索した結果、先頭からの位置の「1」が返ってきました。
これは、バイナリモードなので位置「6」の「ア」を読み飛ばしている結果ですね。

次に、検索モードの引数を vbTextCompare(1) で指定した場合の例です。開始位置は空欄で省略しているので「-1」が指定されているのと同じです。

Sub InStrRev_test2()
  Dim strCheck As String
  Dim strMatch As String
  strCheck = "ｱｲｳｴｵアイウエオ"
  strMatch = "ｱ"
  Debug.Print InStrRev(strCheck, strMatch, , vbTextCompare)　' 6 を返します
End Sub

テキストモードの場合、文字種（大文字／小文字や全角／半角など）を区別しないので、小文字で指定しても大文字にヒットしてしまうので、返される位置は「6」です。

では、同じテキストモードで開始位置を「5」に指定した場合の例を見てみましょう。

Sub InStrRev_test3()
  Dim strCheck As String
  Dim strMatch As String
  strCheck = "ｱｲｳｴｵアイウエオ"
  strMatch = "ｱ"
  Debug.Print InStrRev(strCheck, strMatch, 5, 1)　' 1 を返します
End Sub

5番目の位置から前方に検索していくので、小文字の「ｱ」の部分でヒットしました。返された値は「1」です。これは、開始位置からの値ではなく、文字列の先頭からの位置の値になってる点に注意しましょう。

文字列の位置を複数検索する

検索対象の文字列が複数存在する場合、連続で検索する一例です。
InStr関数の解説で使った使用例との違いは、11行目で対象文字列の文字数を取得して引数に使っている点です。後ろから検索するので開始位置を減らしていくようにしています。

Sub InStrRev_test4()
  Dim strCheck As String
  Dim strMatch As String
  Dim arr() As String
  Dim i As Long
  
  strCheck = "あすのあさはあめ"
  strMatch = "あ"

  ReDim Preserve arr(0) '配列初期化
  i = Len(strCheck) + 1 '文字列数 + 1
  i = InStrRev(strCheck, strMatch, i - 1) '初期検索
  If i >= 1 And arr(0) = "" Then arr(0) = i '配列に代入
  Do While i > 1  '0 の場合Loopしない
    i = InStrRev(strCheck, strMatch, i - 1) '以降の検索
    If i > 0 Then '0なら代入しない
      ReDim Preserve arr(UBound(arr) + 1)
      arr(UBound(arr)) = i
    End If
  Loop
  If arr(0) = "" Then '配列を判定して分岐
    MsgBox "「" & strMatch & "」はありません"
  Else
    i = UBound(arr) - LBound(arr) + 1 '要素数
    MsgBox "「" & strMatch & "」は " & i & "個あります" & _
           vbCrLf & "位置は「" & Join(arr, ",") & "」です"
  End If
End Sub

実行結果のMsgBox画像がこちらです。

Do While…Loopを使って、ヒットした位置の一つ前から再検索していくという設定です。

取得した位置の値は配列に格納して保存し、要素数と Join関数で書き出し表示しています。

おわりに

VBAの関数一覧はこちらです。

Excel VBA 関数一覧

Excel VBA の関数一覧表を用意しました。一覧表は、列見出し部分をクリックすればソートでます。関数の詳細確認は、各関数名にVBA公式リファレンスページURLへの外部リンクまたはサイト内解説記事への内部リンクを設置しています。

www.kurumico.com

スポンサーリンク

VBAサンプルファイルダウンロードページのご案内

このページで使用したサンプルファイルの登録はありません(^^;
ページ内のコードをコピーしてご利用ください。

ダウンロードページへトップリンクは下のカードクリックでジャンプできます。
よろしければご利用ください！

【Excel VBA】サンプルファイル_ダウンロードのページ

【Excel VBA】の記事内で使ったサンプルファイルを（Zipファイルで）ダウンロードできるようにしました。記事内では細かい部分の解説が不十分ですが、実際にファイルをダウンロードして実行することで使えるのかどうか見ていただけたら幸いです。

www.kurumico.com