excel删除中文字符,保留英文和数字VBA公式

excel删除中文字符,保留英文和数字VBA公式,筛选关键词使用excel在单元格中只去掉汉字、保留下英文或数字的方法。

Sub test()
    Dim objRegExp As Object
    Dim i As Long, arr
    arr = Range("a1:b" & Cells(Rows.Count, 1).End(xlUp).Row).Value
    Set objRegExp = CreateObject("VBScript.regExp")
    With objRegExp
        .Global = True
        .Pattern = "[\u4e00-\u9fa5]{1,}"
        For i = 1 To UBound(arr)
            'If .test(arr(i, 1)) Then
            arr(i, 1) = .Replace(arr(i, 1), "")
            'End If
        Next
    End With
    Set objRegExp = Nothing
    Range("b1").Resize(UBound(arr)) = arr
    MsgBox "替换完成"
End Sub

Excel技巧

Excel若要在64位系统上使用,则必须更新此项目中的代码

2020-4-8 17:12:08

Excel技巧

使用VBA代码将excel表格批量转换格式csv

2021-3-18 11:28:26

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索