Найти и заменить специальный символ юникода

Question

У меня есть конкретный столбец с несколькими вхождениями в нескольких строках специального символа. Это символ «Ответ». Это столица R с косой чертой. Он представлен как Unistring 211F. Он также может быть представлен в HTML как & # 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 

Диапазон замен может быть уменьшен до столбца, строки или любой выбранной группы ячеек.