【2026年7月最新】VBA文字列操作完全マスター｜追加・削除・変換・比較とClaude Code自動化術

この記事の内容

1. 01VBA文字列操作関数一覧｜全15関数を用途別に整理
2. 02文字列の長さ・検索・結合・分割（Len・InStr・Join・Split）
3. 03文字列の抽出・挿入（Left・Mid・Right）
4. 04置換と削除（Replace・Trim・LTrim・RTrim）
5. 05変換関数（CStr・Val・LCase・UCase・Format・StrConv）
6. 06比較（StrComp・Like演算子）
7. 07実務でよく使うVBAマクロ10パターン
8. 08【独自】Claude CodeでVBAコードを自動生成する方法
9. FAQよくある質問

Excelを開いて「Alt + F11」キーを押すとVBAエディター（Visual Basic Editor）が起動します。「挿入」→「標準モジュール」でコードを書くスペースが作られます。この記事のコードをそのままコピーして貼り付け、F5で実行できます。

📚 用語解説

Len関数：文字列の文字数（長さ）を整数で返す関数。「Len("Excel")」は5を返します。セルの文字数チェック・入力バリデーション・文字数制限のある項目確認などで使います。

Sub LenSample()
    Dim text As String
    text = "Excel自動化"

    Debug.Print Len(text)          ' 出力: 8
    Debug.Print Len("")            ' 出力: 0（空文字）

    ' 実務例：文字数が10文字を超えるセルを強調表示
    Dim cell As Range
    For Each cell In Range("A1:A100")
        If Len(cell.Value) > 10 Then
            cell.Interior.Color = RGB(255, 200, 200) ' 赤色ハイライト
        End If
    Next cell
End Sub

📚 用語解説

InStr関数：文字列の中で特定の文字が何文字目にあるかを返す関数。見つからない場合は0を返します。「InStr("Excel VBA", "VBA")」は7を返します。

Sub InStrSample()
    Dim text As String
    text = "山田 太郎 (営業部)"

    ' 括弧の位置を探す
    Dim pos As Integer
    pos = InStr(text, "(")
    Debug.Print pos             ' 出力: 8
    Debug.Print InStr(text, "経理")  ' 出力: 0（見つからない）

    ' 実務例：メールアドレスに@が含まれるか確認
    Dim email As String
    email = "user@example.com"
    If InStr(email, "@") > 0 Then
        Debug.Print "有効なメールアドレス形式"
    Else
        Debug.Print "メールアドレスが無効"
    End If
End Sub

Sub SplitSample()
    Dim csvLine As String
    csvLine = "山田,太郎,30,営業部"

    ' カンマで分割
    Dim parts() As String
    parts = Split(csvLine, ",")

    Debug.Print parts(0)   ' 山田
    Debug.Print parts(1)   ' 太郎
    Debug.Print parts(2)   ' 30
    Debug.Print parts(3)   ' 営業部

    ' 実務例：CSVの1行をセルに展開する
    Dim i As Integer
    For i = 0 To UBound(parts)
        Cells(1, i + 1).Value = parts(i)
    Next i
End Sub

Sub JoinSample()
    Dim names() As String
    names = Array("山田", "佐藤", "田中", "鈴木")

    ' 読点で結合
    Debug.Print Join(names, "、")  ' 山田、佐藤、田中、鈴木

    ' スペースで結合
    Debug.Print Join(names, " ")   ' 山田 佐藤 田中 鈴木

    ' 実務例：複数のシート名をカンマ区切りで1つのセルに書き出す
    Dim sheetNames() As String
    ReDim sheetNames(Worksheets.Count - 1)
    Dim j As Integer
    For j = 0 To Worksheets.Count - 1
        sheetNames(j) = Worksheets(j + 1).Name
    Next j
    Range("A1").Value = Join(sheetNames, ", ")
End Sub

SplitとJoinを組み合わせると、「CSVデータの特定列を整形してから再結合する」という処理が1マクロで完結します。例えば「氏名をスペース区切りで分割→苗字だけ取り出す→別のシートに書き出す」という流れが、10行以内のVBAで実現できます。

Sub LeftSample()
    ' 郵便番号から上位3桁を取り出す
    Dim zip As String
    zip = "123-4567"
    Debug.Print Left(zip, 3)    ' 123

    ' 実務例：都道府県コード（最初の2文字）を取り出す
    Dim code As String
    code = "13東京都"
    Debug.Print Left(code, 2)   ' 13
End Sub

Sub RightSample()
    ' ファイル名から拡張子を取り出す
    Dim filename As String
    filename = "report2026.xlsx"
    Dim ext As String
    ext = Right(filename, 5)   ' .xlsx
    Debug.Print ext

    ' 実務例：電話番号の下4桁を取り出す
    Dim phone As String
    phone = "03-1234-5678"
    Debug.Print Right(phone, 4)  ' 5678
End Sub

Sub MidSample()
    ' 郵便番号のハイフン後4桁を取り出す
    Dim zip As String
    zip = "123-4567"
    Debug.Print Mid(zip, 5, 4)   ' 4567
    ' Mid(文字列, 開始位置, 文字数)

    ' 実務例：「山田 太郎 (30歳)」から名前だけ抽出
    Dim info As String
    info = "山田 太郎 (30歳)"
    Dim nameEnd As Integer
    nameEnd = InStr(info, "(") - 2   ' 括弧の前の位置
    Dim name As String
    name = Left(info, nameEnd)
    Debug.Print Trim(name)  ' 山田 太郎
End Sub

📚 用語解説

Replace関数：文字列の中の指定した文字列を、別の文字列に置き換えて返す関数。Excelの「検索と置換」をVBAで実行するのがReplace関数です。置換対象文字列を空文字("")にすれば、削除にも使えます。

Sub ReplaceSample()
    Dim text As String
    text = "山田 太郎 様"

    ' 「様」を削除（空文字に置換）
    Debug.Print Replace(text, " 様", "")   ' 山田 太郎

    ' 全角スペースを半角スペースに統一
    Dim dirty As String
    dirty = "東京都　新宿区"   ' 全角スペースが入っている
    Debug.Print Replace(dirty, "　", " ") ' 東京都 新宿区

    ' 実務例：電話番号のハイフンを除去
    Dim phone As String
    phone = "03-1234-5678"
    Debug.Print Replace(phone, "-", "")    ' 0312345678

    ' 実務例：改行コードを除去
    Dim multiline As String
    multiline = "1行目" & vbCrLf & "2行目"
    Debug.Print Replace(Replace(multiline, vbCrLf, " "), vbLf, " ")
End Sub

Sub TrimSample()
    Dim text As String
    text = "  山田 太郎  "  ' 前後にスペースがある

    Debug.Print Trim(text)     ' "山田 太郎"（前後のスペース除去）
    Debug.Print LTrim(text)    ' "山田 太郎  "（先頭のみ除去）
    Debug.Print RTrim(text)    ' "  山田 太郎"（末尾のみ除去）

    ' 実務例：入力フォームのデータを整形
    Dim userInput As String
    userInput = "   sugasawa@genai-ai.co.jp   "
    Dim cleanInput As String
    cleanInput = Trim(userInput)
    Debug.Print cleanInput     ' sugasawa@genai-ai.co.jp
End Sub

VBAのTrim()は文字列の「先頭と末尾のスペース」のみを除去します。一方、Excelのワークシート関数TRIM()は先頭・末尾に加えて「単語間の連続スペースを1つに圧縮」します。VBAで単語間の連続スペースも整理したい場合は、WorksheetFunction.Trim()を使うか、Replaceで対処します。

Sub TypeConvertSample()
    ' 数値→文字列
    Dim num As Integer
    num = 12345
    Debug.Print CStr(num)              ' "12345"
    Debug.Print CStr(num) & "円"       ' "12345円"

    ' 文字列→数値
    Dim strNum As String
    strNum = "9800"
    Debug.Print Val(strNum) * 1.1      ' 10780（消費税込み計算）

    ' 実務例：セルの数値を文字列として扱う
    Dim cellVal As String
    cellVal = CStr(Range("B2").Value)
    Debug.Print Left(cellVal, 4)       ' 年を取り出す（例: "2026"）
End Sub

Sub CaseSample()
    Dim text As String
    text = "Hello World VBA"

    Debug.Print LCase(text)   ' "hello world vba"（全て小文字）
    Debug.Print UCase(text)   ' "HELLO WORLD VBA"（全て大文字）

    ' 実務例：メールアドレスの大文字小文字を統一（比較前の正規化）
    Dim email1 As String, email2 As String
    email1 = "User@Example.COM"
    email2 = "user@example.com"
    If LCase(email1) = LCase(email2) Then
        Debug.Print "同じメールアドレスです"
    End If
End Sub

Sub FormatSample()
    ' 数値を桁区切りで表示
    Debug.Print Format(1234567, "#,###")          ' "1,234,567"
    Debug.Print Format(1234567, "¥#,###円")       ' "¥1,234,567円"
    Debug.Print Format(0.15, "0.00%")             ' "15.00%"

    ' 日付を文字列に変換
    Debug.Print Format(Now(), "yyyy/mm/dd")       ' "2026/07/11"
    Debug.Print Format(Now(), "ggge年m月d日")     ' "令和8年7月11日"
    Debug.Print Format(Now(), "dddd")             ' "金曜日"

    ' 実務例：請求書の日付を和暦で表示
    Dim invoiceDate As Date
    invoiceDate = #7/31/2026#
    Range("A1").Value = Format(invoiceDate, "令和e年m月d日")
End Sub

📚 用語解説

Format関数：数値・日付・文字列を指定した書式で文字列に変換するVBAの万能変換関数。「#,###」（桁区切り）・「yyyy/mm/dd」（日付書式）・「0.00%」（パーセント表示）など豊富な書式文字列で細かい表示制御ができます。請求書・帳票・レポート作成で頻繁に使います。

Sub StrConvSample()
    Dim text As String
    text = "ＡＢＣ１２３"   ' 全角文字

    ' 全角→半角
    Debug.Print StrConv(text, vbNarrow)    ' "ABC123"（半角）

    ' 半角→全角
    Dim narrow As String
    narrow = "ABC123"
    Debug.Print StrConv(narrow, vbWide)   ' "ＡＢＣ１２３"（全角）

    ' カタカナ→ひらがな
    Dim katakana As String
    katakana = "アイウエオ"
    Debug.Print StrConv(katakana, vbHiragana)  ' "あいうえお"

    ' ひらがな→カタカナ
    Dim hiragana As String
    hiragana = "あいうえお"
    Debug.Print StrConv(hiragana, vbKatakana)  ' "アイウエオ"

    ' 先頭文字を大文字に
    Debug.Print StrConv("hello world", vbProperCase)  ' "Hello World"
End Sub

📚 用語解説

StrComp関数：2つの文字列を比較して「-1（左辺が小さい）・0（等しい）・1（右辺が小さい）」を返す関数。三番目の引数でバイナリ比較（大文字小文字区別）かテキスト比較（大文字小文字無視）かを指定できます。

Sub StrCompSample()
    Dim result As Integer

    ' 大文字小文字を区別（vbBinaryCompare）
    result = StrComp("Hello", "hello", vbBinaryCompare)
    Debug.Print result     ' -1（異なる）

    ' 大文字小文字を無視（vbTextCompare）
    result = StrComp("Hello", "hello", vbTextCompare)
    Debug.Print result     ' 0（等しい）

    ' 実務例：商品名の重複チェック
    Dim name1 As String, name2 As String
    name1 = "Claude Code"
    name2 = "claude code"
    If StrComp(name1, name2, vbTextCompare) = 0 Then
        Debug.Print "同じ商品名（大文字小文字無視）"
    End If
End Sub

Sub LikeSample()
    Dim email As String
    email = "user@example.com"

    ' @を含むメールアドレス形式かチェック
    If email Like "*@*.*" Then
        Debug.Print "メールアドレス形式"
    End If

    ' 先頭が数字3桁のコードかチェック
    Dim code As String
    code = "123-ABC"
    If code Like "###-???" Then
        Debug.Print "正しいコード形式"
    End If

    ' 実務例：特定のパターンの顧客番号を選別
    Dim custNo As String
    For Each cell In Range("A2:A100")
        custNo = CStr(cell.Value)
        If custNo Like "T????-*" Then   ' Tから始まる5文字-で始まるコード
            cell.Interior.Color = RGB(255, 255, 0)  ' 黄色ハイライト
        End If
    Next
End Sub

Sub NormalizeEmails()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow
        Dim email As String
        email = Trim(LCase(CStr(Cells(i, 1).Value)))
        Cells(i, 1).Value = email
    Next i
    MsgBox "メールアドレスの正規化が完了しました"
End Sub

Sub NormalizePhone()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow
        Dim phone As String
        phone = CStr(Cells(i, 2).Value)
        ' ハイフン・スペース・括弧を除去
        phone = Replace(Replace(Replace(Replace(phone, "-", ""), " ", ""), "(", ""), ")", "")
        Cells(i, 2).Value = phone
    Next i
End Sub

Sub RemoveTitles()
    Dim cell As Range
    For Each cell In Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)
        Dim name As String
        name = Trim(cell.Value)
        ' 敬称を除去
        name = Replace(name, " 様", "")
        name = Replace(name, "様", "")
        name = Replace(name, " 御中", "")
        name = Replace(name, "御中", "")
        cell.Value = Trim(name)
    Next cell
End Sub

Sub SplitCSVColumn()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row

    Dim i As Long
    For i = 2 To lastRow
        Dim csvData As String
        csvData = CStr(Cells(i, 1).Value)
        Dim parts() As String
        parts = Split(csvData, ",")

        Dim j As Integer
        For j = 0 To UBound(parts)
            Cells(i, j + 2).Value = Trim(parts(j))
        Next j
    Next i
End Sub

Sub ConvertKatakana()
    Dim cell As Range
    For Each cell In Selection   ' 選択したセル全体に適用
        If Not IsEmpty(cell) Then
            cell.Value = StrConv(CStr(cell.Value), vbNarrow)
        End If
    Next cell
    MsgBox "全角→半角変換完了"
End Sub

【Claude Codeへの指示例（そのままコピーして使えます）】

「Excelの A列（A2からA1000まで）に入力された顧客名から、
末尾の「様」「御中」「先生」などの敬称を除去するVBAマクロを書いてください。
以下の条件を満たすこと：
- スペース+敬称（「 様」「 御中」）にも対応する
- Trim()で前後のスペースも除去する
- 処理が完了したらメッセージボックスで「完了しました」と表示する
- エラーが発生してもマクロが止まらないようにエラーハンドリングを入れる」

【既存コードの修正依頼例】

「以下のVBAコードを修正してください。
現在の問題：電話番号が「0312345678」（ハイフンなし）の場合は
処理できるが、「03（1234）5678」のように括弧が混じっている場合に
エラーになります。括弧にも対応するよう修正してください。

（ここに現在のVBAコードを貼り付ける）」

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？