Macro для удаления кода ASCII

Question

Любая идея, если есть макрос Excel для удаления ASCII-кода, например & # 148; и так далее.

Есть функция, подобная CLEAN для непечатаемых символов, чтобы это сделать?

Answer 1

ли вы имеете в виду что-то вроде:

Sub kleanup() 
    Cells.Replace what:=Chr(148), replacement:="" 
End Sub 

Answer 2

Вы можете искать данную ячейку для полукокса и заменить его с тем, что вы хотите.

Dim iIndex as integer 
Dim szValue as String 

szValue = Range("A1").Value 

iIndex = InStr(szValue, Chr(148)) 
If iIndex <> 0 Then 
    Mid(szValue, iIndex, 1) = " " 
End If 

Range("A1").Value = szValue