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

方漠

可以写个自定义函数,把要去掉的特殊符号列举在清单上面就行了. 如下(全角符号不可辨认了,你自己列一下就行.):


Function RemoveSymbol(StrK As String) As String

'~!@#$%^&*()_-+=<>,.?/;:'"\|¡££¬£¡¡¤#£¤%¡­¡­¡ª*£¨£©£­¡ª£½+¡¶¡·£¬¡££»£º¡®¡°¡±¡¯¡¢|

'¡º¡»

StrK = Replace(StrK, "¡º", "")
StrK = Replace(StrK, "-", "")
StrK = Replace(StrK, "¡»", "")
StrK = Replace(StrK, "£º", "")
StrK = Replace(StrK, "¡°", "")
StrK = Replace(StrK, "¡±", "")
StrK = Replace(StrK, "*", "")
StrK = Replace(StrK, "¡¶", "")
StrK = Replace(StrK, "¡·", "")
StrK = Replace(StrK, "£¨", "")
StrK = Replace(StrK, "£©", "")
'.............. list all the symbol here with Replace Function
RemoveSymbol = StrK

End Function


此代码也可以在ACCESS VBA中直接使用.在QUERY里可以直接调用此函数.

方漠

图片如下:

方漠

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