【2026年7月最新】VBA Trim関数で文字列の空白を削除する完全ガイド｜LTrim・RTrim・全角スペース対応とClaude Code活用

この記事の内容

1. 01Trim関数の基本構文と動作
2. 02LTrim・RTrimの使い分け
3. 03Trim関数が全角スペースを削除しない問題と対策
4. 04Replaceと組み合わせた空白の完全除去
5. 05セル一括Trim処理：シート全体の空白を取り除く
6. 06ExcelのTRIM関数とVBAのTrim関数の違い
7. 07実務パターン：データクレンジングでのTrim活用
8. 08Claude CodeでTrim処理コードを自動生成する
9. FAQよくある質問

📚 用語解説

Trim関数：VBAの組み込み文字列関数。引数の文字列の先頭（左端）と末尾（右端）にある半角スペース（Chr(32)、ASCIIコード32）を削除した文字列を返す。文字列の中間にある空白は削除されない。全角スペース（Chr(12288)、U+3000）は削除の対象外であることに注意が必要。返り値はVariantまたはStringで、元の文字列は変更されない（新しい文字列を返す）。

' Trim関数の基本
Sub TrimBasicExample()
    Dim str1 As String
    Dim str2 As String

    str1 = "  Hello World  "   ' 前後に半角スペースあり

    str2 = Trim(str1)
    Debug.Print "|" & str1 & "|"  ' → |  Hello World  |
    Debug.Print "|" & str2 & "|"  ' → |Hello World|

    ' 中間の空白は削除されない
    Dim str3 As String
    str3 = "  A   B   C  "
    Debug.Print "|" & Trim(str3) & "|"  ' → |A   B   C|（中間スペースは残る）

    ' 文字列が空白のみの場合
    Dim empty As String
    empty = "   "
    Debug.Print "|" & Trim(empty) & "|"  ' → ||（空文字列）
    Debug.Print Len(Trim(empty))          ' → 0
End Sub

' セルの値に使う
Sub TrimCellValue()
    Dim rawValue As String
    Dim cleanValue As String

    rawValue = Cells(1, 1).Value  ' セルの値を取得
    cleanValue = Trim(rawValue)   ' 前後の空白を削除

    ' 文字列の比較前にTrimを使う習慣をつける
    If Trim(Cells(1, 1).Value) = "東京" Then
        Debug.Print "東京と一致"
    End If
End Sub

📚 用語解説

LTrim と RTrim：LTrim（Left Trim）は文字列の左端（先頭）の半角スペースのみを削除する。RTrim（Right Trim）は文字列の右端（末尾）の半角スペースのみを削除する。TrimはLTrimとRTrimの組み合わせ（両端を削除）と等価。使い分けの典型例: 固定長フォーマットのデータで右端パディング（スペース埋め）を削除したい場合にRTrim、ユーザー入力の先頭のスペースだけを削除したい場合にLTrimを使う。

' LTrim・RTrimの使い方
Sub LTrimRTrimExample()
    Dim str As String
    str = "  Hello World  "  ' 前後に半角スペース

    ' LTrim: 左端（先頭）のスペースのみ削除
    Debug.Print "|" & LTrim(str) & "|"  ' → |Hello World  |

    ' RTrim: 右端（末尾）のスペースのみ削除
    Debug.Print "|" & RTrim(str) & "|"  ' → |  Hello World|

    ' Trim: 両端を削除（LTrim+RTrim）
    Debug.Print "|" & Trim(str) & "|"   ' → |Hello World|

    ' 実用例: 固定長データのRTrim
    ' システムからエクスポートされた固定長10文字のコードフィールド
    Dim fixedCode As String
    fixedCode = "A001      "   ' 末尾にスペース埋め
    Debug.Print "|" & RTrim(fixedCode) & "|"  ' → |A001|

    ' 実用例: URLの先頭スペースを削除
    Dim url As String
    url = "   https://genai-ai.co.jp"
    Debug.Print LTrim(url)  ' → https://genai-ai.co.jp
End Sub

VBAのTrim関数が削除するのは半角スペース（Chr(32)、「 」）のみです。日本語入力で入力される全角スペース（Chr(12288)、「　」）はTrimの対象外のため削除されません。Excelのセルに全角スペースが含まれているとTrimをかけても残ってしまいます。対策はReplaceで全角スペースを削除または半角に置換してからTrimを使うことです。

' 全角スペースの問題を確認
Sub FullWidthSpaceProblem()
    ' 全角スペース：　（U+3000, Chr(12288)）
    ' 半角スペース： （U+0020, Chr(32)）

    Dim str1 As String
    str1 = "　田中太郎　"   ' 前後が全角スペース

    ' Trimは半角スペースしか削除しない
    Debug.Print "|" & Trim(str1) & "|"  ' → |　田中太郎　|（変化なし！）
    Debug.Print Len(Trim(str1))          ' → 8（全角スペースが残る）

    ' 文字コードで確認
    Debug.Print Asc(Left(str1, 1))       ' → 12288（全角スペースのコード）
    ' Ascが12288 → 全角スペース
    ' Ascが32  → 半角スペース

    ' 正しい確認方法
    If Left(str1, 1) = Chr(12288) Then
        Debug.Print "先頭が全角スペース"
    ElseIf Left(str1, 1) = " " Then
        Debug.Print "先頭が半角スペース"
    End If
End Sub

' Replaceを使った全角・半角スペースの完全削除
Sub CompleteSpaceRemoval()
    Dim str As String
    str = "　  田中　太郎  　"   ' 全角・半角混在

    ' 方法1: Replaceで全角スペースを削除してからTrim
    Dim step1 As String
    step1 = Replace(str, Chr(12288), "")  ' 全角スペースをすべて除去
    Dim result1 As String
    result1 = Trim(step1)                  ' 残った半角スペースをTrim
    Debug.Print "|" & result1 & "|"  ' → |田中　太郎|（中間の全角は残る）

    ' 方法2: 全角スペースを半角スペースに変換してからTrim
    Dim step2 As String
    step2 = Replace(str, Chr(12288), " ")  ' 全角→半角に変換
    Dim result2 As String
    result2 = Trim(step2)                   ' 前後を削除
    Debug.Print "|" & result2 & "|"  ' → |田中 太郎|（中間は半角スペースが残る）

    ' 方法3: 前後の全角・半角を両方Trim（カスタム関数化）
    Debug.Print "|" & TrimFull(str) & "|"
End Sub

' カスタムTrimFull関数: 全角・半角スペースを前後から削除
Function TrimFull(str As String) As String
    Dim result As String
    result = str

    ' 前後の全角スペースを削除（ループで繰り返す）
    Do While Left(result, 1) = Chr(12288) Or Left(result, 1) = " "
        result = Mid(result, 2)
    Loop
    Do While Right(result, 1) = Chr(12288) Or Right(result, 1) = " "
        result = Left(result, Len(result) - 1)
    Loop

    TrimFull = result
End Function

TrimFull関数のような汎用ユーティリティは、VBEで「標準モジュール」を追加して保存すると、同一ブック内のどのマクロからでも呼び出せます。複数のプロジェクトで使いたい場合は、VBEの「ファイル→エクスポート」で.basファイルとして書き出し、他のブックにインポートして使えます。

📚 用語解説

Chr関数とAsc関数：Chr(number)は文字コード（ASCIIまたはUnicode）を指定して対応する文字を返す関数。Chr(32)は半角スペース、Chr(12288)は全角スペース、Chr(13)はキャリッジリターン（CR）、Chr(10)はラインフィード（LF）を返す。逆にAsc(str)はstrの最初の文字の文字コードを返す（全角文字には対応していない場合がある—全角文字はAscWを使う）。

' 指定範囲のセルを一括Trim処理
Sub TrimRange()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim rng As Range
    Dim cell As Range

    ' アクティブシートの使用範囲を対象
    Set rng = ws.UsedRange

    ' 処理開始前の件数表示
    Dim cellCount As Long
    cellCount = rng.Cells.Count
    Debug.Print "処理対象セル数: " & cellCount

    ' 各セルをループしてTrim処理
    For Each cell In rng.Cells
        ' 文字列セルのみ処理（数値・日付は除く）
        If cell.HasFormula Then
            ' 数式セルはスキップ
        ElseIf VarType(cell.Value) = vbString Then
            Dim original As String
            Dim trimmed As String
            original = cell.Value

            ' 全角・半角スペースを前後から削除
            trimmed = Trim(Replace(original, Chr(12288), " "))

            ' 変更がある場合のみ書き込む（パフォーマンス最適化）
            If trimmed <> original Then
                cell.Value = trimmed
            End If
        End If
    Next cell

    MsgBox "Trim処理完了。処理セル数: " & cellCount
End Sub

' 特定列だけTrim処理する（A列のみ）
Sub TrimColumnA()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = 1 To lastRow
        Dim val As Variant
        val = ws.Cells(i, 1).Value
        If VarType(val) = vbString And val <> "" Then
            ws.Cells(i, 1).Value = Trim(Replace(CStr(val), Chr(12288), " "))
        End If
    Next i

    Debug.Print "A列 " & lastRow & "行のTrim処理完了"
End Sub

ExcelのTRIM関数（ワークシート関数）は前後の空白を削除するだけでなく、文字列中間にある連続した複数のスペースを1つのスペースに圧縮します。一方、VBAのTrim関数は前後のスペースしか削除せず、中間のスペースは一切変更しません。この違いを把握していないと、VBAで期待通りの結果が得られないことがあります。

' ExcelのTRIM vs VBAのTrimの違い

' VBAのTrim: 前後のみ削除、中間スペースは保持
Sub VBATrimExample()
    Dim str As String
    str = "  Hello    World  Test  "

    ' VBAのTrim
    Debug.Print "|" & Trim(str) & "|"
    ' → |Hello    World  Test|（中間の複数スペースはそのまま残る）

    ' ExcelのTRIM関数をVBAから呼び出す（中間スペースも1つに圧縮）
    Dim wsResult As String
    wsResult = WorksheetFunction.Trim(str)
    Debug.Print "|" & wsResult & "|"
    ' → |Hello World Test|（中間の複数スペースが1つに圧縮される）
End Sub

' VBAで中間スペースも1つに圧縮する（正規表現不使用版）
Function TrimAllSpaces(str As String) As String
    Dim result As String
    result = Trim(str)   ' まず前後を削除

    ' 連続スペースを1つに圧縮
    Do While InStr(result, "  ") > 0   ' ダブルスペースがある間
        result = Replace(result, "  ", " ")  ' ダブル→シングルに
    Loop

    TrimAllSpaces = result
End Function

' 実務パターン1: CSVデータ取込後のクレンジング
Sub CleanCSVData()
    Dim ws As Worksheet
    Set ws = Sheets("インポートデータ")

    Dim lastRow As Long, lastCol As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    Dim i As Long, j As Long
    For i = 2 To lastRow   ' 1行目はヘッダー
        For j = 1 To lastCol
            Dim cellVal As Variant
            cellVal = ws.Cells(i, j).Value
            If VarType(cellVal) = vbString And Len(cellVal) > 0 Then
                ' 全角・半角スペースを前後から削除
                ws.Cells(i, j).Value = Trim(Replace(CStr(cellVal), Chr(12288), " "))
            End If
        Next j
    Next i

    MsgBox "クレンジング完了: " & (lastRow - 1) & "行 x " & lastCol & "列"
End Sub

' 実務パターン2: 顧客名の照合（Trimなしだと一致しない場合がある）
Sub MatchCustomerNames()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim masterName As String
    masterName = "田中太郎"

    Dim i As Long
    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        Dim cellName As String
        cellName = CStr(ws.Cells(i, 1).Value)

        ' Trimなしだと"  田中太郎"が一致しない！
        ' If cellName = masterName Then  ← 危険

        ' Trimしてから比較（安全）
        If Trim(Replace(cellName, Chr(12288), " ")) = masterName Then
            ws.Cells(i, 2).Value = "一致"
        End If
    Next i
End Sub

' 実務パターン3: 入力フォームのバリデーション
Function IsEmptyOrBlank(val As Variant) As Boolean
    ' NullまたはTrim後に空文字ならTrue
    If IsNull(val) Or IsEmpty(val) Then
        IsEmptyOrBlank = True
    ElseIf Len(Trim(Replace(CStr(val), Chr(12288), " "))) = 0 Then
        IsEmptyOrBlank = True
    Else
        IsEmptyOrBlank = False
    End If
End Function

📚 用語解説

StrConv関数：VBAの文字列変換関数。第2引数にvbWide（全角に変換）・vbNarrow（半角に変換）・vbUpperCase（大文字）・vbLowerCase（小文字）・vbProperCase（単語頭を大文字）などを指定する。StrConv(str, vbNarrow)で全角英数字・カナを半角に変換できるため、全角スペースも半角スペースに変換してからTrimをかけるフローで活用できる。

📚 用語解説

データクレンジング（Data Cleansing）：データを分析・処理する前に、不正な値・余分な空白・文字コードの揺れ・重複などを修正して品質を高めるプロセス。VBAにおけるTrim処理もデータクレンジングの一環。ExcelシートへのCSV取込後・照合処理前・フォーム入力値の検証前に実施するのが一般的。クレンジングを省略すると照合ミス・集計誤りの原因になる。

NEXT STEP

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