如何把excel表格的中文删除

================================================

打开excle 快捷键 Alt + F11 将下面代码复制到模块 运行

留意要替换的标点本身加进去

测试已经通过

Sub Del()

Dim reg As Object '界说reg为一个工具

Dim arr '界说一个动态数组

Dim i As Long, j As Long '别离界说i,j为长整型

i = Range("A65536").End(xlUp).Row '把A列非空的最后行数赋予给i

Columns("B").ClearContents '清空B列

arr = Range("A1:A" & i) '把A列的数据赋予给数组arr

Set reg = CreateObject("VBscript.RegExp") '挪用正则表达式

With reg '界说表达式

.Global = True '匹配所有搜索项

.ignorecase = True '不区分巨细写

.Pattern = "[。'；【】：“》，]" '正则表达式（所有标点）"

End With

For j = 1 To i '轮回该区域

Range("B" & j) = reg.Replace(arr(j, 1)，抖客教程网， ""） '举办按照模板替换字符串为空值

Next

End Sub

上面是本身做的

============================================================

找一个更好的的，更完美

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