この記事では、VBAの空白除去でつまずきがちなポイントを 比較表と判断フローチャート で一気に整理します。3つの関数の違いから、全角スペースが消えない本当の原因、WorksheetFunction.Trimとの違いまで、コピペで動くコードつきで解説していきますね。

各関数の詳しい使い方は個別の記事にまとめてあるので、本記事は「結局どれを使えばいいの？」を最短で解決する地図として使ってください。

VBA Trim・LTrim・RTrimの違い【結論】

先に結論からお伝えします。VBAのTrim・LTrim・RTrimは、削除する「位置」だけが違う 3兄弟です。動作そのものはほぼ同じで、空白を消す場所が「前後」「先頭だけ」「末尾だけ」と分かれているだけなんですね。

3関数の比較表（削除位置・構文・使う場面）

3つの関数を「構文・削除位置・戻り値・使う場面」の4軸で横並びにすると、違いが一目でわかります。

3つに共通する大事なポイントが2つあります。

• 中間（文字列の途中）の空白には一切手をつけない。"VBA 入門" のような単語間のスペースはそのまま残ります。
• 削除できるのは半角スペースだけ。全角スペースは消えません（これが後述する最大の落とし穴です）。

迷ったらどれを使う？1分でわかる選び方

実務で迷ったら、次の3ステップで選べばOKです。

1. 前後どちらも消したい → Trim。いちばん出番が多いのはこれです。とりあえずTrimを覚えておけば9割の場面に対応できます。
2. 先頭だけ消したい → LTrim。固定長データの先頭パディングなど、「末尾の空白は残したい」明確な理由があるときだけ使います。
3. 末尾だけ消したい → RTrim。CSVや基幹システム出力で末尾にスペースが付くケースで活躍します。

「LTrimとRTrimを両方かけたい」と思ったら、それはTrimを使う場面です。LTrim(RTrim(s))と入れ子にするより、Trim(s)のほうが簡潔でコードの意図も伝わりやすいですよ。

それぞれの関数を深掘りしたい方は、VBA Trim関数の使い方・LTrim関数の使い方・RTrim関数の使い方で実践コードつきの解説をしています。

VBA Trim関数の基本と使い方

3関数の代表として、まずはTrimの基本動作を押さえておきましょう。Trimさえ理解すれば、LTrim・RTrimは「位置が違うだけ」なのですぐ応用できます。

Trimの構文と基本コード（コピペで動く）

Trimの構文はとてもシンプルです。

Trim(文字列)

引数に文字列を渡すと、前後の半角スペースを取り除いた文字列が返ってきます。まずは動作確認用のコードを試してみましょう。VBE（後述）の標準モジュールに、以下をそのまま貼り付けてF5キーで実行してください。

Sub Trimの動作確認()

    Dim sBefore As String '--- 変換前の文字列 ---
    Dim sAfter As String  '--- 変換後の文字列 ---

    sBefore = "   Excel VBA   "
    sAfter = Trim(sBefore)

    '--- 結果をメッセージボックスで確認 ---
    MsgBox "変換前: [" & sBefore & "]" & vbCrLf & _
           "変換後: [" & sAfter & "]", vbInformation

End Sub

角括弧で囲んでいるので、前後のスペースが消えたことが一目でわかります。前後に空白がない文字列を渡してもエラーにはならず、元の文字列がそのまま返るので、「空白があるか事前にチェックしなきゃ」と心配する必要はありません。

なお、正式にはStrings.Trimと書きますが、StringsはVBAの標準ライブラリ名なので通常は省略できます。もし複数ライブラリを参照していて「あいまいな名前が検出されました」というエラーが出たら、Strings.Trimとフル修飾で書けば解決しますよ。

LTrim・RTrimとの動作の違い

同じ文字列をLTrim・RTrim・Trimに渡すと、削除される位置の違いがはっきり見えます。

Sub 3関数の違いを比較()

    Dim s As String
    s = "   VBA 入門   "

    Debug.Print "[" & LTrim(s) & "]"  '--- 結果: [VBA 入門   ]（末尾残る） ---
    Debug.Print "[" & RTrim(s) & "]"  '--- 結果: [   VBA 入門]（先頭残る） ---
    Debug.Print "[" & Trim(s) & "]"   '--- 結果: [VBA 入門]（前後消える） ---

End Sub

Debug.Printの結果はイミディエイトウィンドウに表示されます。3つを並べると、LTrimは左、RTrimは右、Trimは両方を削っているのがよくわかりますね。どの関数も中間の半角スペース（VBAと入門の間）は残したままです。

VBEの起動とコードの準備

ここまでのコードを試すには、VBE（Visual Basic Editor）を開いてコードを書く場所を用意します。すでにVBEに慣れている方は、このセクションは読み飛ばして構いません。

Excelを開いた状態で、キーボードの Alt + F11 を押すとVBEのウィンドウが表示されます。リボンから開く場合は「開発」タブ →「Visual Basic」をクリックしてください。「開発」タブが見当たらないときは、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェックを入れると表示されます。

VBEが開いたら、コードを書く場所（標準モジュール）を追加します。

1. メニューバーの「挿入」→「標準モジュール」をクリック
2. 左側のプロジェクトエクスプローラーに「Module1」が追加される
3. 右側のコードウィンドウにコードを書く

VBEの画面構成をもっと詳しく知りたい方は、VBEの画面の見方と基本操作も参考にしてみてください。なお、マクロを含むファイルは必ず マクロ有効ブック（.xlsm） 形式で保存してくださいね。通常の.xlsx形式で保存するとコードが失われてしまいます。

Trimで空白が消えないときの原因と対処法

「Trimをかけたのに空白が残っている」——これはVBAの空白処理でいちばん多いつまずきです。原因のほとんどは、Trim系では消せない種類の空白 が混じっていることにあります。

全角スペースはTrimでは消えない

最初に、いちばん大事なファクトをはっきりさせておきます。

VBAのTrim・LTrim・RTrimが削除できるのは、半角スペース（Chr(32)）だけです。全角スペース（ChrW(12288)）は削除されません。

一部のサイトや解説では「VBA Trimで全角スペースも消える」と書かれていることがありますが、これは誤りです。実際に試すと、全角スペースはそのまま残ります。

Sub 全角スペースは消えないことを確認()

    Dim s As String
    s = "　東京都　"  '--- 前後は全角スペース ---

    Debug.Print "[" & Trim(s) & "]"
    '--- 結果: [　東京都　]（全角スペースは残ったまま） ---

End Sub

日本語入力の切り替え忘れで先頭に全角スペースが入る、というのは事務作業で本当によく起こります。「Trimしたのに消えない」と感じたら、まずは全角スペースを疑ってください。対処法は後述しますが、Replace関数で個別に消すのが基本です。

タブ・改行・NBSPもTrimの対象外

全角スペース以外にも、Trim系で消えない「空白に見える文字」があります。次の表で整理しておきましょう。

特に厄介なのが NBSP（ノーブレークスペース） です。Webページからコピーしたデータに紛れ込みやすく、見た目はただの半角スペースなのにTrimでは消えません。VLOOKUPが完全一致のはずなのに #N/A を返す、という原因不明のトラブルの正体がこれだったりします。NBSPの詳しい対策はノーブレークスペース完全対策ガイドで解説しています。

「Trimしても消えない空白」の正体を突き止めたいときは、AscW関数で文字コードを調べるのが確実です。

Sub 消えない空白の正体を調べる()

    Dim s As String, i As Long
    s = Range("A1").Value  '--- 調べたいセル ---

    For i = 1 To Len(s)
        Debug.Print "位置" & i & ": [" & Mid(s, i, 1) & _
                    "] → AscW=" & AscW(Mid(s, i, 1))
    Next i

End Sub

AscWの結果が 32なら半角スペース、160ならNBSP、12288なら全角スペース です。正体さえわかれば、対応するReplace文を書くだけで解決できます。

どの空白をどう消す？判断フローチャート

空白の種類が整理できたら、あとは「どの関数を使うか」を判断するだけです。次のフローで考えると迷いません。

1. 半角スペースが前後だけ？ → そのまま Trim（LTrim / RTrim） でOK。
2. 半角スペースが文字列の途中で連続している？ → WorksheetFunction.Trim で1つに圧縮（次のセクションで解説）。
3. 全角スペースが混ざっている？ → Replace(s, ChrW(12288), "") で削除。半角に統一したいならStrConv(s, vbNarrow)で全角→半角変換してからTrim。
4. NBSP・タブ・改行が混ざっている？ → Replace でそれぞれの文字コードを指定して削除。

つまり、「半角スペースの前後」だけがTrim系の守備範囲 で、それ以外はすべてReplaceや別の関数の出番、と覚えておけば判断に迷いません。具体的なReplaceの使い方はVBA Replace関数の使い方で詳しく解説しています。

WorksheetFunction.TrimとVBA Trimの違い

VBAには、これまで紹介したTrimのほかに WorksheetFunction.Trim という書き方もあります。名前がそっくりなので混同しがちですが、動作はまったくの別物 です。ここを押さえておくと「Trimしたのに中間の空白が残る」トラブルを避けられます。

中間の連続スペースの扱いが違う

2つの最大の違いは、文字列の途中にある連続スペースの扱い です。

VBA Trimは前後しか触りませんが、WorksheetFunction.Trim（＝ワークシート関数のTRIMと同じ動作）は前後に加えて中間の連続スペースを1つにまとめます。実際に比べてみましょう。

Sub 中間スペースの扱いを比較()

    Dim s As String
    s = "田中  太郎  "  '--- 中間に半角スペース2つ ---

    Debug.Print "[" & Trim(s) & "]"
    '--- VBA Trim → [田中  太郎]（中間は2つのまま残る） ---

    Debug.Print "[" & Application.WorksheetFunction.Trim(s) & "]"
    '--- ワークシート版 → [田中 太郎]（中間が1つに圧縮される） ---

End Sub

「氏名の途中に余分なスペースが入ってしまったデータを、見栄えよく整えたい」——そんなときはWorksheetFunction.Trimの出番です。逆に「前後だけ確実に消したい」場面ではVBA Trimで十分。中間まで勝手に圧縮されないぶん、データを意図せず変えてしまう心配がありません。

なお、どちらも 全角スペースは消せない 点は共通です。ワークシート関数版だからといって全角に対応するわけではないので注意してください。

VBAからワークシート版Trimを呼ぶ方法

VBAのコード内からワークシート版のTrimを使いたいときは、次のように書きます。

Application.WorksheetFunction.Trim(対象文字列)

Application.は省略してWorksheetFunction.Trim(s)と書いても動きます。VBA Trimとの使い分けは、

• 前後だけ消せば十分 → Trim(s)（VBA版）
• 中間の連続スペースも1つにまとめたい → WorksheetFunction.Trim(s)（ワークシート版）

と覚えておくと迷いません。ワークシート上の数式としてのTRIM関数について詳しくは、ExcelのTRIM関数の使い方で解説しています。

実務で使えるTrim・LTrim・RTrimの活用コード

ここからは、3関数の使い分けを実感できる実務コードを3つ紹介します。いずれもVarType判定で文字列セルだけを処理しているので、数値や日付のセルが混ざっていても安全に動きます。

コピペデータの先頭空白を一括削除（LTrim）

他システムや固定長データからコピーしたデータは、桁を揃えるために先頭にスペースが詰められていることがあります。「末尾の空白は意味があるので残したいが、先頭のパディングだけ消したい」——そんなときはLTrimの出番です。

Sub A列の先頭空白を一括削除()

    Dim ws As Worksheet '--- 対象シート ---
    Dim cell As Range   '--- ループ用セル ---

    Set ws = ActiveSheet

    '--- A列の各セルから先頭の半角スペースを削除 ---
    For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
        If VarType(cell.Value) = vbString Then
            cell.Value = LTrim(cell.Value)
        End If
    Next cell

    MsgBox "A列の先頭空白を削除しました。", vbInformation

End Sub

ここでTrimではなくLTrimを選ぶのがポイントです。前後まとめて消したいならTrimですが、「先頭だけ」という明確な意図があるならLTrimのほうがコードの意図が伝わります。For Eachの基本はLTrim関数の使い方でも触れています。

氏名フィールドの全角スペースを正しく除去する

事務作業で頻発するのが、氏名の前後に全角スペースが入ってしまうケースです。前述のとおりTrimでは全角スペースを消せないので、Replaceで全角スペースを消してからTrimで半角スペースを仕上げる、という二段構えが定番になります。

Sub 氏名の全角スペースを正しく除去()

    Dim ws As Worksheet '--- 対象シート ---
    Dim cell As Range   '--- ループ用セル ---
    Dim sVal As String  '--- セルの値 ---

    Set ws = ActiveSheet

    For Each cell In ws.UsedRange
        If VarType(cell.Value) = vbString Then
            sVal = cell.Value

            '--- Step1: 全角スペースを削除（Trimでは消せない） ---
            sVal = Replace(sVal, ChrW(12288), "")

            '--- Step2: 残った前後の半角スペースを削除 ---
            sVal = Trim(sVal)

            cell.Value = sVal
        End If
    Next cell

    MsgBox "氏名フィールドの空白を除去しました。", vbInformation

End Sub

処理の順番が大切です。先にReplaceで全角スペースを消し、最後にTrimで半角スペースを仕上げます。「Trimだけで済ませようとして全角が残る」という典型的な失敗を、この二段構えで確実に防げます。

シート全体の前後空白をまとめてクレンジング（Trim）

「どの列に空白が混じっているか分からない」というときは、UsedRange全体を走査して前後空白をまとめて削除するのがいちばん手軽です。前後どちらも対象なのでTrimを使います。

Sub シート全体の前後空白をクレンジング()

    Dim ws As Worksheet '--- 対象シート ---
    Dim cell As Range   '--- ループ用セル ---
    Dim lCount As Long  '--- 処理件数カウンタ ---

    Set ws = ActiveSheet

    For Each cell In ws.UsedRange
        '--- 文字列セルかつ数式でないセルだけを処理 ---
        If VarType(cell.Value) = vbString And Not cell.HasFormula Then
            cell.Value = Trim(cell.Value)
            lCount = lCount + 1
        End If
    Next cell

    MsgBox lCount & " 件のセルから前後の空白を削除しました。", vbInformation

End Sub

ポイントはAnd Not cell.HasFormulaの一文です。VLOOKUPやTEXT関数など結果が文字列になる数式セルもVarTypeではvbStringを返すため、これを入れておかないと数式を計算結果の文字列で上書きしてしまう恐れがあります。計算式と手入力データが混在する業務ファイルでは、この一行が事故防止に効いてきますよ。空白処理の全体像はVBAで空白を削除する方法まとめで一覧できます。

まとめ｜Trim・LTrim・RTrimの使い分け早見表

最後に、VBAの空白除去の使い分けを早見表でおさらいしましょう。

押さえるべきポイントは次の3つです。

• Trim・LTrim・RTrimの違いは「削除する位置」だけ。迷ったらTrimでOK。
• 3関数が消せるのは半角スペースだけ。全角スペースやNBSPは消えないので、Replaceを併用する。
• 中間の連続スペースを整えたいときはWorksheetFunction.Trim。VBA Trimは前後しか触らない。

空白の処理は地味ですが、VLOOKUPの照合ミスや集計ズレを防ぐ大切な前処理です。本記事の比較表とフローチャートを手元の地図にして、クリーンなデータを手に入れてくださいね。各関数の実践コードをもっと見たい方は、VBA Trim関数の使い方・LTrim関数の使い方・RTrim関数の使い方もあわせてどうぞ。

見た目は同じなのに、VLOOKUPで「一致なし」が返ってくる。調べてみると、セルの先頭に半角スペースが入っていた――こんなトラブルは意外と多いものです。

数件なら手作業で消せますが、数百行のデータを目視チェックするのは現実的ではありませんよね。

ExcelのVBAには LTrim関数 という便利なツールがあります。たった1行のコードで、先頭の空白をまとめてクレンジングできます。この記事では、基本的な使い方から業務で使える実践コードまで順を追って解説していきます。

空白削除の全体像を先に知りたい方は、VBA空白削除まとめ｜Trim・LTrim・RTrim・Replaceの使い分け方をご覧ください。

VBA LTrimとは？

LTrimは、文字列の 先頭（左側）にある半角スペースだけを削除する VBA関数です。「Left Trim」の略で、左側をトリミングするイメージですね。

たとえば、こんなふうに変換されます。

ポイントは、末尾の空白はそのまま残る ということです。先頭だけをピンポイントで処理したい場面で使います。

LTrim・RTrim・Trimの違い

VBAには空白を削除する関数が3つあります。違いをまとめると次のとおりです。

なお、VBAのTrimはワークシート関数の TRIM関数 とは動作が異なります。ワークシートのTRIMは文字列内部の連続スペースも1つに圧縮しますが、VBAのTrimは前後の空白を削除するだけです。内部の空白には手をつけません。

迷ったらTrimを選べば間違いありません。「先頭だけ消したい」という明確な理由があるときにLTrimを使い分けてみてください。

削除できない空白に注意

LTrimが削除できるのは 半角スペース（Chr(32)）のみ です。

以下の文字は空白のように見えても LTrimでは削除されません。

• 全角スペース（ChrW(12288)）
• タブ文字（Chr(9)）
• 改行（Chr(10) / Chr(13)）
• ノーブレークスペース（NBSP）（Chr(160)）

一部のサイトで「全角スペースも削除される」という情報がありますが、これは誤りです。全角スペースはLTrimの対象外なので注意してください。

全角スペースやNBSPを除去したい場合は、Replace（文字列を置換する関数）で個別に対処しましょう。実践コードのセクションで具体的な方法を紹介しています。

VBEの起動とコードの書き方

VBAのコードを動かすには、まずVBE（Visual Basic Editor）を開いて、コードを書く場所を用意します。

VBE（Visual Basic Editor）の開き方

Excelを開いた状態で、キーボードの Alt + F11 を押してください。VBEのウィンドウが表示されます。

リボンから開く場合は、「開発」タブ →「Visual Basic」をクリックします。「開発」タブが見当たらないときは、「ファイル」→「オプション」→「リボンのユーザー設定」を開いてください。「開発」にチェックを入れれば表示されますよ。

VBEの画面構成について詳しく知りたい方は、VBE画面の見方も参考にしてみてください。

標準モジュールの挿入

VBEが開いたら、コードを書く場所（標準モジュール）を追加します。

1. メニューバーの「挿入」→「標準モジュール」をクリック
2. 左側のプロジェクトエクスプローラーに「Module1」が追加される
3. 右側に表示されるコードウィンドウに、コードを書いていく

ここまで準備できたら、さっそくLTrimを使ってみましょう。

基本コード（コピペで動く）

LTrimの構文はとてもシンプルです。

Strings.LTrim(string)

引数に文字列を渡すと、先頭の半角スペースを取り除いた文字列が返ってきます。

まずは動作確認用のコードを試してみましょう。Module1のコードウィンドウに、以下をそのまま貼り付けてください。

Sub LTrimの動作確認()

    Dim sBefore As String '--- 変換前の文字列 ---
    Dim sAfter As String  '--- 変換後の文字列 ---

    sBefore = "   Excel VBA"
    sAfter = LTrim(sBefore)

    '--- 結果をメッセージボックスで確認 ---
    MsgBox "変換前: [" & sBefore & "]" & vbCrLf & _
           "変換後: [" & sAfter & "]", vbInformation

End Sub

コードを貼り付けたら、F5キー を押して実行してみてください。メッセージボックスに変換前と変換後の文字列が表示されます。角括弧で囲んでいるので、先頭のスペースが消えたことが一目でわかるはずです。

コードの仕組みを理解する

基本コードが動いたところで、LTrimのポイントをもう少し掘り下げておきましょう。

Strings.LTrimとLTrimの違い

先ほどの構文で Strings.LTrim と書きましたが、サンプルコードでは LTrim だけで動いていましたよね。

実はこの2つは同じ関数です。Strings はVBAの標準ライブラリ名で、通常は省略できます。ただし、複数のライブラリを参照設定している場合は注意が必要です。同じ名前の関数が存在すると名前の衝突が起きて、コンパイルエラーになることがあります。

普段は LTrim だけで問題ありません。エラーが出た場合は Strings.LTrim とフル修飾で書くと解決しますよ。

空白がない場合の挙動

先頭に空白がない文字列をLTrimに渡しても、エラーにはなりません。元の文字列がそのまま返ってきます。

Debug.Print LTrim("Excel") '--- 結果: "Excel"（変化なし） ---

「空白があるかどうか事前にチェックしなきゃ」と心配する必要はありません。安心してまとめて処理できますよ。

なお、Nullを渡した場合はNullがそのまま返ります。空文字列を渡した場合も空文字列が返ります。どちらもエラーにはなりません。

対応する空白の種類

あらためて整理しておきます。

半角スペース以外の空白を含むデータを扱う場合は、Replace（文字列を置換する関数）を併用するのがおすすめです。

実践コード（業務に使えるバージョン）

ここからは、実際の業務で使えるコードを4つ紹介します。

シートのセルを一括クレンジングする

A列に入力されたデータの先頭空白を、まとめて除去するマクロです。VLOOKUPの前処理などに便利ですよ。

Sub A列の先頭空白を一括削除()

    Dim ws As Worksheet   '--- 対象シート ---
    Dim rng As Range      '--- データ範囲 ---
    Dim cell As Range     '--- ループ用セル ---

    Set ws = ThisWorkbook.Sheets(1)
    Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)

    '--- 各セルの先頭空白を削除 ---
    For Each cell In rng
        If VarType(cell.Value) = vbString Then
            cell.Value = LTrim(cell.Value)
        End If
    Next cell

    MsgBox "A列の先頭空白を削除しました。", vbInformation

End Sub

VarType(cell.Value) = vbString で文字列セルだけを対象にしています。数値や日付のセルをLTrimに渡すと型の不一致が起きる場合があるので、この判定を入れておくのが安全です。

対象列を変えたいときは、Range("A1:A"...) の「A」を任意の列に書き換えてください。For Eachの詳細はFor Eachの使い方も参考にどうぞ。

CSVインポート後の先頭空白を除去する

CSVファイルから読み込んだ1行分のデータを、カンマで分割して各項目の先頭空白を除去するコードです。

Sub CSV行の先頭空白を除去()

    Dim sLine As String     '--- CSV1行分のデータ ---
    Dim vItems As Variant   '--- 分割後の配列 ---
    Dim i As Long           '--- ループカウンタ ---

    '--- サンプルデータ（実務ではファイル読み込み） ---
    sLine = "  田中太郎,  営業部,  東京都"

    '--- カンマで分割 ---
    vItems = Split(sLine, ",")

    '--- 各項目の先頭空白を除去 ---
    For i = LBound(vItems) To UBound(vItems)
        vItems(i) = LTrim(CStr(vItems(i)))
    Next i

    '--- 結果を確認 ---
    MsgBox "1: " & vItems(0) & vbCrLf & _
           "2: " & vItems(1) & vbCrLf & _
           "3: " & vItems(2), vbInformation

End Sub

Split（文字列を区切り文字で分割する関数）でカンマ区切りにしたあと、For ループで各要素にLTrimをかけています。CSVでよくある「カンマの後にスペースが入っている」パターンに対応できます。

固定長データの先頭パディングを除去する

レガシーシステムから出力された固定長データでは、数値や文字列の先頭にスペースが詰められていることがあります。LTrimで先頭のパディングを除去すれば、数値変換やVLOOKUPの照合がスムーズになります。

Sub 固定長データの先頭パディングを除去()

    Dim ws As Worksheet    '--- 対象シート ---
    Dim lastRow As Long    '--- 最終行 ---
    Dim lastCol As Long    '--- 最終列 ---
    Dim i As Long          '--- 行カウンタ ---
    Dim j As Long          '--- 列カウンタ ---
    Dim lCount As Long     '--- 処理件数 ---

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

    '--- 全セルの先頭パディングを除去 ---
    For i = 2 To lastRow
        For j = 1 To lastCol
            If VarType(ws.Cells(i, j).Value) = vbString Then
                ws.Cells(i, j).Value = LTrim(ws.Cells(i, j).Value)
                lCount = lCount + 1
            End If
        Next j
    Next i

    MsgBox lCount & " 件のセルから先頭パディングを除去しました。", vbInformation

End Sub

1行目をヘッダーとして2行目からループしています。固定長ファイルをExcelにインポートした直後に実行すると、そのまま集計やVLOOKUP照合に進めますよ。

LTrim+Replaceで全角スペースも対応する

LTrimは半角スペースしか削除できません。全角スペースも先頭から除去したい場合は、Replaceを使います。全角スペースを半角に変換してからLTrimをかけるのがおすすめです。

Sub 全角スペースも含めて先頭空白を除去()

    Dim ws As Worksheet   '--- 対象シート ---
    Dim cell As Range     '--- ループ用セル ---
    Dim sVal As String    '--- セルの値 ---
    Dim lCount As Long    '--- 処理件数 ---

    Set ws = ActiveSheet

    For Each cell In ws.UsedRange
        If VarType(cell.Value) = vbString Then
            sVal = cell.Value

            '--- Step1: 全角スペースを半角スペースに変換 ---
            sVal = Replace(sVal, ChrW(12288), " ")

            '--- Step2: 先頭の半角スペースを削除 ---
            sVal = LTrim(sVal)

            If cell.Value <> sVal Then
                cell.Value = sVal
                lCount = lCount + 1
            End If
        End If
    Next cell

    MsgBox lCount & " 件のセルから先頭空白を除去しました。", vbInformation

End Sub

ポイントは ReplaceでLTrimの前に全角→半角変換をかける ことです。この順序なら、全角スペースが先頭にあるケースもLTrimでまとめて削除できます。

文字列の途中にある全角スペースも半角に変換される点に注意してください。途中の全角スペースを残したい場合は、先頭の全角スペースだけをループで除去するコードに書き換える必要があります。

よくあるエラーと対処法

LTrim自体はシンプルな関数ですが、周辺で引っかかりやすいポイントがあります。

型の不一致を防ぐ

数値が入っているセルをLTrimに渡すと、型の不一致エラーが出ることがあります。

'--- これはエラーになる場合がある ---
Dim s As String
s = Range("A1").Value  '--- A1が数値だとエラー ---

対策は2つあります。CStr（値を文字列に変換する関数）で明示的に変換するか、VarType で文字列セルだけを対象にするかです。実践コードでは後者の方法を使っています。

変数宣言の漏れを防ぐ

モジュールの先頭に Option Explicit を書いておくと、変数の宣言漏れをコンパイル時に検出できます。スペルミスによるバグ防止にとても効果的です。

Option Explicit

詳しくは Option Explicitの使い方 を参考にしてください。

マクロ無効・.xlsm保存の注意

VBAマクロを含むファイルは、必ず マクロ有効ブック（.xlsm） 形式で保存してください。通常の .xlsx 形式で保存すると、マクロのコードがすべて失われます。

ファイルを開いたときに「マクロが無効にされました」と表示されたら、「コンテンツの有効化」をクリックしてください。

まとめ

VBA LTrim関数のポイントを振り返っておきましょう。

• LTrimは先頭の半角スペースだけを削除する関数。末尾は残る
• 全角スペース・タブ・NBSPは削除されない。全角対応には Replace を併用する
• 空白がない文字列を渡してもエラーにならないので、安心してまとめて処理できる
• 業務では For Each ループと組み合わせて、セルの一括クレンジングに使うのが定番

空白の処理は地味ですが、データの正確性に直結する大事な前処理です。LTrimをうまく使って、クリーンなデータを手に入れましょう。

末尾の空白も消したいときは RTrim（末尾の空白削除）、前後まとめて消したいときは Trim（前後の空白削除） を使い分けてみてください。ワークシート上で空白を除去したい場合は、ExcelのTRIM関数の使い方 も参考になります。空白処理の全体像は、VBA空白削除まとめ で一覧できますよ。

空白が残ったままだと、VLOOKUPで#N/Aエラーが出たり、集計結果がずれたりします。放置するほど手戻りが増えて厄介です。

VBAには空白を削除する関数が4つあります。空白の位置と種類に応じて使い分ければ、どんな空白トラブルも解決できますよ。

この記事では、Trim・LTrim・RTrim・Replaceの使い方と使い分けを、コピペで動くコード付きで解説します。

NOTE

この記事のコードを実行するには、VBE（Visual Basic Editor）を開いて標準モジュールにコードを貼り付けます。Alt + F11 でVBEを起動し、挿入 → 標準モジュール で編集画面を表示してください。VBEの詳しい使い方は VBEの画面の見方と基本操作 で解説しています。

VBAで空白を削除する4つの方法を整理しよう

Excel VBAで空白を削除する方法は、大きく4つあります。まずは全体像を把握しておきましょう。

ポイントは、Trim系の3関数は半角スペース（Chr(32)）しか消せないということです。「VBA Trimで全角スペースも消せる」という情報を見かけますが、これは誤りなので注意してください。

全角スペースや特殊な空白を消すには、Replace関数の出番になります。

Trim関数 ── 前後の半角スペースをまとめて削除

Trim関数は、文字列の先頭と末尾にある半角スペースをまとめて削除します。

Sub TrimExample()
    Dim s As String
    s = "  Hello World  "
    Debug.Print "[" & Trim(s) & "]"
    ' 結果: [Hello World]
    ' ※ 文字列中間のスペースはそのまま残る
End Sub

前後だけ削除したいなら、Trimが一番シンプルです。詳しい使い方は Trimで前後の空白を一括削除する方法 で解説しています。

LTrim関数 ── 先頭の半角スペースだけ削除

LTrimは、文字列の先頭（左側）にある半角スペースだけを削除します。

Sub LTrimExample()
    Dim s As String
    s = "   Hello World   "
    Debug.Print "[" & LTrim(s) & "]"
    ' 結果: [Hello World   ]
    ' ※ 末尾のスペースは残る
End Sub

基幹システムから出力された固定長データなど、先頭のパディングだけ消したい場面で役立ちますよ。詳しくは LTrimで先頭の空白を一括削除する方法 をご覧ください。

RTrim関数 ── 末尾の半角スペースだけ削除

RTrimは、文字列の末尾（右側）にある半角スペースだけを削除します。

Sub RTrimExample()
    Dim s As String
    s = "   Hello World   "
    Debug.Print "[" & RTrim(s) & "]"
    ' 結果: [   Hello World]
    ' ※ 先頭のスペースは残る
End Sub

CSVインポート時に末尾へ付く余分なスペースを消すときに便利です。詳しくは RTrimで末尾の空白を一括削除する方法 を参考にしてください。

Replace関数 ── 指定した文字をすべて削除

Replace関数は、文字列の中から指定した文字をすべて置換（削除）できます。

Sub ReplaceExample()
    Dim s As String
    s = "Hello World"
    Debug.Print "[" & Replace(s, " ", "") & "]"
    ' 結果: [HelloWorld]
    ' ※ 文字列中のすべての半角スペースが消える
End Sub

Trim系では対応できない全角スペースやノーブレークスペース（NBSP）も、Replace関数なら削除できます。

ただしReplace関数には注意点があります。第4引数（start）を指定すると、その位置より前の文字が戻り値から切り捨てられます。

Sub ReplaceStartTrap()
    Debug.Print Replace("ABCABC", "A", "X", 3)
    ' 結果: CXBC
    ' ※ 3文字目以降が処理対象になり、1〜2文字目の"AB"が消える
End Sub

start引数を使う場面は少ないですが、知らないとハマるポイントです。基本的には省略して使いましょう。

VBA TrimとワークシートTRIM関数の違い

VBAのTrimと、ワークシート関数のTRIMは名前が同じですが動作が違います。ここを混同すると「消えるはずの空白が消えない」トラブルの原因になります。

最大の違いは中間スペースの扱いです。ワークシートTRIMは連続する半角スペースを1つにまとめますが、VBA Trimは中間のスペースに一切触れません。

VBAからワークシートTRIMを使いたい場合は、次のように書きます。

Sub WorksheetTrimExample()
    Dim s As String
    s = "Hello    World"

    ' VBA Trim → 中間スペースはそのまま
    Debug.Print "[" & Trim(s) & "]"
    ' 結果: [Hello    World]

    ' ワークシートTRIM → 中間スペースを1つに
    Debug.Print "[" & WorksheetFunction.Trim(s) & "]"
    ' 結果: [Hello World]
End Sub

中間の余分なスペースもまとめて処理したいときは、WorksheetFunction.Trim を使ってみてください。ワークシートのTRIM関数について詳しくは TRIM関数の使い方 で解説しています。

空白トラブル3パターン別の使い分けガイド

「どの関数を使えばいいの？」と迷ったら、空白の種類で判断しましょう。業務でよく遭遇する3パターンに分けて解説します。

パターン1: 前後の半角スペースが邪魔 → Trim

CSVインポートや基幹システム出力で混入しやすいパターンです。前後の半角スペースだけが問題なら、Trimで十分対応できます。

Sub Pattern1_Trim()
    Dim s As String
    s = "  東京都  "
    Debug.Print "[" & Trim(s) & "]"
    ' 結果: [東京都]
End Sub

固定長フィールドのパディング除去にも、このパターンが当てはまります。まずはTrimを試してみてください。

パターン2: 全角スペースが混ざっている → Replace

日本語入力の切り替え忘れで混入しやすいのが全角スペースです。Trim系では全角スペースを削除できないため、Replaceを使います。

Sub Pattern2_ZenkakuSpace()
    Dim s As String
    s = "東京都　港区"

    ' Trimでは消えない
    Debug.Print "[" & Trim(s) & "]"
    ' 結果: [東京都　港区]

    ' Replaceで全角スペースを削除
    Debug.Print "[" & Replace(s, "　", "") & "]"
    ' 結果: [東京都港区]
End Sub

全角スペースはChr(12288)でも指定できます。日本語データを扱うなら、覚えておくと便利ですよ。

パターン3: 見えない特殊空白（NBSPなど） → Replace + Chr

Webページからのコピペで混入するのが、ノーブレークスペース（NBSP、Chr(160)）です。見た目はただの空白ですが、Trimでは消せません。

Sub Pattern3_NBSP()
    Dim s As String
    s = "東京都" & Chr(160) & "港区"

    ' Trimでは消えない
    Debug.Print "[" & Trim(s) & "]"
    ' 結果: [東京都 港区]

    ' Replace + Chr(160)で削除
    Debug.Print "[" & Replace(s, Chr(160), "") & "]"
    ' 結果: [東京都港区]
End Sub

NBSPが混入すると、VLOOKUPで完全一致のはずなのに#N/Aエラーが出る原因になります。目に見えないだけに原因特定が難しいトラブルです。NBSPの詳しい対策は ノーブレークスペース完全対策ガイド で解説しています。

実践コード｜セル範囲の空白をまとめて一括削除する

ここからは、実際の業務で使える実践コードを紹介します。セル範囲に対して一括で空白を削除できるマクロです。

指定範囲の前後スペースを一括Trim

選択したセル範囲の前後半角スペースをまとめて削除するマクロです。

Sub TrimSelectedRange()
    Dim rng As Range
    Dim cell As Range

    Set rng = Selection

    For Each cell In rng
        If cell.Value <> "" Then
            cell.Value = Trim(cell.Value)
        End If
    Next cell

    MsgBox rng.Count & "セルのTrim処理が完了しました"
End Sub

セル範囲を選択してからマクロを実行するだけでOKです。For Each文 を応用した書き方になっています。

全角・NBSP対応の汎用クレンジングマクロ

半角スペース・全角スペース・NBSPをまとめて除去する汎用版です。

Sub CleanseSpaces()
    Dim rng As Range
    Dim cell As Range
    Dim tmp As String

    Set rng = Selection

    For Each cell In rng
        If cell.Value <> "" Then
            tmp = cell.Value
            tmp = Replace(tmp, Chr(12288), "")
            tmp = Replace(tmp, Chr(160), "")
            tmp = Trim(tmp)
            cell.Value = tmp
        End If
    Next cell

    MsgBox rng.Count & "セルのクレンジングが完了しました"
End Sub

処理の順番がポイントです。先にReplaceで全角・NBSPを消してから、最後にTrimで前後の半角スペースを仕上げます。

NOTE

マクロを保存するときは、ファイル形式をExcelマクロ有効ブック（.xlsm）にしてください。通常の.xlsx形式で保存すると、マクロが消えてしまいます。

空白の種類と対処法の早見表

業務データに混入しやすい空白を一覧にまとめました。

困ったときはこの表を見ながら、該当するReplace文をコードに追加してみてください。

よくあるエラーと対処法

空白削除の処理でつまずきやすいポイントをまとめました。

特に注意したいのが、TrimとReplaceのNull耐性の違いです。

Sub NullHandling()
    Dim v As Variant
    v = Null

    Debug.Print IsNull(Trim(v))
    ' 結果: True（Nullが返る＝エラーにならない）

    ' Replace(v, " ", "")  ← エラーになる
End Sub

セル範囲を一括処理するときは、If Not IsNull(cell.Value) のチェックを入れておくと安全ですよ。

Trimしても空白が消えない場合の特定方法

「Trimしたのに空白が残っている」ときは、AscW関数で文字のUnicodeコードポイントを調べましょう。

Sub InspectCharCodes()
    Dim s As String
    Dim i As Long

    s = Range("A1").Value

    For i = 1 To Len(s)
        Debug.Print "位置" & i & ": " & Mid(s, i, 1) & _
                    " → AscW=" & AscW(Mid(s, i, 1))
    Next i
End Sub

AscW=32なら半角スペース、160ならNBSP、12288なら全角スペースです。

NOTE

Asc関数はANSIコードを返しますが、AscW関数はUnicodeコードポイントを返します。日本語環境ではAscWを使うのがおすすめです。

文字コードがわかれば、対応するReplace文を書くだけで解決できます。

まとめ

VBAで空白を削除する4つの関数の使い分けをおさらいしましょう。

• Trim ── 前後の半角スペースを削除。基本はこれでOK
• LTrim / RTrim ── 先頭・末尾だけ削除したいときに
• Replace ── 全角スペース・NBSP・タブなど、Trimで消せない空白に対応

データのクレンジングでは、Trim単体ではなくReplaceと組み合わせるのが鉄板パターンです。汎用クレンジングマクロをコピペして、日常業務に役立ててみてください。

関連記事

• Trimで前後の空白を一括削除する方法
• LTrimで先頭の空白を一括削除する方法
• RTrimで末尾の空白を一括削除する方法
• ノーブレークスペース完全対策ガイド
• TRIM関数の使い方
• SUBSTITUTE関数の使い方
• For Each文の使い方
• VBA 最終行取得の方法