InStr関数

InStr 関数は、文字列内で検索文字列が最初に現れる位置を返す VBA の関数です。文字列の検証、データの抽出、条件分岐など、様々な場面で活用できる重要な関数です。

プレイグラウンドで試す

検索文字列や開始位置を変えると、ヒット位置 (1 始まり) が視覚的に表示されます。見つからないときには 0 が返ることも確認してみましょう。

Dim s As String
s = "apple,banana,apple,cherry"
Debug.Print InStr(1, s, "apple")

基本構文

InStr 関数（先頭から検索）

InStr([開始位置], 文字列, 検索文字列, [比較方法])

InStrRev 関数（末尾から検索）

InStrRev(文字列, 検索文字列, [開始位置], [比較方法])

引数（InStr）

戻り値

• 見つかった場合：位置（1 から始まる）
• 見つからない場合：0

基本的な使い方

シンプルな検索

Sub InStrBasicExample()
    Dim text As String
    Dim position As Long

    text = "東京都新宿区西新宿"

    ' 「新宿」の位置を検索
    position = InStr(text, "新宿")
    Debug.Print position  ' 4（4文字目から始まる）

    ' 見つからない場合
    position = InStr(text, "大阪")
    Debug.Print position  ' 0
End Sub

検索開始位置の指定

Sub InStrWithStartPosition()
    Dim text As String
    Dim position As Long

    text = "192.168.1.1"

    ' 最初の「.」を検索
    position = InStr(text, ".")
    Debug.Print "最初のドット: " & position  ' 4

    ' 2番目の「.」を検索（最初のドットの次から）
    position = InStr(position + 1, text, ".")
    Debug.Print "2番目のドット: " & position  ' 8

    ' 3番目の「.」を検索
    position = InStr(position + 1, text, ".")
    Debug.Print "3番目のドット: " & position  ' 10
End Sub

文字列が含まれているかチェック

Sub CheckStringContains()
    Dim email As String

    email = "user@example.com"

    ' メールアドレスの検証（@が含まれているか）
    If InStr(email, "@") > 0 Then
        Debug.Print "有効なメールアドレスの可能性があります"
    Else
        Debug.Print "無効なメールアドレスです"
    End If

    ' 特定のドメインをチェック
    If InStr(email, "example.com") > 0 Then
        Debug.Print "example.comドメインです"
    End If
End Sub

大文字小文字を区別しない検索

Sub InStrCaseInsensitive()
    Dim text As String
    Dim position As Long

    text = "Hello World"

    ' 大文字小文字を区別する（デフォルト）
    position = InStr(text, "world")
    Debug.Print "区別する: " & position  ' 0（見つからない）

    ' 大文字小文字を区別しない
    position = InStr(1, text, "world", vbTextCompare)
    Debug.Print "区別しない: " & position  ' 7
End Sub

InStrRev 関数：末尾から検索

InStrRev 関数は、文字列の末尾から検索を開始します。ファイルパスからファイル名を抽出する際などに便利です。

Sub InStrRevExample()
    Dim filePath As String
    Dim position As Long
    Dim fileName As String
    Dim folderPath As String

    filePath = "C:\Users\Username\Documents\report.xlsx"

    ' 末尾から最初の「\」を検索
    position = InStrRev(filePath, "\")

    ' ファイル名を抽出
    fileName = Mid(filePath, position + 1)
    Debug.Print "ファイル名: " & fileName  ' report.xlsx

    ' フォルダパスを抽出
    folderPath = Left(filePath, position - 1)
    Debug.Print "フォルダ: " & folderPath  ' C:\Users\Username\Documents
End Sub

実践的な活用例

メールアドレスの検証

Function IsValidEmail(email As String) As Boolean
    ' 基本的なメールアドレス検証
    If Len(email) = 0 Then
        IsValidEmail = False
        Exit Function
    End If

    ' @が含まれているか
    If InStr(email, "@") = 0 Then
        IsValidEmail = False
        Exit Function
    End If

    ' .が含まれているか
    If InStr(email, ".") = 0 Then
        IsValidEmail = False
        Exit Function
    End If

    ' @が複数含まれていないか
    Dim firstAt As Long
    Dim secondAt As Long
    firstAt = InStr(email, "@")
    secondAt = InStr(firstAt + 1, email, "@")

    If secondAt > 0 Then
        IsValidEmail = False
        Exit Function
    End If

    ' @の後に.があるか
    Dim dotAfterAt As Long
    dotAfterAt = InStr(firstAt, email, ".")

    If dotAfterAt = 0 Then
        IsValidEmail = False
        Exit Function
    End If

    IsValidEmail = True
End Function

Sub TestEmailValidation()
    Debug.Print IsValidEmail("user@example.com")  ' True
    Debug.Print IsValidEmail("invalid-email")      ' False
    Debug.Print IsValidEmail("user@@example.com")  ' False
End Sub

URL からドメインを抽出

Function ExtractDomain(url As String) As String
    Dim protocolEnd As Long
    Dim pathStart As Long
    Dim domain As String

    ' http://またはhttps://の後から開始
    protocolEnd = InStr(url, "://")

    If protocolEnd > 0 Then
        ' プロトコルの後から
        domain = Mid(url, protocolEnd + 3)
    Else
        domain = url
    End If

    ' 最初の/を検索（パスの開始）
    pathStart = InStr(domain, "/")

    If pathStart > 0 Then
        domain = Left(domain, pathStart - 1)
    End If

    ExtractDomain = domain
End Function

Sub TestExtractDomain()
    Debug.Print ExtractDomain("https://www.example.com/path/to/page")
    ' 出力: www.example.com

    Debug.Print ExtractDomain("http://example.com:8080/api")
    ' 出力: example.com:8080
End Sub

複数の文字列を検索

Function ContainsAny(text As String, searchWords() As String) As Boolean
    Dim word As Variant

    For Each word In searchWords
        If InStr(1, text, word, vbTextCompare) > 0 Then
            ContainsAny = True
            Exit Function
        End If
    Next word

    ContainsAny = False
End Function

Sub TestContainsAny()
    Dim text As String
    Dim keywords() As String

    text = "VBAでExcelの自動化を学ぶ"
    keywords = Split("Excel,Word,PowerPoint", ",")

    If ContainsAny(text, keywords) Then
        Debug.Print "キーワードが含まれています"
    End If
End Sub

文字列の置換位置を特定

Sub FindAllPositions()
    Dim text As String
    Dim searchWord As String
    Dim position As Long
    Dim positions As String
    Dim startPos As Long

    text = "りんごとバナナとオレンジとりんご"
    searchWord = "りんご"

    startPos = 1

    Do
        position = InStr(startPos, text, searchWord)

        If position > 0 Then
            positions = positions & position & ", "
            startPos = position + Len(searchWord)
        End If
    Loop While position > 0

    ' 最後のカンマとスペースを削除
    If Len(positions) > 0 Then
        positions = Left(positions, Len(positions) - 2)
    End If

    Debug.Print "「" & searchWord & "」の位置: " & positions
    ' 出力: 「りんご」の位置: 1, 18
End Sub

ファイル拡張子の取得

Function GetFileExtension(fileName As String) As String
    Dim dotPosition As Long

    ' 末尾から最初の.を検索
    dotPosition = InStrRev(fileName, ".")

    If dotPosition > 0 Then
        GetFileExtension = Mid(fileName, dotPosition + 1)
    Else
        GetFileExtension = ""
    End If
End Function

Sub TestGetExtension()
    Debug.Print GetFileExtension("report.xlsx")        ' xlsx
    Debug.Print GetFileExtension("data.backup.csv")    ' csv
    Debug.Print GetFileExtension("README")             ' （空文字列）
End Sub

特定の文字で始まる・終わるかチェック

Function StartsWith(text As String, prefix As String) As Boolean
    StartsWith = (InStr(1, text, prefix, vbTextCompare) = 1)
End Function

Function EndsWith(text As String, suffix As String) As Boolean
    Dim suffixLen As Long
    Dim textLen As Long

    suffixLen = Len(suffix)
    textLen = Len(text)

    If suffixLen > textLen Then
        EndsWith = False
        Exit Function
    End If

    EndsWith = (InStrRev(text, suffix, , vbTextCompare) = textLen - suffixLen + 1)
End Function

Sub TestStartsEndsWith()
    Dim fileName As String

    fileName = "report.xlsx"

    If StartsWith(fileName, "report") Then
        Debug.Print "「report」で始まります"
    End If

    If EndsWith(fileName, ".xlsx") Then
        Debug.Print "「.xlsx」で終わります"
    End If
End Sub

パフォーマンスと最適化

Like 演算子との比較

Sub InStrVsLike()
    Dim text As String

    text = "test@example.com"

    ' InStr関数を使った検索
    If InStr(text, "@") > 0 Then
        Debug.Print "InStr: @が含まれています"
    End If

    ' Like演算子を使ったパターンマッチ
    If text Like "*@*" Then
        Debug.Print "Like: @が含まれています"
    End If

    ' 複雑なパターンはLike演算子が便利
    If text Like "*@*.com" Then
        Debug.Print "Like: .comドメインです"
    End If
End Sub

注意点と Tips

空文字列の検索

Sub InStrEmptyString()
    Dim text As String
    Dim position As Long

    text = "Hello World"

    ' 空文字列を検索すると1が返る
    position = InStr(text, "")
    Debug.Print position  ' 1

    ' これは期待しない動作になる可能性があるため注意
End Sub

全角・半角の違い

Sub InStrFullwidthHalfwidth()
    Dim text As String
    Dim position As Long

    text = "VBA(Visual Basic for Applications)"

    ' 半角カッコ
    position = InStr(text, "(")
    Debug.Print "半角: " & position  ' 4

    ' 全角カッコ
    position = InStr(text, "（")
    Debug.Print "全角: " & position  ' 0（見つからない）
End Sub

まとめ

InStr 関数と InStrRev 関数は、文字列の検索と位置取得に必須の関数です。

重要なポイント：

• InStr：先頭から検索、InStrRev：末尾から検索
• 戻り値は 1 から始まる位置（見つからない場合は 0）
• 大文字小文字の区別を指定可能
• 文字列の検証、抽出、条件分岐に最適
• ファイルパス解析や URL 解析に便利

関連関数：

• Mid関数
  VBAのMid関数を使って、文字列の指定した位置から指定した文字数の部分文字列を抽出する方法を詳しく解説します。固定長データの解析やデータの切り出しに便利です。
  ：文字列の抽出
• Left/Right関数
  VBAのLeft関数とRight関数を使って、文字列の先頭や末尾から指定した文字数を抽出する方法を詳しく解説します。ファイル拡張子の取得、プレフィックスの処理などに便利です。
  ：先頭・末尾の抽出
• Replace関数
  VBAのReplace関数の基本的な使い方や具体例を紹介します。Excelでのデータ整形や置換作業を効率化するために、Replace関数を活用しましょう。
  ：文字列の置換

InStr 関数をマスターすることで、様々な文字列処理が効率的に行えるようになります。