как заменить специальный символ с помощью excel vba

Question

Имея этот специальный символ « » в моей рабочей книге excel, я хочу заменить все на «.», Когда я помещаю этот символ в код, он превращается в «? " после запуска макроса он заменяет все на "."

Sub FindReplaceAll() 

Dim ws  As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
    ws.Cells.Replace What:="�", Replacement:=".", LookAt:= _ 
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
    ReplaceFormat:=False 

     Next ws 
End Sub 

Заранее спасибо

Answer 1

Попробуйте скопировать этот символ в ячейке, то есть номер ASCII и заменить символ в ASCII NUM:

Dim num =123 
Ex: 
    Cells.Replace What:=Chr(Num), Replacement:=".", LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
     ReplaceFormat:=False