【VBAリファレンス】VBA文字列操作の極意 第11回 InStr関数とMid関数を組み合わせた動的抽出テクニック

概要：文字列操作の真髄を極める

VBAを用いた業務自動化において、文字列操作は避けては通れない最重要スキルです。これまでの連載で、Left関数、Right関数、そしてMid関数という基本的な「切り出し」の道具を学んできました。しかし、実際の業務データは、常に文字数が固定されているわけではありません。「特定の区切り文字（カンマやスペース）までの文字列を抽出したい」「カッコ内の値だけを取り出したい」といった、動的に変化するデータに対応する必要があります。第11回となる本稿では、文字列操作の応用編として、InStr関数を用いた「検索」と、Mid関数を用いた「抽出」を組み合わせる高度なテクニックを解説します。これさえ習得すれば、複雑なCSV解析やログファイルからの情報抽出も、思いのままに操作できるようになります。

詳細解説：InStr関数で「場所」を特定する

文字列の一部を取り出すためには、まず「どこからどこまでを取り出すか」という位置情報を特定しなければなりません。ここで登場するのがInStr関数です。

InStr関数の構文は以下の通りです。
InStr([開始位置], [対象文字列], [検索文字列], [比較モード])

この関数は、対象文字列の中に検索文字列が何文字目から出現するかを数値（Long型）で返します。例えば、「田中太郎_2023」という文字列から「_」の位置を探し出し、それより前の氏名だけを取り出したい場合、InStr関数で「_」のインデックスを取得することが必須となります。

もしInStr関数で検索した文字列が存在しない場合、戻り値は「0」となります。この性質を利用して、エラー判定や条件分岐を組み立てるのがプロの流儀です。今回は、この「インデックスを取得し、それをMid関数の引数に渡す」というプロセスを深掘りします。特に、抽出対象が可変長である場合、Len関数やInStr関数をネスト（入れ子）させることで、非常に柔軟なプログラムを作成することが可能になります。

サンプルコード：動的なデータ抽出の実装

実務で頻出する「区切り文字（ハイフン）の前の文字列を取り出す」というシナリオでサンプルコードを提示します。

Sub ExtractDynamicString()
    ' サンプルデータ：製品コード-シリアル番号
    Dim strData As String
    Dim delimiterPos As Long
    Dim result As String
    
    strData = "APL-9988776655"
    
    ' 1. 区切り文字"-"が何文字目にあるかを確認
    delimiterPos = InStr(strData, "-")
    
    ' 2. 区切り文字が見つかった場合のみ処理を実行
    If delimiterPos > 0 Then
        ' 3. Mid関数を使用して抽出
        ' 最初の文字から、区切り文字の直前までを取り出す
        result = Left(strData, delimiterPos - 1)
        
        Debug.Print "抽出結果: " & result
    Else
        Debug.Print "区切り文字が見つかりませんでした。"
    End If
End Sub

' 応用編：カッコ内の文字列のみを取り出す
Sub ExtractInsideParentheses()
    Dim fullText As String
    Dim startPos As Long
    Dim endPos As Long
    Dim length As Long
    Dim extracted As String
    
    fullText = "商品名(特別価格)キャンペーン中"
    
    ' "("と")"の位置をそれぞれ特定
    startPos = InStr(fullText, "(")
    endPos = InStr(fullText, ")")
    
    If startPos > 0 And endPos > startPos Then
        ' 開始位置の次から、抽出したい文字数を計算
        ' (endPos - startPos - 1) が抽出したい文字数になる
        length = endPos - startPos - 1
        extracted = Mid(fullText, startPos + 1, length)
        
        Debug.Print "括弧内の抽出結果: " & extracted
    End If
End Sub

実務アドバイス：堅牢なコードを書くために

実務で文字列操作を行う際、最も注意すべきは「検索文字が見つからない場合」と「検索文字が複数存在する場合」です。

まず、エラー回避策として、InStr関数の戻り値チェックは必須です。上記のサンプルでも記述しましたが、`If delimiterPos > 0 Then` という条件文を忘れると、予期せぬ実行時エラーが発生し、マクロが強制終了する原因となります。

次に、検索文字が複数ある場合についてです。例えば「100-200-300」というデータから「200」を取り出したい場合、単純なInStrでは最初の「-」しか見つけられません。このような時は、InStr関数の引数である「開始位置」を動的にずらしていく工夫が必要です。具体的には、一度見つけた位置の次の文字から再度検索をかけるというループ処理を実装します。

さらに、データの中に全角・半角が混在している場合も注意が必要です。StrConv関数で事前に全角に統一する、あるいは比較モードを適切に設定する（vbBinaryCompare / vbTextCompare）といった配慮を行うことで、バグを未然に防ぐことができます。また、Excelのセルから直接取得したデータには、目に見えない改行コード（vbCrLfなど）が含まれていることも多いため、抽出前にTrim関数で余計な空白を削除する習慣をつけてください。

まとめ

文字列操作は、VBAにおける「データ加工の心臓部」です。LeftやMidといった単体の関数を覚えるだけでなく、InStr関数という「羅針盤」を組み合わせることで、初めて複雑な業務データに立ち向かう準備が整います。

今回学んだ「位置の特定（InStr）」と「切り出し（Mid/Left/Right）」の連携技は、一度身につければ一生モノのスキルとなります。最初は難しく感じるかもしれませんが、まずは「区切り文字を見つけて、その前後を分ける」という単純な処理から挑戦してみてください。

プログラミングにおいて、文字列を自在に操る力は、すなわち「情報を支配する力」です。Excelが持つ膨大なデータを、機械的に、かつ正確に解析できる能力は、あなたの業務効率を劇的に向上させるでしょう。次回は、この文字列操作技術の応用として、さらに複雑なパターンマッチング（Like演算子）について解説します。今のうちに、今回の内容を何度も手を動かして理解を深めておいてください。あなたのVBAスキルが、一歩ずつ着実に、プロフェッショナルの領域へ近づいていることを確信しています。