去除所有单元格中的全部空格字符和非打印字符

 

Sub Macro1()
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
Sub 清除特殊字符()
dim c
For Each c In ActiveSheet.UsedRange
Cells.Replace Chr(9), "" '清除TAB
Cells.Replace Chr(34), "" '清除双引号
Cells.Replace chr(39),"" '清除单引号
Cells.Replace chr(32),"" '清除空格
Next
End Sub