VBA　半角スペースを削除する（Trim関数）

Trim関数による半角スペースの削除

構文
Trim(string)
’文字列から先頭と末尾両⽅のスペース(半⾓)を削除する。

Sub test()

    Dim a As String
    a = "     EXCEL   "
    MsgBox "変換前:" & a & vbCrLf & _
            "変換後:" & Trim(a)

End Sub

実行結果

LTrim関数とRTrim関数

LTrim関数、RTrim関数はTrim関数と同様に指定された文字列から半角スペースを削除します。LTrim関数の場合は、先頭のスペースを削除します。RTrim関数の場合は、末尾のスペースを削除します。

先頭の半角スペースのみ削除

Sub test２()

    Dim a As String
    a = "     EXCEL VBA"
    MsgBox "変換前:" & a & vbCrLf & _
            "変換後:" & LTrim(a)

End Sub

実行結果

末尾の半角スペースのみ削除

Sub test２()

    Dim a As String
    a = "     EXCEL VBA"
    MsgBox "変換前:「" & a & "」" & _
            "変換後:「" & RTrim(a) & "」"

End Sub

実行結果

一方、全角スペースを削除したい場合、この前紹介したReplace関数で置き換えすれば、実現可能です。