文字列の最後が空白なら削除する

質問

Sub test()
Dim mystr As String
mystr = "abc "

If Right(mystr, 1) = " " Then
Debug.Print Left(mystr, Len(mystr) - 1)
End If

End Sub

これで、最後の１文字が空白なら削除できるのですが、
"abc "のように、最後に空白が２つある場合が対応できないのですが
そういう場合でも対応できるコードはありますか？

回答No.3

MarcoRossiItaly · ベストアンサー

そうですね。No.1 さんのおっしゃるとおり RTrim 関数を使えば、一発で終わりですね。失礼しました。ベストアンサーは辞退します。

一応、No.2 の修正版も載せておきます。

Sub test()
　　Dim mystr As String
　　Dim i As Integer
　　mystr = "abc"
　　For i = 1 To 5
　　　　mystr = mystr & " "
　　Next i
　　mystr = mystr & "★★★"
　　Debug.Print mystr
　　mystr = Replace(mystr, "★★★", "")
　　Debug.Print mystr
　　Debug.Print RTrim(mystr)
End Sub

お礼

回答ありがとうございました。

回答No.2

MarcoRossiItaly

Sub test()
　　Dim mystr As String
　　Dim i As Integer
　　mystr = "abc"
　　For i = 1 To 5
　　　　mystr = mystr & " "
　　Next i
　　mystr = mystr & "★★★"
　　Debug.Print mystr
　　mystr = Replace(mystr, "★★★", "")
　　Debug.Print mystr
　　For i = 1 To Len(mystr)
　　　　If Right(mystr, 1) = " " Then
　　　　　　mystr = Left(mystr, Len(mystr) - 1)
　　　　End If
　　Next i
　　Debug.Print mystr
End Sub

お礼

回答ありがとうございました。

回答No.1

kmetu

RTrim(myStr)を使用します

Sub test()
Dim mystr As String
mystr = "abc　　　　"

Debug.Print RTrim(mystr)

End Sub

他にも
LTrim(String)　　先頭のスペース削除
Trim(String)　　 先頭と末尾のスペース削除
があります

参照：
http://www.moug.net/tech/exvba/0140031.html

お礼

回答ありがとうございました。