文字列変換（置換）方法について

質問

Selection.Replace を利用して単体の文字を置換することはできるのですが、
例えば
とあるセルに

りんご+みかん+めろん

っていう文字列が入力されていた場合、
Selection.Replace what:="りんご" , replacement:=""
をすることによって、結果、
+みかん+めろん
にすることはできますが、

++だけにするようにはできませんでしょうか。

りんご+みかん+めろん+なし＋・・・・・っと
２０パターンぐらいあるので、
Selection.Replace では難しいのではと思っております。

該当の文字列だけ消す処理をしたいです。

すいませんがお願いします

回答No.3

xls88 · ベストアンサー

レスがないですが、回答番号：No.2もNGですか？

＞Selection.Replace を利用して単体の文字を置換することはできるのですが、
＞２０パターンぐらいあるので、
＞Selection.Replace では難しいのではと思っております。
現状のコードを提示できますか？

お礼

すいません。結論パターンが多すぎて断念しました。

回答No.2

xls88

「置換」のサンプルコードです。
検索文字列が、A1:A3に入力されている
置換対象セル範囲は、B1:B50
と仮定しています。

Dim c As Range

For Each c In Range("A1:A3")
Range("B1:B50").Replace c.Value, ""
Next c

回答No.1

xls88

＞++だけにするようにはできませんでしょうか。
＞該当の文字列だけ消す処理をしたいです。
混乱する書き方です。

++だけにすればよいのなら

Dim c As Range
Dim repltxt As Variant
Dim i As Integer
Dim n As Integer

For Each c In Selection
repltxt = Split(c.Value, "+")
n = UBound(repltxt)
c.Value = WorksheetFunction.Rept("+", n)
Next

補足

すいません。書き方が悪かったです。
>++だけにすればよいのなら
⇒ではなく複数の文字列を消す処理をしたいです。
Selection.Replaceで一つずつ作らないとダメでしょうか。