查找并替换特殊的unicode字符

Question

我有一个特殊列，在特殊字符的多行中有多次出现。这是“响应”字符。它是一个大写字母R，通过它斜线。它表示为Unistring 211F。它也可以用HTML表示为＆amp;＃8479。

我想使用VBA搜索“响应”字符，并将其替换为“响应”和换行符ASC（10）。

如何搜索和替换此特殊字符？

Answer 1

您需要搜索what:=ChrW(8479)并替换为replacement:="Replace" & Chr(10)。

此快速代码将在活动工作表中替换Unichar-to-Text。

Sub replace_Response()
    Dim fnd As Range
    With ActiveSheet
        .Cells.Replace what:=ChrW(8479), replacement:="Response" & Chr(10), lookat:=xlPart
    End With
End Sub

替换范围可以减少到列，行或任何选定的单元格组。