Excel 查找并替换特殊的unicode字符

我有一个特殊的列，它在一个特殊字符的多行中多次出现。这是一个“回应”的角色。这是一个大写字母R，上面有一条斜线。它被表示为Unistring 211F。它也可以用HTML表示为℟

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

---

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

您需要搜索

什么：=ChrW（8479）

并替换为

替换：=“替换”&Chr（10）

此快速代码将在活动工作表中进行Unichar到文本的替换

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

---

替换范围可以缩减为一列、一行或任何选定的单元格组。

在

xlPart

上有许多VBA查找和替换的示例，但您需要搜索

what:=ChrW（8479）

并替换为

替换：=“替换”&Chr（10）

。效果非常好。谢谢你的帮助。