【VBA】文字列からスペースを削除する

先頭のスペースを削除(LTrim関数)

ここでは例として
　・先頭にスペース(半角と全角)がある文字列から
　・スペース(半角と全角)を削除
します。
※スペース削除前後の文字列をイミディエイトウインドウへ出力します。

Option Explicit

Sub sample()
    
    Dim targetString As String
    
    '先頭にスペース(半角と全角)
    targetString = " 　　　 こんにちは！"
    
    'スペースを削除前
    Debug.Print "削除前：" & targetString & "★"
    '先頭のスペースを削除後
    Debug.Print "削除後：" & LTrim(targetString) & "★"

End Sub

上記を実行すると、先頭のスペースが削除されたことを確認できます。

末尾のスペースを削除(RTrim関数)

ここでは例として
　・末尾にスペース(半角と全角)がある文字列から
　・スペース(半角と全角)を削除
します。
※スペース削除前後の文字列をイミディエイトウインドウへ出力します。

Option Explicit

Sub sample()
    
    Dim targetString As String
    
    '先頭にスペース(半角と全角)
    targetString = "こんにちは！ 　　　 "
    
    'スペースを削除前
    Debug.Print "削除前：" & targetString & "★"
    '末尾のスペースを削除後
    Debug.Print "削除後：" & RTrim(targetString) & "★"

End Sub

上記を実行すると、末尾のスペースが削除されたことを確認できます。

先頭と末尾のスペースを削除(Trim関数)

ここでは例として
　・先頭と末尾にスペース(半角と全角)がある文字列から
　・スペース(半角と全角)を削除
します。
※スペース削除前後の文字列をイミディエイトウインドウへ出力します。

Option Explicit

Sub sample()
    
    Dim targetString As String
    
    '先頭にスペース(半角と全角)
    targetString = " 　　　 こんにちは！ 　　　 "
    
    'スペースを削除前
    Debug.Print "削除前：" & targetString & "★"
    '末尾のスペースを削除後
    Debug.Print "削除後：" & Trim(targetString) & "★"

End Sub

上記を実行すると、先頭と末尾のスペースが削除されたことを確認できます。

全てのスペースを削除(Replace関数)

ここでは例として
　・先頭、真ん中、末尾にスペース(半角と全角)がある文字列から
　・スペース(半角と全角)を削除
します。
※スペース削除前後の文字列をイミディエイトウインドウへ出力します。

Option Explicit

Sub sample()
    
    Dim targetString As String
    
    '先頭にスペース(半角と全角)
    targetString = " 　　　 こんに 　　　 ちは！ 　　　 "
    
    'スペースを削除前
    Debug.Print "削除前：" & targetString & "★"
    
    '全てのスペース(半角)を削除
    targetString = Replace(targetString, " ", "")
    '全てのスペース(全角)を削除
    targetString = Replace(targetString, "　", "")
    
    '全てのスペース(全角)を削除
    Debug.Print "削除後：" & targetString & "★"

End Sub

上記を実行すると、先頭、真ん中、末尾のスペースが削除されたことを確認できます。

参考

上記で使用した以下の詳細は、公式サイトをご確認ください。

●LTrim関数、RTrim関数、Trim関数

●Replace関数