この記事では、WorksheetFunction.Trim の使い方を、VBA 標準の Trim・LTrim・RTrim との違いとあわせて解説します。4つの空白処理の挙動は、入力と出力の比較表で整理します。CSV やシステム出力のデータクリーニングに使える実務コードも紹介します。最後に、Trim 系をどれだけ使っても消えないノーブレークスペース（Chr(160)）の落とし穴と対処法も取り上げます。

VBA の WorksheetFunction.Trim とは？

WorksheetFunction.Trim は、ワークシート関数の TRIM を VBA から呼び出すメソッドです。文字列の先頭と末尾のスペースを削除します。さらに、単語の間にある連続したスペースも1つだけ残して圧縮します。

VBA には標準の Trim 関数もあります。ただし標準の Trim 関数は、中間の連続スペースには手を付けません。「単語間のスペースを1つに詰める」処理は、VBA 標準関数にはない機能です。

そこで WorksheetFunction オブジェクトを経由して、ワークシート関数の TRIM を借りてくるわけです。具体的な挙動を見てみましょう。

result = WorksheetFunction.Trim("A   B   C")
'--- 結果は "A B C"（単語間スペースが1つに圧縮される）---

入力 "A B C" の単語間には、それぞれ3つのスペースがあります。WorksheetFunction.Trim を通すと、すべて1つにまとめられて "A B C" になります。

NOTE: ワークシート関数を VBA から呼ぶ仕組み全般については、VBAでWorksheetFunctionを使う方法で詳しく解説しています。

WorksheetFunction.Trim の使い方

まずは基本の構文と、実際に動かすための準備を確認します。

WorksheetFunction.Trim(Arg1)

引数は次のとおりです。

戻り値は String 型です。Application.WorksheetFunction.Trim(Arg1) と書いても同じ動作になります。Application. は省略できます。

VBE の起動と標準モジュールの準備

コードを書くには、まず VBE（Visual Basic Editor）を開きます。Excel で Alt + F11 キーを押すと VBE が起動します。

リボンから開くこともできます。「開発」タブの「Visual Basic」ボタンをクリックする方法です。「開発」タブが表示されていない場合は、次の手順で追加します。

1. 「ファイル」→「オプション」を開きます。
2. 「リボンのユーザー設定」を選びます。
3. 右側の一覧で「開発」にチェックを入れます。

VBE が開いたら、メニューの「挿入」→「標準モジュール」をクリックします。表示されたコード入力欄に、これから紹介するコードを貼り付けてください。

基本コード

実際に WorksheetFunction.Trim を動かす基本コードです。変換前と変換後をメッセージボックスで見比べられるようにしています。

Sub WorksheetFunctionTrimSample()
    Dim sBefore As String '変換前の文字列
    Dim sAfter As String  '変換後の文字列

    '--- 変換前の文字列を用意 ---
    sBefore = "  Excel   VBA   入門  "

    '--- 連続スペースを1つに圧縮し、先頭末尾も削除 ---
    sAfter = WorksheetFunction.Trim(sBefore)

    '--- 変換前後を確認 ---
    MsgBox "変換前：[" & sBefore & "]" & vbCrLf & _
           "変換後：[" & sAfter & "]"
End Sub

このコードを実行すると、変換後は [Excel VBA 入門] と表示されます。先頭と末尾のスペースが消え、単語間の連続スペースも1つに詰まりました。[ ] で囲んでいるのは、両端のスペースが消えたことを目で確認しやすくするためです。

VBA Trim・LTrim・RTrim との違い｜4関数の比較表

ここがこの記事の核心です。VBA には空白を扱う関数が複数あります。それぞれ削除する範囲が異なります。

同じ文字列に4つの関数を通すと、結果は次のように変わります。入力は " A B " とします。先頭に2つ、中間に3つ、末尾に2つのスペースがある文字列です。

Trim・LTrim・RTrim はいずれも、中間の連続スペースをそのまま残します。中間スペースを1つに詰めるのは WorksheetFunction.Trim だけです。ここが最大の違いです。

「先頭と末尾だけ消えればいい」場合は VBA 標準の Trim で十分です。「単語間の余分なスペースも整えたい」場合は WorksheetFunction.Trim を選びます。

TIP: 各関数の単体の使い方は、VBA Trim関数・VBA LTrim関数・VBA RTrim関数の各記事で解説しています。空白処理全体の使い分けはVBAで空白を削除する方法まとめも参考にしてください。

WorksheetFunction.Trim が活躍する実務シーン

WorksheetFunction.Trim の出番は、間隔がそろっていないデータを受け取ったときです。代表的なのが、システムから出力されたレポートや CSV ファイルです。項目の区切りが複数スペースになっていることがよくあります。実務で使えるコードを2つ紹介します。

実務コード1: 1つのセルをクレンジングする

A 列のセルに入った文字列を整え、B 列に書き出すコードです。

Sub CleanSingleCell()
    Dim sRaw As String   '元の文字列
    Dim sClean As String '整形後の文字列

    '--- A2セルの値を取得 ---
    sRaw = Range("A2").Value

    '--- 先頭末尾＋中間スペースを正規化 ---
    sClean = WorksheetFunction.Trim(sRaw)

    '--- 整形結果をB2セルに出力 ---
    Range("B2").Value = sClean
End Sub

A2 に " 山田 太郎 " のような値が入っていても、B2 には "山田 太郎" ときれいに出力されます。

実務コード2: セル範囲を一括クレンジングする

実務では1セルだけでなく、列全体を一気に処理したい場面が多いはずです。A 列のデータを最終行まで順番に整えるコードです。

Sub CleanRangeWithTrim()
    Dim lastRow As Long '最終行の行番号
    Dim i As Long       '行カウンター

    '--- A列の最終行を取得 ---
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    '--- 2行目から最終行まで繰り返す ---
    For i = 2 To lastRow
        '--- 文字列のセルだけを対象に正規化 ---
        If VarType(Cells(i, 1).Value) = vbString Then
            Cells(i, 1).Value = WorksheetFunction.Trim(Cells(i, 1).Value)
        End If
    Next i

    MsgBox "クレンジングが完了しました。"
End Sub

VarType でセルの値が文字列かどうかを確認しています。数値や日付のセルに Trim をかけると、意図しない型変換が起きることがあるためです。文字列のセルだけを対象にすると安全です。

ノーブレークスペース（Chr(160)）が削除できない落とし穴と対処法

WorksheetFunction.Trim には1つ大きな落とし穴があります。それが「ノーブレークスペース」です。Web ページや一部のシステムからコピーしたデータに混ざっていることがあります。

ノーブレークスペースは、文字コードの値が160の空白文字です。HTML では   として使われます。見た目は普通のスペースとそっくりですが、別の文字です。

WorksheetFunction.Trim が削除できるのは、値が32の半角スペース（Chr(32)）だけです。これは公式ドキュメントにも明記されています。VBA 標準の Trim・LTrim・RTrim も同じく、ノーブレークスペースには反応しません。

Sub TrimCannotRemoveNbsp()
    Dim sText As String '元の文字列

    '--- 単語の間にノーブレークスペースを含む文字列 ---
    sText = "A" & Chr(160) & Chr(160) & "B"

    '--- Trimをかけてもノーブレークスペースは残る ---
    MsgBox "[" & WorksheetFunction.Trim(sText) & "]"
End Sub

このコードを実行しても、A と B の間のノーブレークスペースは消えません。「Trim を試したのに空白が消えない」という現象の正体は、たいていこれです。

対処法は、ノーブレークスペースを先に半角スペースへ変換することです。Replace 関数を使います。半角スペースに変えてから WorksheetFunction.Trim を通すと、区切りのスペースを残しつつ正規化できます。

Sub CleanWithNbsp()
    Dim sRaw As String   '元の文字列
    Dim sClean As String '整形後の文字列

    '--- A2セルの値を取得 ---
    sRaw = Range("A2").Value

    '--- ノーブレークスペースを半角スペースに変換 ---
    sClean = Replace(sRaw, Chr(160), " ")

    '--- 連続スペースを1つに圧縮し先頭末尾も削除 ---
    sClean = WorksheetFunction.Trim(sClean)

    '--- 整形結果をB2セルに出力 ---
    Range("B2").Value = sClean
End Sub

「Chr(160) を半角スペースに変換 → WorksheetFunction.Trim」の順番がポイントです。いきなり全削除すると、本来必要な区切りスペースまで失われることがあります。

NOTE: ノーブレークスペースの正体と消し方は、Excelで消えない空白の正体と消し方でさらに詳しく解説しています。

WorksheetFunction.Trim を使うときの注意点・よくあるエラー

最後に、つまずきやすいポイントを整理します。

1つ目は、タブや改行は削除されないことです。削除対象はあくまで半角スペースだけです。タブ（Chr(9)）や改行（Chr(10)、Chr(13)）が混じっている場合は、Replace で個別に処理する必要があります。

2つ目は、全角スペースの扱いです。WorksheetFunction.Trim は半角スペースを対象に設計されています。全角スペースを確実に消したいときは、Replace(s, "　", " ") で半角に変換してから処理するのが安全です。

3つ目は、空セルや数値セルへの適用です。空のセルや数値のセルを直接渡すと、思わぬ型変換が起きることがあります。実務コード2のように VarType で文字列かどうかを確認してから渡すと、トラブルを防げます。

まとめ

WorksheetFunction.Trim は、文字列の先頭・末尾のスペースに加えて、単語間の連続スペースも1つに圧縮できるメソッドです。VBA 標準の Trim 関数が中間スペースを残すのに対し、こちらは中間スペースを詰めてくれます。この違いが両者の最大のポイントです。

システム出力や CSV インポート後のデータで、間隔が不規則な文字列を整えたいときに役立ちます。ただし、ノーブレークスペース（Chr(160)）は Trim 系では消せません。Replace で半角スペースに変換してから処理する、という流れを覚えておくと安心です。

空白処理の関数はそれぞれ役割が違います。先頭・末尾だけなら Trim、片側だけなら LTrim/RTrim、中間も整えるなら WorksheetFunction.Trim、と使い分けてみてください。

関連記事

• VBA Trim関数の使い方｜前後の空白を一括削除する方法
• VBA LTrim関数の使い方｜先頭の空白を削除する方法
• VBA RTrim関数の使い方｜末尾の空白を一括削除する方法
• VBAで空白を削除する方法｜Trim・Replace・全角スペースの対処法まとめ
• VBAのTrim・LTrim・RTrim関数で文字列の空白を除去する方法
• VBAでWorksheetFunctionを使う方法｜Excel関数をマクロで活用する
• Excelで消えない空白の正体と消し方｜ノーブレークスペース完全対策ガイド

この記事では、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の Trim関数 を使えば、文字列の前後にある空白をまとめて一括削除できます。この記事では、VBA Trimの基本構文から業務で使える実践コードまで紹介します。

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

VBA Trim関数とは？前後の空白を削除する関数

VBAのTrim関数は、文字列の 先頭と末尾 にある空白を削除して返す関数です。

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

ポイントは、前後の空白だけが消える ということ。文字列の途中にある空白はそのまま残ります。

LTrim・RTrim・Trimの違い

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

迷ったらTrimを選んでおけば間違いありません。前後どちらかだけ除去したい場面では、LTrimやRTrimを使い分けてみてください。

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

ExcelのワークシートTRIM関数（セルの数式で使うほう）と、VBAのTrim関数は名前が同じでも動きが異なります。

ワークシート版は内部の連続スペースも整理してくれます。VBAからワークシート版を呼びたい場合は、次のように書きます。

Application.WorksheetFunction.Trim(s)

通常の前後空白削除だけならVBA Trimで十分ですよ。「Trimしたのに内部のスペースが残っている」と感じたら、この違いを思い出してみてください。

ワークシート版の詳しい使い方は ExcelのTRIM関数の使い方 で解説しています。

削除できない空白に注意

Trimが削除できるのは、半角スペース（Chr(32)）だけ です。

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

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

日本語のデータで特に注意したいのが全角スペースです。氏名の「姓　名」のような全角区切りはTrimでは消えません。また、Webページからコピーしたデータには、NBSPが含まれていることがあります。Trimで消えない空白に出くわしたら、Replace 関数で個別に対処しましょう。

Replace(対象文字列, ChrW(12288), "")  '--- 全角スペースを削除 ---
Replace(対象文字列, Chr(160), "")     '--- NBSPを削除 ---

後述の実践コード3つ目で、Replace併用の一括処理コードを紹介しています。

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

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

VBE（Visual Basic Editor）の開き方

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

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

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

標準モジュールの挿入

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

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

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

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

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

Strings.Trim(string)

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

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

Sub Trimの動作確認()

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

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

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

End Sub

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

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

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

Strings.TrimとTrimの違い

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

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

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

空白がない場合の挙動

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

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

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

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

対応する空白の種類

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

削除されない空白を含むデータを扱う場合は、Replace 関数を併用するのがおすすめです。

VBA Trimの実践コード3選

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

シート全体の前後空白を一括削除する

実際の業務データでは、空白が混じる列は1つとは限りません。次のコードは、UsedRange全体を走査して、文字列が入っているセルの前後空白をまとめて削除します。

Sub シート全体の前後空白を一括削除()

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

    Set ws = ActiveSheet
    Set rng = ws.UsedRange

    '--- 各セルの前後空白を削除 ---
    For Each cell In rng
        If VarType(cell.Value) = vbString Then
            cell.Value = Trim(cell.Value)
            lCount = lCount + 1
        End If
    Next cell

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

End Sub

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

LTrimやRTrimのA列限定コードとは違い、「どの列に空白があるか分からない」ときに便利です。

VLOOKUP前にデータを整形する

VLOOKUPの検索がうまくいかない原因の多くは、キー列の空白です。次のコードは、検索キーが入っているA列をTrimで整形してから、VLOOKUPを実行します。

Sub Trim整形してからVLOOKUP()

    Dim ws As Worksheet    '--- 対象シート ---
    Dim lastRow As Long    '--- 最終行 ---
    Dim i As Long          '--- ループカウンタ ---
    Dim sKey As String     '--- 検索キー ---
    Dim vResult As Variant '--- 検索結果 ---

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

    '--- A列の前後空白を除去 ---
    For i = 2 To lastRow
        If VarType(ws.Cells(i, "A").Value) = vbString Then
            ws.Cells(i, "A").Value = Trim(ws.Cells(i, "A").Value)
        End If
    Next i

    '--- VLOOKUPでSheet2のマスタから値を取得 ---
    For i = 2 To lastRow
        sKey = ws.Cells(i, "A").Value
        vResult = Application.VLookup( _
            sKey, Sheets("Sheet2").Range("A:B"), 2, False)

        If IsError(vResult) Then
            ws.Cells(i, "B").Value = "該当なし"
        Else
            ws.Cells(i, "B").Value = vResult
        End If
    Next i

    MsgBox "VLOOKUP完了", vbInformation

End Sub

先にTrimで整形するひと手間を入れるだけで、「データはあるのに一致しない」というトラブルを防げます。照合先のマスタ側にも空白がある場合は、マスタのA列にも同じTrim処理をかけてくださいね。

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

Trimだけでは取り切れないタブやNBSPもまとめて除去したい場面があります。次のコードは、Trimに加えて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

            '--- Step1: 前後の半角スペースを削除 ---
            sVal = Trim(sVal)

            '--- Step2: 全角スペースを削除 ---
            sVal = Replace(sVal, ChrW(12288), "")

            '--- Step3: タブ文字を削除 ---
            sVal = Replace(sVal, Chr(9), "")

            '--- Step4: NBSP（ノーブレークスペース）を削除 ---
            sVal = Replace(sVal, Chr(160), "")

            '--- Step5: 改行を削除（必要に応じて） ---
            sVal = Replace(sVal, vbCr, "")
            sVal = Replace(sVal, vbLf, "")

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

    MsgBox lCount & " 件のセルから空白・制御文字を削除しました。", vbInformation

End Sub

Webページからコピーしたデータや、外部システムから出力したCSVには、全角スペースやタブ・NBSPが混じっていることが多いです。このコードなら、Trimで消せない空白もまとめて対処できますよ。なお、Step2のReplaceは文字列の途中にある全角スペースも削除します。「姓　名」のような内部の全角区切りを残したい場合は、Step2を外して使ってください。

空白の種類別の対処法をもっと詳しく知りたい方は、VBA空白削除まとめ｜Trim・LTrim・RTrim・Replaceの使い分け方もあわせてどうぞ。

よくあるエラーと対処法

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

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

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

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

対策は2つあります。CStr（値を文字列に変換する関数）で明示的に変換するか、VarType で文字列セルだけを処理対象にするかです。

あいまいな名前のコンパイルエラー

複数のライブラリを参照設定していると、Trim という名前が衝突してコンパイルエラーが出ることがあります。「あいまいな名前が検出されました」というメッセージが表示されたら、Strings.Trim とフル修飾で書けば解決しますよ。

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

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

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

まとめ

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

• Trimは前後の空白を両方削除する関数。文字列内部の空白はそのまま残る
• 削除されるのは半角スペースのみ。全角スペース・タブ・NBSPは削除されない
• 空白がない文字列を渡してもエラーにならないので、安心してまとめて処理できる
• 業務では UsedRange を走査して、シート全体を一括クレンジングするのが定番
• 全角スペースやタブ・NBSPも消したいときは、TrimとReplace関数を組み合わせる

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

前後どちらかだけ除去したいときは、LTrim（先頭の空白削除）やRTrim（末尾の空白削除）も使い分けてみてください。空白処理の全体像は、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 最終行取得の方法