Results of 1 - 1 of about 4502 for 条件付き書式 (0.006 sec.)
- [[20240416133425]]
- #score: 3708
- @digest: d27dc114dc32e4317fa8dfc1324a60da
- @id: 96615
- @mdate: 2024-04-16T05:21:38Z
- @size: 1276
- @type: text/plain
- #keywords: 所メ (6721), 地11 (6466), 所恐 (5991), 等考 (3703), rangeselection (3649), 字削 (2990), 尾の (2585), 末尾 (2426), org (1760), の- (1374), 「11 (1000), テナ (851), hatena (731), を貸 (608), 2024 (600), windows11 (548), 111 (523), activewindow (512), ナン (500), ンテ (494), microsoft365 (482), 問内 (473), 恐縮 (426), お力 (415), 変助 (414), 例: (404), 初心 (380), 火) (373), 心者 (372), す方 (365), 貸し (359), 消す (359)
- 『末尾の文字を削除したい』（初心者）
お世話になっております。 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 ＞ ---- 上のマクロでいけるでしょ。 少なくとも「111-11-」は「111-11」になるでしょ。 いけないのならほかの原因かも。 （通りすがり） 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 ---- hatena様 ご教示いただきありがとうございます。 無事に消すことが出来ました。 大変助かりました。 （初心者） 2024/04/16(火) 14:21:38... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202404/20240416133425.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97034 documents and 608020 words.
訪問者：