有什么方法，一次性去掉 excel 某一列中的所有标点符号吗？

方漠

图片如下:

todaynew

可以写个自定义函数,把要去掉的特殊符号列举在清单上面就行了. 如下(全角符号不可辨认了,你自己列一下就行. ...
方漠 发表于 2010-7-20 11:48

我查了一下asc码在-23648至-23632和-24159至-24000区间的为符号，这样可以用循环的方法解决。

Function RemoveSymbol(StrK As String) As String
dim i as long
for i=-32768 to -32193
　　StrK=Replace(StrK,chr(i),""）
next
for i=-24159 to -24000
　　StrK=Replace(StrK,chr(i),""）
next
Function

方漠

嗯,这个思路也很不错,不过代码好像漏了一句,另外一些符号也没有去掉,如*?!之类的,可能还需要加多一个FOR.

Function RemoveSymbol(StrK As String) As String

Dim i As Long

For i = -32768 To -32193
  StrK = Replace(StrK, Chr(i), "")
Next

For i = -24159 To -24000
  StrK = Replace(StrK, Chr(i), "")
Next

RemoveSymbol = StrK

End Function