この記事は次のような人におすすめ

• セルの前後についた余計なスペースを一括で削除したい
• コピペやCSVインポート後のデータを整形したい
• TRIM関数とSUBSTITUTE関数・CLEAN関数の違いを知りたい

TRIM関数とは？

TRIM（トリム）関数は、文字列から余分な半角スペースを削除する関数です。英語の「trim」は「刈り込む・整える」という意味で、まさにデータを綺麗にするための関数です。

TRIM関数は次の2つの処理を同時に行います。

• 文字列の先頭と末尾にあるスペースをすべて削除する
• 文字列の内部にある連続した半角スペースを1つに圧縮する

たとえば「 田中 太郎 」という文字列にTRIM関数を使うと、「田中 太郎」になります。前後のスペースが消えて、名前の間の連続スペースも1つにまとまります。

NOTE

ワークシートのTRIM関数は半角スペース専用です。VBAにも同名のTrim関数がありますが、VBA版は前後のスペースだけを除去します。内部の連続スペースは圧縮しません。VBAの空白除去についてはVBA Trim関数の記事を参照してください。

TRIM関数の書き方（構文と引数）

基本構文

=TRIM(文字列)

引数の説明

引数は「文字列」の1つだけなので、とてもシンプルです。セル参照のほか、ダブルクォーテーションで囲んだ文字列を直接指定することもできます。

TRIM関数の基本的な使い方

前後のスペースを削除する

セルA1に「 東京都新宿区 」と前後にスペースが入っている場合です。

=TRIM(A1)

結果は「東京都新宿区」になります。先頭と末尾のスペースがすべて消えます。

連続スペースを1つに圧縮する

セルA1に「田中 太郎」と名前の間にスペースが2つ入っている場合です。

=TRIM(A1)

結果は「田中 太郎」になります。内部の連続スペースが1つに圧縮されます。もちろん前後にもスペースがあれば同時に削除されます。

文字列を直接指定する

セル参照ではなく、数式の中に文字列を直接書くこともできます。

=TRIM("  Excel 関数   ")

結果は「Excel 関数」です。前後のスペースが消え、内部の連続スペースが1つに圧縮されます。

TRIM関数の実務活用パターン

VLOOKUP前のデータ整形

外部システムから取り込んだデータには、見えないスペースが紛れ込んでいることがあります。このスペースが原因でVLOOKUP関数が「一致なし」になるケースは非常に多いです。

検索値と検索範囲の両方にTRIM関数を適用して、スペースの影響を排除しましょう。

=VLOOKUP(TRIM(A2),B:C,2,FALSE)

VLOOKUP・INDEX/MATCHで結果がおかしいときは、まずTRIM関数を試してみてください。LEN関数で「見た目は同じなのに文字数が違う」かどうかを確認するのも有効です。

=LEN(A2)=LEN(TRIM(A2))

この数式がFALSEなら、セルに余分なスペースが含まれている証拠です。

CSVインポート後のクレンジング

CSVファイルをExcelに取り込むと、フィールドの前後にスペースが入ることがあります。データが大量にある場合は、作業列を使ってTRIM関数で一括整形するのが効率的です。

=TRIM(A2)

この数式を下方向にコピーして、整形後のデータを「値として貼り付け」で元の列に上書きすれば完了です。

TIP

CSVデータにはスペース以外にも改行コードなどの制御文字が混ざることがあります。その場合はCLEAN関数と組み合わせると確実です。=TRIM(CLEAN(A2)) で制御文字の除去とスペース整形を同時に行えます。

TRIM関数とSUBSTITUTE関数の合わせ技

TRIM関数は半角スペースだけを処理します。全角スペースも含めて除去したい場合は、SUBSTITUTE関数との合わせ技が便利です。

=TRIM(SUBSTITUTE(A1,"　"," "))

この数式はまずSUBSTITUTE関数で全角スペースを半角スペースに変換し、その後TRIM関数で余分な半角スペースを整理します。全角・半角が混在したデータを一発で綺麗にできるので、覚えておくと重宝します。

すべてのスペースを完全に消したい場合はSUBSTITUTE関数だけで対応できます。

=SUBSTITUTE(SUBSTITUTE(A1," ",""),"　","")

「単語間のスペースは1つ残したい」ならTRIM関数、「スペースを全部消したい」ならSUBSTITUTE関数と使い分けてください。

名前リストの姓名間スペース統一

社員名簿や顧客リストで「田中 太郎」「佐藤 花子」のように姓名間のスペースがバラバラなことがあります。TRIM関数を使えば、連続スペースが1つに統一されます。

=TRIM(A2)

結果はすべて「姓（スペース1つ）名」の形に揃います。データの見た目が統一されるだけでなく、検索や集計の精度も上がります。

TRIM関数で削除できないスペース・文字

TRIM関数は万能ではありません。処理できるのは半角スペース（文字コード32）だけです。

Webページからコピーしたデータには、ノーブレークスペース（CHAR(160)）が含まれていることがあります。見た目は通常のスペースと同じなのにTRIM関数で消えない場合は、この文字を疑ってみてください。

=TRIM(SUBSTITUTE(A1,CHAR(160)," "))

CHAR(160)を半角スペースに変換してからTRIM関数に渡すことで、ノーブレークスペースも除去できます。

TRIM関数とCLEAN関数の違い

TRIM関数とCLEAN関数は、どちらも「不要な文字を消す」関数ですが、削除対象が異なります。

両方を同時に行いたい場合は、組み合わせて使うのがベストです。

=TRIM(CLEAN(A1))

CLEAN関数で制御文字を除去し、TRIM関数でスペースを整理する順番で使います。CSVや外部データの取り込み後には、このセットで処理しておくと安心です。

よくあるエラーと対処法

TRIM関数自体はエラーが出にくい関数ですが、意図した結果にならないケースがあります。

TIP

TRIM関数でスペースが消えないときは、=CODE(LEFT(A1,1)) で先頭の文字コードを確認してみましょう。32（半角スペース）以外の値が返ってきたら、その文字コードに対応したSUBSTITUTE関数で処理できます。

まとめ

TRIM関数は「文字列の余分な半角スペースを削除する」ための関数です。

• 前後のスペースをすべて削除し、内部の連続スペースを1つに圧縮する
• 引数は「文字列」の1つだけでシンプル
• VLOOKUP前のデータ整形やCSVクレンジングに効果的
• 全角スペースにはSUBSTITUTE関数、制御文字にはCLEAN関数と組み合わせる
• =TRIM(CLEAN(A1)) で制御文字とスペースを同時に処理できる

データの整形はVLOOKUPや集計の精度に直結します。外部データを取り込んだらまずTRIM関数で整えるクセをつけておくと、トラブルを未然に防げます。ぜひ活用してみてください。

関連記事

• SUBSTITUTE関数の使い方
• CLEAN関数の使い方
• ASC関数の使い方
• LEN関数の使い方
• VBA Trim関数の使い方
• VLOOKUP関数の使い方
• IFERROR関数の使い方

関数一覧

Excel関数の一覧は下記の記事で確認できます。

• Excel関数 機能別一覧

エラー値が表示される場合は、下記の記事も参考にしてみてください。

• Excelのエラー値一覧

見た目はただのスペースなのに、いつもの方法では消せないのは本当に厄介ですよね。そのまま放置すると、VLOOKUPの不一致や集計ミスの原因になってしまいます。

この記事では、その正体であるノーブレークスペース（NBSP） の見分け方から、関数やVBAでの削除方法まで解説します。

この記事は次のような人におすすめ

• TRIMやReplaceで消せない空白に困っている
• Webや外部システムから取り込んだデータの整形をしたい
• ノーブレークスペースの原因と対処法をまとめて知りたい

ノーブレークスペースとは？

ノーブレークスペース（Non-Breaking Space、略称: NBSP）は、文字コード 160 の特殊な空白文字です。

通常の半角スペース（文字コード 32）とは別の文字として扱われます。見た目はまったく同じスペースなのに、Excelの関数やVBAの標準的な処理では「空白」として認識されません。

NOTE

NBSPはもともとHTMLで「この位置では改行しない」ことを指定するための文字です。Webページの文字間隔を調整する目的で使われることが多く、Webからデータをコピーすると混入しやすくなっています。

ノーブレークスペースが混入する原因

NBSPがExcelに入り込む主なルートは次のとおりです。

Webサイトからのコピペ

最も多い原因がWebサイトからのコピー&ペーストです。HTMLソースに   が含まれていると、Excelに貼り付けたときにNBSPとして残ります。

外部システムからのデータ連携

基幹システムや会計ソフトからCSVやテキストで出力したデータに含まれていることがあります。システム側がNBSPを空白の代わりに使っているケースです。

Wordや他のOfficeアプリからの貼り付け

Wordで作成した文書をコピーすると、NBSPが混入することがあります。Wordでは Ctrl + Shift + Space で意図的にNBSPを挿入できます。知らずに入力されている場合もあるので注意が必要です。

ChromeやTeamsなどのChromiumアプリからのコピペ

近年、業務でよく使われるアプリからのコピペが混入経路として増えています。Chrome・Edge・Teams・Slack・VS Codeはいずれも内部でChromiumベースのレンダリングエンジンを使っています。テキストをコピーするとHTMLもクリップボードに乗るため、Excelに貼り付けたとき、HTML内の   がそのままNBSPとして混入します。

コピペの頻度が多いほどNBSPが累積しやすくなります。「どのアプリから貼ったか」を思い出すだけで、混入原因の絞り込みに役立ちます。

ノーブレークスペースの見分け方

NBSPは見た目では普通のスペースと区別できません。「空白があるのに消せない」と感じたら、次の方法で確認してみてください。

CODE関数で文字コードを確認する

セルの先頭文字を調べるには、次の数式を使います。

=CODE(LEFT(A1,1))

結果が 160 であればNBSPです。通常の半角スペースなら 32 が返ります。

途中に隠れている場合は、LEN関数で文字数を数えてみてください。見た目の文字数とLEN関数の結果がずれていたら、見えない文字が混入しています。

=LEN(A1)

LEN関数とSUBSTITUTE関数で個数を特定する

NBSPが何個含まれているかを数えるには、次の数式が便利です。

=LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(160),""))

SUBSTITUTE関数でNBSPを削除した文字列のLENと比較することで、NBSP文字数がわかります。

条件付き書式でNBSPを含むセルをハイライトする

クレンジングする前に、まず「どのセルにNBSPが入っているか」を視覚的に確認したいときに便利な方法です。条件付き書式と組み合わせると、データ全体を見渡しながらNBSPの混入状況を一目で把握できます。

設定手順

1. NBSPの有無を確認したいセル範囲を選択する（例: A2:A100）
2. [ホーム] タブ → [条件付き書式] → [新しいルール] をクリック
3. [数式を使用して、書式設定するセルを決定] を選ぶ
4. 数式欄に次の式を入力する

=ISNUMBER(SEARCH(CHAR(160),A2))

1. [書式] ボタンから塗りつぶし色（例: 薄い赤）を選んで [OK] をクリック

これで、A列の中でNBSPを含むセルだけが赤く塗られて表示されます。データの行数が多くても、スクロールしながら混入箇所を確認できます。

複数の見えない空白をまとめてハイライトする

NBSPだけでなく、ゼロ幅スペースや全角スペースなど、複数の「見えない空白」を一括で見つけたい場合は、OR関数で条件を組み合わせます。

=OR(ISNUMBER(SEARCH(CHAR(160),A2)),ISNUMBER(SEARCH(UNICHAR(8203),A2)),ISNUMBER(SEARCH("　",A2)))

NBSP・ゼロ幅スペース・全角スペースのいずれかを含むセルがすべてハイライトされます。

TIP

条件付き書式を設定したまま「検索と置換」でNBSPを削除すると、削除されたセルからハイライトが消えていく様子が見えるので、進捗確認にもなります。クレンジングのビフォーアフターを記録に残したいときにも便利です。

作業列に「マーカー」を立てる方法

条件付き書式の代わりに作業列を追加して、フラグを立てるやり方もあります。

=IF(ISNUMBER(SEARCH(CHAR(160),A2)),"NBSP有","")

該当するセルだけ「NBSP有」と表示されるので、オートフィルターで絞り込めば一覧で確認できます。データを別のシートに整理したい場合は、条件付き書式より作業列のほうが扱いやすいです。

ノーブレークスペースを関数で削除する方法

見分け方がわかったら、実際に削除してみましょう。ここでは用途別に4つの関数パターンを紹介します。

パターン1: NBSPだけを削除する

最もシンプルな方法です。SUBSTITUTE関数とCHAR関数を組み合わせます。

=SUBSTITUTE(A1,CHAR(160),"")

CHAR(160) がNBSPを指定しています。これを空文字 "" に置き換えることで削除できます。

パターン2: NBSPと前後の半角スペースをまとめて削除する

外部データには、NBSPと通常のスペースが両方入っていることがよくあります。TRIM関数も組み合わせると、まとめてきれいにできます。

=TRIM(SUBSTITUTE(A1,CHAR(160)," "))

TIP

ここでのポイントは、NBSPを 空文字ではなく半角スペースに置換 している点です。NBSPを半角スペースに変換してからTRIM関数で処理すると、前後の空白除去と連続スペースの圧縮が同時に行えます。

パターン3: 制御文字も含めて一括クレンジングする

Webデータには改行コードやタブなどの制御文字が混じることもあります。CLEAN関数を加えると、印刷できない制御文字もまとめて削除できます。

=TRIM(CLEAN(SUBSTITUTE(A1,CHAR(160)," ")))

処理の流れはこうなっています。

1. SUBSTITUTE: NBSPを半角スペースに変換
2. CLEAN: 制御文字（文字コード 0〜31）を削除
3. TRIM: 前後のスペース削除 + 連続スペースの圧縮

パターン4: すべてのスペースを削除する

全角スペース・半角スペース・NBSPをすべて削除したい場合は、SUBSTITUTE関数をネストします。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(CLEAN(A1),CHAR(160),"")," ",""),"　","")

ちょっと長く見えますが、やっていることはシンプルです。内側から順に「制御文字の削除 → NBSPの削除 → 半角スペースの削除 → 全角スペースの削除」と処理しています。

NOTE

すべてのスペースを消してしまうと、姓名間のスペースなど必要な空白まで消えてしまいます。用途に応じてパターン1〜3を使い分けてください。

空白の種類と対処関数の早見表

Excelで遭遇する「消せない空白」はNBSPだけではありません。まとめて整理しておきましょう。

TIP

「何の文字が入っているかわからない」ときは、まず =CODE(MID(A1,N,1)) で1文字ずつ文字コードを確認するのが確実です。Nに位置番号を入れて調べてみてください。

ノーブレークスペースをVBAで削除する方法

大量のデータを処理する場合は、VBAを使うと効率的です。VBAでの空白削除の基本はVBA 文字列の空白を削除する方法まとめでまとめていますが、ここではNBSPに特化した方法を紹介します。

Replace関数でNBSPを削除する

VBAでは ChrW(160) でNBSPを指定できます。

'--- NBSPを削除する基本コード ---
Dim sBefore As String '変換前の文字列
Dim sAfter As String  '変換後の文字列

sBefore = Range("A1").Value
sAfter = Replace(sBefore, ChrW(160), "")

MsgBox "[" & sBefore & "] → [" & sAfter & "]"

NOTE

ChrW はUnicodeの文字コードに対応した関数です。Chr 関数でも160を指定できますが、環境によっては正しく動作しないことがあります。確実に処理するには ChrW を使ってください。

選択範囲のNBSPを一括削除するマクロ

実務で使いやすい、範囲を選択して一括処理するマクロを紹介します。

Sub NBSPを一括削除()

    Dim rng As Range    '処理対象の範囲
    Dim cell As Range   '各セル

    '--- 範囲を選択するダイアログを表示 ---
    Set rng = Application.InputBox( _
        Prompt:="NBSPを削除する範囲を選択してください。", _
        Title:="範囲選択", _
        Type:=8)

    '--- 各セルのNBSPを削除 ---
    For Each cell In rng
        If Not IsEmpty(cell) Then
            cell.Value = Replace(cell.Value, ChrW(160), "")
        End If
    Next cell

    MsgBox "処理が完了しました。"

End Sub

このマクロを実行すると範囲選択のダイアログが表示されます。対象範囲をドラッグで選択すれば、その中のNBSPをまとめて削除できます。

すべての空白を一括削除するマクロ

NBSPだけでなく、半角・全角スペースやタブ・改行もまとめて削除したい場合は、次のマクロが便利です。

Sub すべての空白を一括削除()

    Dim rng As Range    '処理対象の範囲
    Dim cell As Range   '各セル
    Dim sTemp As String '一時変数

    '--- 範囲を選択するダイアログを表示 ---
    Set rng = Application.InputBox( _
        Prompt:="空白を削除する範囲を選択してください。", _
        Title:="範囲選択", _
        Type:=8)

    '--- 各セルの空白を削除 ---
    For Each cell In rng
        If Not IsEmpty(cell) Then
            sTemp = cell.Value
            sTemp = Replace(sTemp, ChrW(160), "") 'NBSP
            sTemp = Replace(sTemp, " ", "")        '半角スペース
            sTemp = Replace(sTemp, "　", "")       '全角スペース
            sTemp = Replace(sTemp, vbCrLf, "")     '改行(CR+LF)
            sTemp = Replace(sTemp, vbLf, "")       '改行(LF)
            sTemp = Replace(sTemp, vbTab, "")      'タブ
            cell.Value = sTemp
        End If
    Next cell

    MsgBox "処理が完了しました。"

End Sub

TIP

姓名間のスペースなど、残したい空白がある場合はNBSPの行（ChrW(160)）だけ残して他の行をコメントアウトしてください。

VBEの起動方法

マクロの実行にはVBE（Visual Basic Editor）を開く必要があります。

1. Alt + F11 でVBEを起動する
2. リボンから起動する場合: [開発] タブ → [Visual Basic] をクリック
3. [開発] タブが表示されていない場合: [ファイル] → [オプション] → [リボンのユーザー設定] → [開発] にチェックを入れて [OK]
4. VBEが開いたら [挿入] → [標準モジュール] でモジュールを追加し、コードを貼り付ける

WorksheetFunction.TrimではNBSPは削除できない

VBAで空白を整形しようとして WorksheetFunction.Trim を試す方がいますが、これではNBSPは削除できません。WorksheetFunction.Trim はExcelのTRIM関数と同じ動作で、半角スペース（コード32）の除去と連続スペースの圧縮のみを行います。NBSPには無効です。

' NG: これではNBSPは消えない
cell.Value = Application.WorksheetFunction.Trim(cell.Value)

' OK: ChrW(160)でNBSPを明示的に指定する
cell.Value = Replace(cell.Value, ChrW(160), "")

VBEの通常の Trim 関数も同様で、NBSPは削除されません。VBAでNBSPを消すには、必ず Replace(文字列, ChrW(160), "") を使ってください。WorksheetFunction.Trim と VBA の Trim 関数の違いはVBA WorksheetFunction.Trim の使い方で詳しく解説しています。

VLOOKUPやCOUNTIFで不一致が起きたときの対処法

NBSPが原因で最もよく困るのが、VLOOKUPやCOUNTIFの不一致です。検索値にNBSPが混入していると、見た目は同じ文字列でも「別の値」として判定されてしまいます。

VLOOKUPで一致しないときの確認手順

VLOOKUPで #N/A エラーが出たら、まず検索値と検索範囲の文字コードを比べてみてください。

=CODE(LEFT(A1,1))
=CODE(LEFT(B1,1))

片方が160、もう片方が32であれば、NBSPが原因です。次の数式でNBSPを除去してからVLOOKUPに渡せば解決します。

=VLOOKUP(TRIM(SUBSTITUTE(A1,CHAR(160)," ")),B:C,2,FALSE)

COUNTIFやSUMIFで集計がずれるとき

COUNTIFやSUMIF（条件に合うセルを数える・合計する関数）でも同じ問題が起きます。条件値にNBSPが含まれていると、一致するはずのセルがカウントされません。

対処法は2つあります。

1. 事前クレンジング: 前述のパターン2の数式で列全体のNBSPを除去してから集計する
2. 作業列を追加: =TRIM(SUBSTITUTE(A1,CHAR(160)," ")) の列を作り、その列を集計対象にする

TIP

「数式は合っているのに結果がおかしい」と感じたら、NBSPを疑ってみてください。特にWebからコピーしたデータや外部システムのCSVデータは要注意です。

VBAで空白を一括処理する方法は、VBA 文字列の空白を削除する方法まとめで詳しく解説しています。

XLOOKUPやXMATCHでNBSPが原因で#N/Aになるとき

Microsoft 365を使っている場合、VLOOKUPの代わりにXLOOKUP関数を使っているケースも多いでしょう。XLOOKUPでもNBSPが混入した検索値は「別の文字列」として扱われるため、同じく #N/A になります。

対処法はVLOOKUPと同じで、検索値をSUBSTITUTEで包みます。

=XLOOKUP(TRIM(SUBSTITUTE(A2,CHAR(160)," ")),B:B,C:C,"該当なし")

XMATCHも同様です。検索値だけでなく、検索範囲にもNBSPが混入している場合は両方をクレンジングする必要があります。

=XMATCH(TRIM(SUBSTITUTE(A2,CHAR(160)," ")),TRIM(SUBSTITUTE(B:B,CHAR(160)," ")))

EXACT関数で”見た目は同じなのに不一致”の原因を特定する

EXACT関数はアルファベットの大文字・小文字まで区別して2つのセルを比較する関数です。NBSPの診断ツールとしても使えます。

=EXACT(A1,B1)

目視では同じ文字列なのにEXACTが FALSE を返す場合、NBSPか制御文字が混入しています。VLOOKUPが一致しない原因を追うときは、まずEXACTで「本当に同じ文字列か」を確認してください。確認できたら、CODE関数で文字コードを調べると効率よく特定できます。

クレンジング後にEXACTで TRUE になったことを確認すれば、削除が完了したかのビフォーアフター検証にも使えます。

CSV出力時の文字化け対策

NBSPが含まれたセルをCSVで保存すると、文字コード 160 が正しく変換されず「?」に化けることがあります。

CSVで出力する前にNBSPを削除しておくのが確実な対策です。前述の関数パターンやVBAマクロで事前にクレンジングしてから保存してください。

検索と置換（Ctrl+H）でNBSPを一括削除する

関数や作業列を作らずに、その場でNBSPを消したいときは、Excelの「検索と置換」が便利です。Ctrl + H で置換ダイアログを開けば、選択範囲やシート全体のNBSPをまとめて削除できます。

数式を残さず元のセルを直接きれいにできるので、「とにかく今すぐ消したい」というときの即効性ある方法です。

テンキーがある場合

テンキー付きのキーボードなら、検索欄に直接NBSPを入力できます。

1. Ctrl + H で「検索と置換」を開く
2. 「検索する文字列」の欄にカーソルを置く
3. Alt キーを押しながら、テンキーで 0160 と入力する
4. 「置換後の文字列」は空欄のままにする
5. 「すべて置換」をクリック

Alt + 0160 は、文字コード160のNBSPを直接入力するショートカットです。見た目には何も入力されていないように見えますが、検索欄にはきちんとNBSPが入っています。

NOTE

このショートカットは必ずテンキー（キーボード右側の数字キー）を使ってください。キーボード上部の数字キーでは正しく入力できません。

テンキーがない場合

ノートパソコンなどテンキーがない場合は、削除したいNBSPをセルからコピーして使います。

1. NBSPが含まれているセルをダブルクリックして編集状態にする
2. NBSPの部分だけをドラッグで選択して Ctrl + C でコピーする
3. Ctrl + H で「検索と置換」を開く
4. 「検索する文字列」の欄に Ctrl + V で貼り付ける
5. 「置換後の文字列」は空欄のままにする
6. 「すべて置換」をクリック

実際のNBSP文字をコピーして使うので、文字コードを覚えていなくても確実に処理できます。NBSPと半角スペースが区別しにくくて不安なときも、この方法なら間違いがありません。

TIP

NBSPを残しつつ前後の余分なスペースだけ整えたい場合は、置換後の文字列に半角スペースを1つ入れて「すべて置換」してください。連続スペースの圧縮は、そのあとTRIM関数で仕上げると確実です。

Mac版Excelでの注意点

Mac版Excelを使っている方は、Windowsとは操作が一部異なります。前述のテンキーを使った Alt + 0160 の入力ショートカットは、Mac版Excelでは使えません。

Macでの代替手段

Mac版Excelでは、次のいずれかの方法でNBSPを「検索と置換」で扱えます。

1. コピペ法を使う: NBSPを含むセルから該当部分をコピーして、検索ダイアログに貼り付ける（前述の「テンキーがない場合」と同じ手順）
2. 数式バーで =CHAR(160) を計算して値貼り付け: 別のセルに =CHAR(160) を入力し、結果を値としてコピーして検索欄に貼り付ける
3. 関数またはVBAで処理する: =SUBSTITUTE(A1,CHAR(160),"") を使うか、Mac版でもVBAは動くので前述のマクロをそのまま実行する

NOTE

Mac版Excelの「検索と置換」を開くショートカットは Cmd + H です（Windowsの Ctrl + H 相当）。ダイアログを開いたあとの操作はWindowsとほぼ同じですが、NBSPの直接入力ショートカットは使えない点だけ注意してください。

Mac特有のNBSP混入経路

macOSでは、Option + Space でNBSPが入力できます。文章の途中で「改行してほしくない箇所」に意図的に入れているユーザーもいるので、Macで作成された文書をコピペするとNBSPが混入しやすい傾向があります。Pages・Keynote・Mailなどのアプリ間コピペでも同様です。

Power QueryでNBSPを削除する方法

外部システムのCSVやデータベースから定期的にデータを取り込む方には、Power Queryでの処理がおすすめです。一度設定しておけば、次回からはデータを更新するだけで自動的にNBSPが削除されます。

毎回手作業でクレンジングする手間がなくなるので、繰り返し取り込むデータには特に効果的です。

GUI操作で削除する手順

Power Queryエディター上でメニューを操作するだけで、NBSPを削除できます。

1. NBSPを削除したい列を選択する
2. リボンの [変換] タブ → [値の置換] をクリック
3. [詳細オプション] を展開し、[特殊文字を使用して置換] → [特殊文字を挿入] → [改行なしスペース] を選ぶ
4. 「検索する値」に #(00A0) が自動で挿入される
5. 「置換後の値」は空欄のまま（削除する場合）にして [OK] をクリック

#(00A0) は、Power Queryでの文字コード160（16進数で00A0）の表記です。[特殊文字を挿入] から選べば、この記述を手で打たなくても自動で入力されます。

M言語のコードで削除する

数式バー（詳細エディター）に直接書く場合は、M言語の Text.Replace を使います。

= Text.Replace([列名], Character.FromNumber(160), "")

Character.FromNumber(160) がNBSPを指定しています。これを空文字 "" に置き換えることで削除できます。NBSPと前後のスペースをまとめて整えたい場合は、Text.Trim と組み合わせます。

= Text.Trim(Text.Replace([列名], Character.FromNumber(160), " "))

NBSPをいったん半角スペースに変換してから Text.Trim で前後の空白を除去する流れです。Excelの関数で言うと =TRIM(SUBSTITUTE(A1,CHAR(160)," ")) と同じ考え方です。

NOTE

Power Queryの Text.Trim は、半角スペースは除去できますがNBSPは除去できません。これはExcelのTRIM関数と同じ落とし穴です。NBSPを消すには、必ず Character.FromNumber(160) を指定した Text.Replace を先にかけてください。

GoogleスプレッドシートでNBSPを削除する方法

GoogleスプレッドシートでもNBSPに悩まされることがありますが、対処法はExcelとほとんど同じです。

=SUBSTITUTE(A2, CHAR(160), "")

Excelとまったく同じ構文で動作します。CHAR(160) でNBSPを指定し、空文字に置き換えるだけです。Excelで使っていた数式をそのままコピーして使えるので、スプレッドシートに移行しても覚え直す必要はありません。

注意点もExcelと共通で、TRIM関数だけではNBSPは削除できません。スプレッドシートでも「TRIMで消えない空白」に出くわしたら、まず CHAR(160) を疑ってみてください。

ピボットテーブルでNBSPが引き起こす集計エラーと対策

NBSPの影響はVLOOKUPだけにとどまりません。ピボットテーブルでも深刻な問題を引き起こします。

起きやすい3つの症状

よくある発生パターン

Webからコピーした都道府県名・商品名・担当者名にNBSPが入っていると、ピボットテーブルは「東京」と「東京（NBSP付き）」を別々の項目として集計します。行ラベルに「東京」が2行並び、それぞれに異なる集計値が表示される状態になります。

WARNING

ピボットテーブルを更新しても直りません。元データのNBSPを除去してからテーブルを再作成（または更新）する必要があります。

対策：ピボット作成前にクレンジングする

ピボットテーブルの元データ列にクレンジング済みの作業列を追加し、その列をピボットの行・列・フィルターフィールドに使います。

手順

1. 元データの隣に作業列（例: D列）を追加する
2. 作業列に次の数式を入力する

=TRIM(SUBSTITUTE(A2,CHAR(160)," "))

1. 作業列全体を値として貼り付け（Ctrl+C → Alt+E+S+V+Enter）して数式を固定する
2. ピボットテーブルの参照範囲を元の列から作業列に変更して再作成する

TIP

定期的にデータを更新している場合は、前述の「Power QueryでNBSPを削除する方法」を使うと、更新のたびに自動クレンジングが走るため作業列が不要になります。ピボットテーブルの元データソースをPower Queryの出力テーブルに変更しておくのがおすすめです。

ピボットテーブルの基本操作はExcelピボットテーブルの使い方で解説しています。

Excel 365のREGEXREPLACE関数でNBSPを削除する

Microsoft 365では正規表現関数（REGEXREPLACE・REGEXTEST・REGEXEXTRACT）が追加されました。これを使うと、NBSPを含む複数種類の空白文字を1つの数式でまとめて削除できます。

NOTE

REGEXREPLACE関数はMicrosoft 365（サブスクリプション版）専用です。Excel 2021・2019などの永続ライセンス版では使用できません。

NBSPを正規表現で削除する数式

=REGEXREPLACE(A1,"x{00A0}","")

x{00A0} はNBSPのUnicodeコードポイント（U+00A0）を正規表現で指定する書き方です。これを空文字 "" に置換することでNBSPを削除できます。

NBSPと半角スペースをまとめて整形する

通常の半角スペースも一緒に処理する場合は、文字クラス [...] で両方を指定します。

=TRIM(REGEXREPLACE(A1,"[x{00A0} ]+"," "))

NBSPと半角スペースの「1個以上の連続」をまとめて半角スペース1つに置換し、TRIM関数で前後を整えます。

SUBSTITUTE式との使い分け

日常的な用途ではSUBSTITUTE式で十分です。複数種類の特殊文字を一度に処理したい場合や、正規表現に慣れている場合はREGEXREPLACEが有効です。

REGEXREPLACE関数のその他の使い方はREGEXREPLACE関数の使い方で解説しています。

ノーブレークスペース以外の「見えない空白」の見分けと削除

NBSPがいちばん有名ですが、Webや海外システムから取り込んだデータには NBSP以外にも見えない空白文字 が混入することがあります。「CHAR(160)を消しても、まだVLOOKUPが一致しない」というときは、これらを疑ってみてください。

代表的な見えない空白文字の一覧

UNICHAR関数で指定して削除する

文字コード255までしか扱えないCHAR関数では、ゼロ幅スペース（コード8203）などは指定できません。Excel 2013以降は UNICHAR関数 を使えば、Unicode全範囲を指定できます。

=SUBSTITUTE(A1,UNICHAR(8203),"")

複数種類をまとめて削除したい場合は、SUBSTITUTE関数をネストします。

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,CHAR(160),""),UNICHAR(8203),""),UNICHAR(65279),"")

内側から「NBSP削除 → ゼロ幅スペース削除 → BOM削除」と順番に処理しています。

TIP

「何の文字が入っているかさっぱりわからない」というときは、=UNICODE(MID(A1,N,1)) を使うとUnicode値で確認できます。CODE関数は255までしか返せませんが、UNICODE関数は8203などの大きなコードも正しく取得できます。

Microsoft 365なら正規表現で一括処理する

Microsoft 365のREGEXREPLACE関数なら、複数種類の見えない空白を1つの数式で削除できます。

=REGEXREPLACE(A1,"[x{00A0}x{200B}x{200C}x{202F}x{FEFF}]","")

文字クラス [...] の中にUnicodeコードポイントを並べることで、該当する文字すべてを空文字に置換します。複数システムからデータを集約する業務では、この一行で大半の見えない空白を処理できます。

よくある質問（FAQ）

NBSPを最初から混入させない3つの予防策

削除方法を知っておくことも大事ですが、そもそも混入させない習慣をつけると整形作業の手間が減ります。

予防策1: テキストエディタ経由でペーストする

クリップボードにHTMLが乗っている状態のままExcelに貼ると、NBSPが一緒に入ります。ChromeやTeamsからコピーした内容は、一度メモ帳（Windows）やテキストエディット（Macのプレーンテキストモード）に貼り付けてから再コピーしてください。HTML情報が取り除かれて、NBSPのない純粋なテキストになります。

予防策2: 値のみ貼り付け（Ctrl+Shift+V / Alt+E+S+V）を習慣にする

Excelのショートカット Alt+E+S+V+Enter（「形式を選択して貼り付け」→「値」）でペーストすると、書式やHTMLを除いたテキストだけが入ります。Ctrl+Vの代わりにこの操作を習慣にするだけで、Webや他アプリからの混入をかなり防げます。Googleスプレッドシートでは Ctrl+Shift+V が値のみ貼り付けのショートカットです。

予防策3: Power Queryを取り込み窓口にする

定期的にCSVや外部データを取り込む業務なら、Power Queryを入口にして自動クレンジングを組み込むのが根本的な解決策です。一度設定しておけば、毎回手動で整形する必要がなくなります。具体的な設定方法は前述の「Power QueryでNBSPを削除する方法」を参照してください。

NOTE

入力規則（データの入力規則）ではNBSPの混入を防ぐことはできません。入力規則はキーボードからの直接入力を制限する機能であり、貼り付け操作には無力です。予防策は「貼り付け方法の工夫」で対応してください。

Q. TeamsやSlackからコピペするとNBSPが入りますか？

入りやすい傾向があります。TeamsとSlackはChromiumベースのレンダリングを使っており、チャットのテキストをコピーするとHTMLが同伴することがあります。確認するには =CODE(LEFT(A1,1)) で文字コードを見てください。160が出ればNBSPが混入しています。回避するには「テキストエディタ経由でペースト」か「値のみ貼り付け（Alt+E+S+V）」を使うのが確実です。

Q. EXACT関数でFALSEなのに目視では同じ文字列です。なぜですか？

NBSPか制御文字が混入している可能性が高いです。=CODE(MID(A1,N,1)) でN番目の文字のコードを確認し、160や制御文字のコード（0〜31）が出たら特殊文字が隠れています。=SUBSTITUTE(A1,CHAR(160),"") で削除してから再度EXACTで確認してください。

Q. XLOOKUPでも#N/Aが出ます。VLOOKUPと同じ対処法ですか？

はい、同じです。XLOOKUP の検索値を TRIM(SUBSTITUTE(A2,CHAR(160)," ")) で包んでください。=XLOOKUP(TRIM(SUBSTITUTE(A2,CHAR(160)," ")),B:B,C:C,"該当なし") のように記述します。XMATCHも同様に検索値のクレンジングが必要です。

Q. Ctrl+Vで貼り付けるたびにNBSPが入ります。防ぐ方法はありますか？

「値のみ貼り付け」（Alt+E+S+V+Enter）をCtrl+Vの代わりに使う習慣が最も手軽な対策です。または、貼り付け前にメモ帳を経由してHTMLを除去する方法もあります。定期的に取り込むデータであれば、Power Queryをデータ入口にして自動クレンジングを設定しておくと根本的に解決できます。

Q. CODE関数で160と出ました。これは必ずNBSPですか？

はい、文字コード160はNBSPです。確実に削除するには =SUBSTITUTE(A1,CHAR(160),"") を使ってください。160以外の文字コードが出た場合は、前述の「空白の種類と対処関数の早見表」を参照してください。

Q. SUBSTITUTE+CHAR(160)を入れたのに、VLOOKUPの不一致が直りません。

NBSP以外にも見えない文字が混入している可能性があります。次の組み合わせ式で、NBSPと制御文字を一括除去してください。

=TRIM(CLEAN(SUBSTITUTE(A1,CHAR(160)," ")))

それでも解決しない場合は、=CODE(MID(A1,N,1)) で各文字の文字コードを1文字ずつ調べ、想定外の値がないか確認してください。

Q. スマートフォンのメモアプリからコピーするとNBSPが入りますか？

アプリによって異なりますが、iOSのメモ帳・Slackなど一部のアプリはNBSP（文字コード160）を使って単語間の折り返しを制御しています。「TRIMで消えない」と感じたら、=CODE(LEFT(A1,1)) で文字コードを確認してみてください。

Q. Power QueryのText.TrimでNBSPも消えますか？

消えません。Power QueryのText.TrimはExcelのTRIM関数と同様に半角スペース（コード32）の前後除去のみ対応しており、NBSPには無効です。前述の「Power QueryでNBSPを削除する方法」に記載のText.Replaceを先にかけてください。

Q. 「検索と置換」で削除したのに、まだ空白があります。

複数種類の空白が混在している可能性があります。全角スペース（コード12288）やタブ（コード9）が残っている場合は、それぞれ別途置換が必要です。一度に全種類を処理したい場合は、前述の「すべての空白を一括削除するマクロ」を使うと確実です。

Q. NBSP以外にも「見えない空白」はありますか？

はい、あります。代表的なのはゼロ幅スペース（Unicode U+200B、コード8203）で、Webからのコピーで混入することが多いです。CHAR関数は255までしか対応しないため、UNICHAR関数を使って =SUBSTITUTE(A1,UNICHAR(8203),"") で削除します。詳しくは「ノーブレークスペース以外の『見えない空白』の見分けと削除」の章を参照してください。

Q. Mac版ExcelでもAlt+0160は使えますか？

使えません。Mac版Excelにはテンキーによる文字コード直接入力のショートカットがないため、「コピペ法」か「関数による削除」を使ってください。詳しくは「Mac版Excelでの注意点」の章を参照してください。

まとめ

TrimやReplaceで消せない空白の正体は、文字コード 160 のノーブレークスペース（NBSP）です。

• NBSPはWebコピーや外部システム連携で混入しやすい
• 見た目では普通のスペースと区別できない
• =CODE(LEFT(A1,1)) で文字コードを確認すれば判別できる
• 関数では =SUBSTITUTE(A1,CHAR(160),"") で削除できる
• VBAでは Replace(文字列, ChrW(160), "") で削除できる
• TRIM・CLEAN関数と組み合わせると一括クレンジングに便利

外部からデータを取り込む機会が多い方は、「CHAR(160)」というキーワードを覚えておくと安心です。ぜひ活用してみてください。

関連記事

• TRIM関数の使い方
• SUBSTITUTE関数の使い方
• CLEAN関数の使い方
• CHAR関数の使い方
• LEN関数の使い方
• VBA Trimで前後の空白を削除する方法
• VBA LTrimで先頭の空白を削除する方法
• VBA RTrimで末尾の空白を削除する方法
• VBA 文字列の空白を削除する方法まとめ

関数一覧

Excel関数の一覧は下記の記事で確認できます。

• Excel関数 機能別一覧

エラー値が表示される場合は、下記の記事も参考にしてみてください。

• Excel関数のエラー値一覧

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

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

そんなときに活躍するのが、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で「一致なし」が返ってくる。調べてみると、セルの先頭に半角スペースが入っていた――こんなトラブルは意外と多いものです。

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

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空白削除まとめ で一覧できますよ。

手入力のばらつきやシステム出力のデータには、前後に半角・全角スペースが混じりやすいもの。見た目だけでは判断できないのが厄介ですよね。

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 最終行取得の方法