『末尾の文字を削除したい』(初心者)
お世話になっております。
Excel初心者です。
お力を貸していただきたいです。
【質問内容】
Excelで住所メンテナンスをしています。
例:111番地11号
を、全て置換し、111-11-
というように直しています。
どうしても11- のように数字の最後に-が残ってしまうので、
うまく末尾の-だけ消す方法を探しています。
Sub 末尾の1文字を削除する()
Dim org As String, rng As Range
For Each rng In ActiveWindow.RangeSelection
org = rng.Value
If org <> "" Then
rng.Value = Left(org, Len(org) - 1)
End If
Next
End Sub
等考えましたが、どうしても最後の文字削除になってしまい、
末尾の-だけを消す方法がわかりません。
お忙しい所恐縮ですが、
お力を貸していただけますと幸いです。
よろしくお願いいたします。
< 使用 Excel:Microsoft365、使用 OS:Windows11 >
(通りすがり) 2024/04/16(火) 13:48:13
If文を下記のようにすればどうでしょう。
If org Like "*-" Then
rng.Value = Left(org, Len(org) - 1)
End If
(hatena) 2024/04/16(火) 13:51:18
ご教示いただきありがとうございます。
無事に消すことが出来ました。
大変助かりました。
(初心者) 2024/04/16(火) 14:21:38
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.