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