2017年7月14日

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

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


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

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

1
2
3
4
5
6
7
8
9
Sub StringTrim()
 
    Dim msg As String
     
    msg = " 　　こんにちは　  　"
     
    MsgBox "『" & Trim(msg) & "』"
 
End Sub

実行結果



先頭の空白を削除

1
2
3
4
5
6
7
8
9
Sub StringTrim()
 
    Dim msg As String
     
    msg = " 　　こんにちは　  　"
     
    MsgBox "『" & LTrim(msg) & "』"
     
End Sub

実行結果



末尾の空白を削除

1
2
3
4
5
6
7
8
9
Sub StringTrim()
 
    Dim msg As String
     
    msg = " 　　こんにちは　  　"
     
    MsgBox "『" & RTrim(msg) & "』"
     
End Sub

実行結果




スポンサーリンク



Follow Me on Pinterest
Clip to Evernote