删除子串，但保留格式

Question

我有一小段代码将从细胞去除串垃圾，我选择了：

Sub RemoveJunk() 
    Dim r As Range 
    For Each r In Selection 
     r.Value = Replace(r.Value, "junk", "") 
    Next r 
End Sub 

代码工作，但它破坏了人物的格式化方法，留在细胞中。所以，如果我开始：

我结束了：

有什么办法，以避免干扰仍然存在的字符格式？

Answer 1

Sub RemovePreserveFormatting(ByVal Where As Range, Expression As String, Optional ByVal Compare As VbCompareMethod = VbCompareMethod.vbBinaryCompare) 
    Dim c As Range 

    For Each c In Where 
    Dim pos As Long: pos = 0 

    Do 
     pos = InStr(pos + 1, c.Value, Expression, Compare) 
     If pos = 0 Then Exit Do 

     c.Characters(pos, Len(Expression)).Delete 
    Loop 
    Next 

End Sub