1. 導入：なぜスペース削除が重要なのか
実務で外部システムから出力されたCSVデータや、ユーザーが手入力したExcelデータを取り扱う際、「見えないスペース」に悩まされたことはありませんか？
「VLOOKUP関数で値が一致しない」「IF文の条件判定が正しく動かない」といったトラブルの多くは、文字列の前後に入り込んだ不要なスペースが原因です。これらを手作業で修正するのは非効率的。今回は、VBAで文字列の前後にある不要な空白を自動的に除去する、実務直結の基本テクニックを解説します。
2. 基礎知識：LTrim、RTrim、Trim関数の違い
VBAには、文字列のスペースを制御するための専用関数が3つ用意されています。これらは対象となる「位置」によって使い分けます。
・LTrim関数：文字列の左側（先頭）にあるスペースのみを削除します。
・RTrim関数：文字列の右側（末尾）にあるスペースのみを削除します。
・Trim関数：文字列の両端（先頭と末尾）にあるスペースを削除します。
最も頻繁に使用するのは、前後両方を一括で綺麗にできる「Trim関数」です。これらを活用することで、データクレンジングの精度が飛躍的に向上します。
3. 実装/解決策
実務では、セルから値を読み込んで、スペースを除去した後に別のセルへ書き戻す、というパターンが一般的です。
注意点として、これらの関数は「文字列の途中にあるスペース」は削除できません。もし「データ内のスペースを全て消したい」という場合は、後述するReplace関数を併用する必要があります。
4. サンプルプログラム
以下のコードは、A列に入力されたデータに対して、前後のスペースを削除してB列に結果を出力する実用的なサンプルです。
Sub TrimDataExample()
Dim i As Long
Dim lastRow As Long
‘ データが入っている最終行を取得
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
‘ 1行目から最終行までループ処理
For i = 1 To lastRow
‘ A列の値をTrim関数で処理してB列に格納
‘ Trim関数は前後のスペースを削除します
Cells(i, 2).Value = Trim(Cells(i, 1).Value)
Next i
MsgBox “スペースの削除が完了しました！”
End Sub
5. 応用・注意点
■ ワークシート関数との挙動の違い
Excelのワークシート関数にある「TRIM関数」は、先頭・末尾のスペース削除だけでなく、「単語間の連続する空白を1つにする」という高度な機能を持っています。VBAの「Trim関数」は単純に前後のスペースを消すだけですので、用途に応じて使い分けてください。
■ 文字列の中間のスペースを消したい場合
文字列中のすべてのスペース（全角・半角問わず）を削除したい場合は、Replace関数を使用します。
例：strValue = Replace(strValue, ” “, “”) ‘半角スペースを削除
例：strValue = Replace(strValue, “ ”, “”) ‘全角スペースを削除
このように、Trim関数とReplace関数を組み合わせることで、どんなデータ形式にも対応できる「強力なデータ整形マクロ」を作成することが可能です。ぜひ現場の業務効率化に役立ててください。
