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 |
|