宏刪除ASCII碼

Question

任何想法，如果有一個Excel宏刪除ASCII碼，如&＃148;等等。

對於不可打印的字符，有一個像CLEAN這樣的功能嗎？

Answer 1

你的意思是這樣的：

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

Answer 2

您可以搜索特定的細胞爲char和任何你想要的更換。

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