この記事では、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関数の使い方もあわせてどうぞ。

見た目は同じなのに、文字列比較で「不一致」が返ってくる。原因を調べてみると、セルの末尾に半角スペースが入っていた――こんなトラブルは意外と多いものです。

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

そんなときに活躍するのが、VBAの RTrim関数 です。たった1行のコードで、末尾の空白をまとめてクレンジングできます。この記事では、VBA RTrimの基本的な使い方から業務で使える実践コードまで、順を追って解説していきます。

VBA RTrim関数とは？末尾の空白を削除する関数

RTrimは、文字列の 末尾（右側）にある空白だけを削除する VBA関数です。「Right Trim」の略で、右側をトリミングするイメージですね。

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

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

RTrimとWorksheetFunction.Trimの違いに注意

VBAには、これまで紹介したTrim族のほかに WorksheetFunction.Trim という書き方もあります。名前が似ていて混同しやすいのですが、動作はまったくの別物なので押さえておきましょう。

VBAのRTrim・LTrim・Trimは、あくまで文字列の前後にある空白だけを処理します。文字列の途中（中間）にある空白には一切手をつけません。

一方、Application.WorksheetFunction.Trim は、ワークシート関数のTRIMと同じ動作をします。前後の空白を削除するのに加えて、文字列の途中にある連続スペースを1つにまとめて圧縮するのが大きな違いです。

たとえば「田中　　太郎」のように氏名の間に余分なスペースが混ざっているデータを整形したいときは、WorksheetFunction.Trim の出番です。

Debug.Print Trim("田中  太郎  ")
'--- 結果: "田中  太郎"（中間スペースは残る） ---

Debug.Print Application.WorksheetFunction.Trim("田中  太郎  ")
'--- 結果: "田中 太郎"（中間スペースが1つに圧縮される） ---

「末尾だけ」を確実に処理したいときはRTrim、「見栄えのために中間も整えたい」ときはWorksheetFunction.Trim、と覚えておくと迷いません。

LTrim・RTrim・Trimの違い

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

3つの使い分けをもっと詳しく知りたい方は、VBA 空白削除まとめで比較表つきで解説しています。

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

削除できない空白に注意

RTrimが削除できるのは、半角スペース（Chr(32)）と全角スペース（ChrW(12288)）です。

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

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

特にWebページからコピーしたデータには、NBSP（Chr(160)）が含まれていることがあります。NBSPを除去したい場合は、Replace 関数で個別に対処しましょう。

Replace(対象文字列, ChrW(160), "")

この点は LTrim や Trim でも同じです。

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

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

VBE（Visual Basic Editor）の開き方

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

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

VBEの画面構成についてもっと知りたい方は、VBE画面の見方ガイドを参考にしてみてください。

標準モジュールの挿入

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

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

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

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

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

Strings.RTrim(string)

引数に文字列を渡すと、末尾の空白を取り除いた文字列が返ってきます。

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

Sub RTrimの動作確認()

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

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

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

End Sub

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

RTrim関数の仕組みを深掘りする

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

Strings.RTrimとRTrimの違い

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

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

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

空白がない場合の挙動

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

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

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

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

対応する空白の種類

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

削除されない空白を含むデータを扱う場合は、Replace 関数を併用するのがおすすめです。具体的なコードはこのあとの実践コードで紹介します。

VBA RTrimの実践コード3選

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

セルの末尾空白を一括クレンジングする

A列に入力されたデータの末尾空白を、まとめて除去するマクロです。データ整形の前処理に便利ですよ。

Sub A列の末尾空白を一括削除()

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

    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 = RTrim(cell.Value)
            lCount = lCount + 1
        End If
    Next cell

    MsgBox lCount & "件のセルを処理しました。", vbInformation

End Sub

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

対象列を変えたい場合は、Range("A1:A"...) の「A」を任意の列に書き換えてください。For Eachの基本を押さえておくと、このパターンの応用が広がります。

固定長データの末尾空白を除去する

RTrimが特に活躍するのが、固定長データの処理です。COBOL系システムやデータベースのCHAR型フィールドでは、文字数が足りない部分を空白で埋める「パディング」が行われます。こうしたデータをExcelに取り込むと、各項目の末尾に大量のスペースが付いてきます。

以下は、固定長レコードを項目ごとに切り出して、末尾のパディングを除去するコードです。

Sub 固定長データの末尾空白を除去()

    Dim sRecord As String   '--- 固定長レコード1行分 ---
    Dim sName As String     '--- 氏名（20文字固定） ---
    Dim sDept As String     '--- 部署名（15文字固定） ---
    Dim sArea As String     '--- 地域（10文字固定） ---

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

    '--- 固定長で切り出し ---
    sName = Mid(sRecord, 1, 20)
    sDept = Mid(sRecord, 21, 15)
    sArea = Mid(sRecord, 36, 10)

    '--- 末尾のパディング空白を除去 ---
    sName = RTrim(sName)
    sDept = RTrim(sDept)
    sArea = RTrim(sArea)

    '--- 結果を確認 ---
    MsgBox "氏名: [" & sName & "]" & vbCrLf & _
           "部署: [" & sDept & "]" & vbCrLf & _
           "地域: [" & sArea & "]", vbInformation

End Sub

Mid（文字列の指定位置から指定文字数を切り出す関数）で固定長の位置を指定して切り出し、RTrim で末尾の空白を除去しています。先頭には空白が入らないデータなので、LTrim や Trim ではなくRTrimだけで十分です。

このパターンは、基幹システムからのデータ移行や帳票出力のときに重宝しますよ。

RTrim + Replaceで見えない空白も一掃する

RTrimだけでは取り切れないタブやNBSPも末尾からまとめて除去したい場面があります。次のコードは、RTrimに加えてReplaceで非対応の空白文字も一掃します。

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

            '--- 末尾のタブ・改行を除去 ---
            Do While Right(sVal, 1) = vbTab Or _
                     Right(sVal, 1) = vbLf Or _
                     Right(sVal, 1) = vbCr
                sVal = Left(sVal, Len(sVal) - 1)
            Loop

            '--- NBSPを除去 ---
            sVal = Replace(sVal, ChrW(160), "")

            '--- 通常の末尾空白を除去 ---
            sVal = RTrim(sVal)

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

    MsgBox lCount & "件のセルを修正しました。", vbInformation

End Sub

処理の流れは3ステップです。まず Do While ループ（Do Loopの基本）で末尾のタブ・改行を1文字ずつ削り取ります。次に Replace でNBSPを除去。最後に RTrim で通常の半角・全角スペースを仕上げます。

Webページからコピーしたデータや、複数システムを経由したデータにはいろいろな空白文字が混在しがちです。このコードを使えば、まとめてクリーニングできますよ。

VLOOKUPやIFが一致しない原因は末尾空白かもしれません

「データは確かに入っているのにVLOOKUPが #N/A を返す」「IF関数で等号比較したら、見た目は同じなのに不一致になる」――こうしたトラブルの隠れた原因が、末尾の見えない空白です。

ワークシート上で見ているだけでは、セルの末尾にスペースが付いていることに気づけません。特に、Webページからコピーしたデータや、基幹システム・データベースから取り込んだデータで起こりがちです。

原因を切り分けるには、次の2つの方法が手軽です。

• =LEN(A1) で実際の文字数を数え、目で見た文字数とズレていないか確認する
• =A1="テスト" のように直接比較して、TRUE になるかチェックする

LENの結果が想定より多い場合や、直接比較がFALSEになる場合は、末尾空白が紛れ込んでいる可能性が高いです。

Sub 末尾空白の有無をチェック()

    Dim cell As Range

    For Each cell In Selection
        If VarType(cell.Value) = vbString Then
            '--- 元の文字数とRTrim後の文字数を比較 ---
            If Len(cell.Value) <> Len(RTrim(cell.Value)) Then
                Debug.Print cell.Address & " に末尾空白あり（" & _
                    Len(cell.Value) - Len(RTrim(cell.Value)) & "文字）"
            End If
        End If
    Next cell

End Sub

チェックしたいセル範囲を選択してから実行すると、末尾空白があるセルのアドレスと余分な文字数がイミディエイトウィンドウに出力されます。原因がわかったら、前述の一括クレンジングコードでまとめて除去し、再計算すればVLOOKUPやIFが正しく動くようになりますよ。

数式セルへの誤上書きを防ぐ安全なクレンジングコード

一括クレンジングのコードでは VarType(cell.Value) = vbString で文字列セルだけを対象にしていますが、もう1点だけ気をつけたいことがあります。

それは、数式セルの扱いです。VLOOKUPやTEXT関数など、結果が文字列になる数式が入ったセルも VarType ではvbStringを返すことがあります。そのままRTrimをかけて cell.Value に代入すると、せっかくの数式が計算結果の文字列で上書きされてしまうのです。

これを防ぐには、HasFormula（セルに数式が入っているかを判定するプロパティ）で数式セルを除外します。

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

And Not cell.HasFormula を条件に加えるだけで、数式セルは触らずに済みます。計算式と手入力データが混在する業務ファイルでは、この一行が事故防止に効いてきますよ。

よくあるエラーと対処法

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

型の不一致（実行時エラー 13）

数値が入っているセルの値を、String型の変数に直接代入しようとすると「型の不一致」エラーが発生することがあります。

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

対策は2つあります。CStr（値を文字列に変換する関数）で明示的に文字列に変換するか、VarType で文字列セルだけを処理対象にするかです。実践コードでは VarType による判定を入れているので、そのまま使えば安心です。

コンパイルエラー（あいまいな名前が検出されました）

複数のライブラリを参照設定していると、RTrim という名前が衝突してコンパイルエラーが出ることがあります。この場合は Strings.RTrim とフル修飾で書けば解決します。

VBEの参照設定はローカルウィンドウの活用ガイドでも触れていますので、参考にしてみてください。

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

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

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

よくある質問

RTrimを使うときに寄せられがちな疑問をまとめました。

RTrimは複数の末尾スペースをまとめて削除できますか？

はい、できます。末尾にスペースが何個あっても、連続しているものはすべて一括で除去します。「末尾の1個だけ消える」といった挙動ではないので、何個付いているか数える必要はありません。

RTrimとLTrimを両方かけたい場合はどう書きますか？

LTrim(RTrim(str)) のように入れ子にすれば、先頭と末尾の両方を削除できます。ただし、前後どちらも削除したいだけなら Trim(str) を使うほうが簡潔です。コードの意図も伝わりやすいので、特別な理由がなければTrimをおすすめします。

全角スペースが削除されないときはどうすればよいですか？

RTrimの全角スペースの扱いは、Excelのバージョンや環境によって挙動が異なる場合があります。確実に除去したいときは、Replace 関数を併用するのが安全です。

sVal = Replace(RTrim(sVal), ChrW(12288), "")

ChrW(12288) が全角スペースのコードです。RTrimのあとにReplaceをかければ、環境に左右されず末尾の全角スペースを取り除けます。

CSVやテキストファイルを読み込んだ文字列にも使えますか？

使えます。Line Input で1行ずつ読み込んだ文字列変数に、そのまま sLine = RTrim(sLine) とかけるだけです。CSVやテキストファイルには末尾にCR（Chr(13)）や余分なスペースが紛れ込むことがあるので、読み込んだ直後にRTrimをかけておくと、後処理のクレンジングを省けて便利ですよ。セルに対する処理とまったく同じ要領で扱えます。

RTrimで処理したあと、削除した空白は元に戻せますか？

いいえ、RTrimで削除した空白を元に戻すことはできません。セルの値を直接書き換える一括クレンジングを実行する前には、シートをコピーしてバックアップを取っておくことをおすすめします。Ctrl + Z で戻せる場合もありますが、マクロ実行後は元に戻せないことが多いため、バックアップが確実です。

まとめ

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

• RTrimは末尾の空白だけを削除する関数。先頭は残る
• 半角・全角スペースは削除されるが、タブやNBSPは削除されない
• 空白がない文字列を渡してもエラーにならないので、安心してまとめて処理できる
• 固定長データの末尾パディング除去に特に活躍する
• タブやNBSPも除去したい場合は、Replace関数と組み合わせる

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

用途に応じて、LTrim（先頭の空白削除）や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 最終行取得の方法