查找並替換一個特殊的Unicode字符

Question

我有一個特殊的列在特殊字符的多行中出現多次。這是「迴應」字符。這是一個大刀闊斧的資本R。它表示爲Unistring 211F。它也可以用HTML表示爲&＃8479。

我想使用VBA來搜索「響應」字符並將其替換爲「響應」和換行符ASC（10）。

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

Answer 1

您需要搜索what:=ChrW(8479)並用replacement:="Replace" & 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 

替換範圍可以削減到列，行或任何選定的單元格組。