左右の空白を除去する関数

左右に空白がある文字列の空白除去をする関数です。

Trim・・・左右の空白を除去
LTrim・・・左の空白を除去
RTrim・・・右の空白を除去

Sub SampleJokyo()
    Dim strMoji As String
    
    strMoji = "   文字列   "
    
    Debug.Print "＜" & strMoji & "＞"        '空白除去なし
    Debug.Print "＜" & Trim(strMoji) & "＞"  '左右空白除去
    Debug.Print "＜" & LTrim(strMoji) & "＞" '左空白除去
    Debug.Print "＜" & RTrim(strMoji) & "＞" '右空白除去
    
End Sub

上のコードを実行すると
イミディエイトペインに以下のように表示されます。