>++だけにするようにはできませんでしょうか。
>該当の文字列だけ消す処理をしたいです。
混乱する書き方です。
++だけにすればよいのなら
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
お礼
すいません。結論パターンが多すぎて断念しました。