VBAでセルの書式を変えずに文字列を置換する方法をご教示ください

大変お世話になっております。

VBAの超初心者です。皆さまどうかご教示ください。

Excelで資料を作っていて、下記、洋ちゃんさん（Know-How-No-Life）のマクロを応用して、セルの書式を変えずに文字を置換したいと思っています。
https://www.banana-juice.com/tech/articles/repla …

資料の体裁は以下の画像のような形です。この中でURLは青色、日付の類（20200808だけでなく、申請日(yyyy/mm/dd)も赤く表示）が赤色で表示されているとします。
https://kaizen-penguin.com/wp-content/uploads/20 …

置き換える文字列は申請日(yyyy/mm/dd)を申請日(2024/08/08)にしたいと考えています。

洋ちゃんさん（Know-How-No-Life）のhttps://www.banana-juice.com/tech/articles/repla …にあるマクロを利用する場合、どこをどのように変更すればいいでしょうか。

また実行する場合は、「Call 書式を保持したままReplace("申請日(yyyy/mm/dd)", "申請日(2024/08/08)")」とすればいいのでしょうか。

ご教示の程どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2024/10/05 01:19

こんばんは

ご提示のサイトでは、文字列を置換後に文字の書式を個々に再設定する方法を用いているようですが、文字列を装飾する書式の種類が相当数あるのでかなり面倒な処理手順のように思われます。


Range.Charactersを利用して対象部分の .Textを入れ替えれば、書式を保持したまま文字列を入れ替えることが可能ですので、こちらの方法の方が簡単ではないかと思います。
（どこかに書式を控えておくという必要もなくなります）
https://learn.microsoft.com/ja-jp/office/vba/api …

とは言え、置換対象文字列内で複数の書式が用いられている場合は1文字ずつ入れ替えなければならなくなりますし、その場合には置換前と置換後の文字の長さが異なる場合に、どのように書式を対応させるかという問題も生じます。
（ご提示のサイトのように、書式がズレることは起きませんけれど・・）

一方で、ご質問のケースでは、対象部分は一律の書式のようですので、まとめて入れ替えてしまえば、文字数が同じでも異なっていても同じ書式が適用されます。
（置換前の最初の文字の書式が、置換後の全ての文字に適用されます）

仮に、置換部分の書式が一律と仮定しても良いのなら・・
該当Range（＝セル）に対して、
　1）置換対象文字列の位置を調べる
　2）Range.Characters(スタート位置, 文字数).Text = "置換後文字列"
とするだけで、書式を変えずに文字列だけを置換することが可能です。

以上、ご参考までに。

この回答へのお礼

ありがとうございます

お礼日時：2024/10/05 23:58