Excel VBA InStr関数 文字列の位置を検索して返す

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

InStr関数とは

Excel VBA の InStr関数とは、対象の文字列内を先頭から検索して、指定文字列が最初に見つかった位置を返す関数です。

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

構文（引数と戻り値）

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

構文

※ [ ] 内の引数は省略可能であることを表しています。

引数と戻り値

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

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

[compare] 比較モード

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

解説

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

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

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

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

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

使用例

最初は、省略できる引数は指定しない一番単純な例です。

Sub InStr_test1()
  Dim string1 As String
  Dim string2 As String
  string1 = "ｱｲｳｴｵアイウエオ"
  string2 = "ア"
  Debug.Print InStr(string1, string2)　' 6 を返します
End Sub

引数を省略した場合、実際には先頭から検索(1) と vbBinaryCompare(0) が指定されているのと同じです。
バイナリモードで先頭から検索するので「6」が返ってきます。

次は、テキストモードで引数を指定した場合の例です。開始位置は「1」にしています。

Sub InStr_test2()
  Dim string1 As String
  Dim string2 As String
  string1 = "ｱｲｳｴｵアイウエオ"
  string2 = "ア"
  Debug.Print InStr(1, string1, string2, vbTextCompare)　' 1 を返します
End Sub

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

では、開始位置を「2」に指定した場合の例を見てみましょう。

Sub InStr_test3()
  Dim string1 As String
  Dim string2 As String
  string1 = "ｱｲｳｴｵアイウエオ"
  string2 = "ア"
  Debug.Print InStr(2, string1, string2, 1)　' 6 を返します
End Sub

2番目の位置から検索していくので、大文字の「ア」の部分でヒットしました。返された値は「6」です。これは、開始位置からの値ではなく、文字列の先頭からの値になってる点に注意してください。

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

検索対象の文字列が複数存在する場合、連続で検索する一例です。

Sub InStr_test4()
  Dim String1 As String
  Dim String2 As String
  Dim arr() As String
  Dim i As Long
  
  String1 = "あすのあさはあめ"
  String2 = "あ"

  ReDim Preserve arr(0) '配列初期化
  i = InStr(i + 1, String1, String2) '初期検索
  Do While i > 0  '0 の場合Loopしない
    If arr(0) = "" Then arr(0) = i  '配列の最初に代入
    i = InStr(i + 1, String1, String2) '以降の検索
    If i > 0 Then '0なら代入しない
      ReDim Preserve arr(UBound(arr) + 1)
      arr(UBound(arr)) = i
    End If
  Loop
  If arr(0) = "" Then '配列を判定して分岐
    MsgBox "「" & String2 & "」はありません"
  Else
    i = UBound(arr) - LBound(arr) + 1 '要素数
    MsgBox "「" & String2 & "」は " & 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