查找并替换特殊的Unicode字符

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

此快速代码将使您在活动工作表中的从Unichar转换为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

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