右击工作表标签,查看代码,把下面的代码复制过去,按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:=""NextEnd Sub