小编D3m*_*zel的帖子

我使用下面的代码来搜索和替换字符串中的部分文本。它适用于几乎 97% 的替换，但当要替换的一个字符串与字符串的另一部分相同时则不然。有没有一种简单的方法可以避免这种情况？

Sub Macro1()

Dim i As Integer

For i = 2 To Worksheets("table1").Range("A1").End(xlDown).Row

Worksheets("table1").Range("H:H").Replace What:=Worksheets("table2").Range("A" & i), Replacement:=Worksheets("table2").Range("B" & i), LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    
Next i

End Sub

重要提示：分隔符并不总是“,”。它也可以是带有逗号的任意组合空格。例子：

”、“
”、“
”、“