VBAのMid関数を完全マスター！文字列操作の基本と実践例をわかりやすく解説

VBA（Visual Basic for Applications）は、ExcelやAccessなどで利用されるマクロ機能のベースとなるプログラミング言語です。中でも文字列を扱う処理は、業務効率化の中核を担います。その中で頻出するのが「Mid関数」です。
本記事では、Mid関数の基本的な使い方から応用的な活用例までを丁寧に解説します。VBA初心者の方にもわかりやすい内容になっていますので、ぜひ最後までご覧ください。

Mid関数とは何か？

VBAにおけるMid関数は、文字列から一部分を抽出するために使われる関数です。基本的な構文は次のようになります。

Mid(文字列, 開始位置, 文字数)
  • 文字列：対象となる文字列
  • 開始位置：何文字目から抽出を開始するか
  • 文字数（省略可）：何文字分を抽出するか

例えば、次のコードを見てみましょう。

Dim str As String
str = Mid("ABCDEFG", 2, 3)
' 結果は "BCD"

このように、「ABCDEFG」という文字列の2文字目から3文字分を取り出して、「BCD」が取得されます。

Mid関数を使った基本的な使用例

まずは基本的な使い方から見ていきましょう。

文字列から一部を取り出す

Sub MidSample1()
    Dim original As String
    Dim result As String

    original = "こんにちは世界"
    result = Mid(original, 4, 2)

    MsgBox result  ' 出力は「ちは」
End Sub

この例では、「こんにちは世界」という文字列の4文字目から2文字を取り出しています。結果として「ちは」が表示されます。

文字数の指定を省略した場合

Mid関数の第3引数（文字数）を省略すると、指定した開始位置から最後までの文字列が取り出されます。

Sub MidSample2()
    Dim text As String
    text = Mid("Visual Basic", 8)
    MsgBox text  ' 出力は「Basic」
End Sub

このように、第3引数を省略することで、残りのすべての文字を取得できます。処理を簡潔に書ける便利な使い方です。

Mid関数と変数の組み合わせ

Mid関数は変数との組み合わせでもよく使用されます。実際の処理では、ユーザーが入力した文字列やセルから読み込んだデータを対象に使うことが多いです。

Sub MidSample3()
    Dim userInput As String
    userInput = InputBox("名前を入力してください")  ' 例：山田太郎

    Dim familyName As String
    familyName = Mid(userInput, 1, 2)

    MsgBox "名字は " & familyName & " です。"
End Sub

このように、ユーザーからの入力データに対して文字列を切り出す処理は実務でも頻出します。

Mid関数で文字列を置き換える（代入）

VBAでは関数としてのMidだけでなく、「Midステートメント」として使うこともできます。これは、文字列の一部分を置き換えるという使い方です。

Midステートメントの構文

Mid(対象文字列, 開始位置, 文字数) = 置き換える文字列

例：特定部分の文字を変更する

Sub MidReplaceSample()
    Dim str As String
    str = "ABCDEF"
    Mid(str, 2, 3) = "123"

    MsgBox str  ' 出力は「A123EF」
End Sub

このように、2文字目から3文字分（つまり「BCD」）を「123」に置き換えています。

Mid関数の注意点

Mid関数を使う際に注意すべきポイントがいくつかあります。

1. 開始位置が文字列長を超えると空文字になる

MsgBox Mid("ABC", 5)  ' 出力は ""

2. 文字数が足りない場合でもエラーにはならない

MsgBox Mid("ABC", 2, 5)  ' 出力は "BC"

指定した文字数が足りなくても、可能な部分だけが返されます。

Excelのセルと組み合わせた活用例

VBAを使ってExcelシートのデータを操作することは非常に多いです。Mid関数を使えば、セルの文字列の中から必要な部分だけを取り出して別セルに出力することもできます。

Sub MidExcelSample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim data As String
    data = ws.Range("A1").Value

    ws.Range("B1").Value = Mid(data, 3, 2)
End Sub

この例では、A1セルの文字列の3文字目から2文字をB1セルに出力します。たとえば、A1に「東京都千代田区」と入力されていれば、B1には「京都」が入ります。

Mid関数の応用：ループ処理との組み合わせ

複数のセルに対して一括でMid関数を適用することで、大量のデータからパターン的に情報を取り出すことが可能になります。

Sub MidLoopSample()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 2).Value = Mid(Cells(i, 1).Value, 1, 3)
    Next i
End Sub

このマクロは、1列目の1～10行目の文字列から先頭3文字を取り出し、2列目に書き出します。

まとめ

VBAのMid関数は、文字列を「取り出す」「置き換える」といった操作がシンプルに行える強力な関数です。業務の自動化やデータ処理において欠かせない存在と言えるでしょう。

初心者の方はまず、基本的な取り出しの使い方を覚え、慣れてきたら置き換えやセルデータへの応用にも挑戦してみてください。Mid関数を自在に使いこなせれば、VBAスキルが一段とアップすること間違いなしです！

タイトルとURLをコピーしました