2017年7月14日

【Excel】文字列の先頭または末尾の空白を除去するマクロ

2017年7月14日 (金) 21:40 in ,


文字列の先頭または末尾の空白を除去するマクロです。

先頭および末尾の空白を削除

Sub StringTrim()

    Dim msg As String
    
    msg = " 　　こんにちは　  　"
    
    MsgBox "『" & Trim(msg) & "』"

End Sub

実行結果



先頭の空白を削除

Sub StringTrim()

    Dim msg As String
    
    msg = " 　　こんにちは　  　"
    
    MsgBox "『" & LTrim(msg) & "』"
    
End Sub

実行結果



末尾の空白を削除

Sub StringTrim()

    Dim msg As String
    
    msg = " 　　こんにちは　  　"
    
    MsgBox "『" & RTrim(msg) & "』"
    
End Sub

実行結果




スポンサーリンク