Excel VBA で 選択セルの一部を置換

質問

こんにちは。お願いします。

選択セルの文字列の右端が"号"、"番地"、"番"だったときに、それを消す、というマクロを作ろうとして、以下のようになりました。

Sub adrconv()
Dim c
For Each c In Selection
If Right(c.Value, 1) = "号" Or Right(c.Value, 2) = "番地" Or Right(c.Value, 1) = "番" Then
c.Replace what:="号", replacement:="", lookat:=xlPart
c.Replace what:="番地", replacement:="", lookat:=xlPart
c.Replace what:="番", replacement:="", lookat:=xlPart
End If
Next c
End Sub
お気づきかもしれませんが、これでは右端の"番"だけでなくどの"番"も消えてしまうのです。
右端の文字のみ消す方法をご教示願います。
よろしくお願いいたします。

回答No.1

myRange · ベストアンサー

方法はいくつかありますが、単純な方法をひとつふたつ。

'----------------------------------------------　
Sub Test222()
　Dim c As Range
　For Each c In Selection
　　If c.Value Like "*号" Then c.Value = Left(c.Value, Len(c.Value) - 1)
　　If c.Value Like "*番" Then c.Value = Left(c.Value, Len(c.Value) - 1)
　　If c.Value Like "*番地" Then c.Value = Left(c.Value, Len(c.Value) - 2)
Next c
End Sub
'----------------------------------------------

Sub Test333()
　Dim c As Range
　For Each c In Selection
　　If Right(c.Value, 1) = "号" Then c.Value = Left(c.Value, Len(c.Value) - 1)
　　If Right(c.Value, 1) = "番" Then c.Value = Left(c.Value, Len(c.Value) - 1)
　　If Right(c.Value, 2) = "番地" Then c.Value = Left(c.Value, Len(c.Value) - 2)
Next c
End Sub
'------------------------------------------------

以上です。

お礼

参考になりました。ありがとうございます！

回答No.3

watabe007

こんな感じでは
If Right(c.Value, 1) = "号" Or Right(c.Value, 1) = "番" Then
　　c.Value = Left(c.Value, Len(c.Value) - 1)

ElseIf Right(c.Value, 2) = "番地" Then
　　c.Value = Left(c.Value, Len(c.Value) - 2)

お礼

そうですね！ありがとうございます。

回答No.2

S-Fuji

c.Valueの文字列長を調べておき
Left側から、文字列長-１文字、或いは２文字を引いた長さだけ切り出す。

お礼

ありがとうございます。