刪除子串，但保留格式

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