excel里怎样过滤掉除汉字和数字外的所有符号

选中A列,在编辑里 将所替换的 标点、符号依次替换为空,即可.
找一个更好的的,更完美
Sub cc()
Dim i%,arr
arr = Sheet1.[a1].CurrentRegion
With CreateObject("VBSCRIPT.REGEXP")
For i = 1 To UBound(arr)
.Global = True
'.Pattern = "[^0-9A-zu4e00-u9fa5]"
.Pattern = "[^0-9A-Za-z一-龥]"
arr(i,1) = .Replace(arr(i,1),"")
Next
End With
Sheet1.[d1].Resize(UBound(arr)) = arr
End Su