作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/19 06:48:26
excel里怎样过滤掉除汉字和数字外的所有符号
把一个excel里A列所有行里面 除了汉字和数字外的所有符号全部过滤掉
错了 是除汉字数字英文字母外的所有符号全部过滤掉
各种各样的符号 ,.‘ ; 【 】 :“ 》 ,很多很多
选中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-z\u4e00-\u9fa5]"
.Pattern = "[^0-9A-Za-z一-龥]"
arr(i,1) = .Replace(arr(i,1),"")
Next
End With
Sheet1.[d1].Resize(UBound(arr)) = arr
End Sub
再问: 使用后直接过滤的干干净净 变成空白文档。。。。。。。。。。。。
再答: 注意 Sheet1.[a1] 代表sheet1表的a纵 Sheet1.[d1] 代表d纵 你先在一个空白电子表格测试 a纵输入数字字符行子标点符号等 在运行代码时选择表sheet1 运行 测试都通过了 你也许操作错了 如果你测试通过希望你能灵活运用。
再问: 很好很强大 不过有个小问题 就是 遇到空行会停止过滤 比如说我有10000行 第4888行是空内容 那么过滤到4888行会自动停止