第1个回答 2010-12-28
一、如果符号不多的可以按Ctrl+H,把某一符号分复制粘贴到“查找内容”栏,在“替换栏”里输入一个空白键,按“全部替按”。其它的符号也用此方法。
二、如果符合太多了,几十种,可以用如下方法:
右击工作表标签,查看代码,把下面的代码复制过去,按F5运行,在弹出的对话框中依次输入你要指删除的字符,就可以了
Sub zjh()
Dim mStr$, i%, temStr$
mStr = InputBox("请连续输入你要删除的字符,如,。[]等等")
For i = 1 To Len(mStr)
temStr = Mid(mStr, i, 1)
Cells.Replace What:=temStr, Replacement:=""
Next
End Sub