文字列の最後の空白(スペース)を削除する


文字列の最後に不要な空白が入っているのを削除するには。。。

マクロを作成しないとできないようです。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 200X/X/XX ユーザー名 : XXXXXXXXX
'
For Each C In Selection
C.Value = RTrim(C.Value)
Next
'
End Sub

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 200X/X/XX ユーザー名 : XXXXXXXXX
'
For Each C In ActiveSheet.UsedRange
C.Value = RTrim(C.Value)
Next
'
End Sub



注意 : これは、私個人の覚え書きであり、何も保証するもではありません。自己責任でお読み下さい。  
Create:2002/02/27   Last modified:2009/10/02
Copyright (c) 2002-2013 Yoshi All Rights Reserved