查找并替换特殊的 unicode 字符

Question

我有一个特殊字符在多行中多次出现的特定列。这是 "Response" 字符。它是一个带有斜线的大写字母 R。它表示为 Unistring 211F。它也可以在 HTML 中表示为 ℟.

我想使用 VBA 搜索 "Response" 字符并将其替换为 "Response" 和换行 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

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

查找并替换特殊的 unicode 字符

Find and replace a special unicode character

unicode

excel

vba