excel删除中文字符,保留英文和数字VBA公式
作者:小朱笔记
发布日期:2020年11月26日
摘要:excel删除中文字符,保留英文和数字VBA公式,筛选关键词使用excel在单元格中只去掉汉字、保留下英文或数 […]

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删除中文字符,保留英文和数字VBA公式 3

相关文章

Excel表格按条件自动编号

举例:excel根据姓名自动生成序号 公式:=countif(B$2:B2,B2) 举例:按条件组合生成序号 公式:=A2&TEXT(COUNTIF(A$2:A2,A2),"0000")

Excel批量检测本地图片超链接是否有效

Excel批量检测本地图片超链接是否有效,主要用于表格发布产品,生成图片链接,有相关需求的朋友可以试试。 本地上千张图片提取到Excel中生成链接,并检测图片是否存在。 A1:A6代表范围,自行修改。 Sub t() Dim rg As Range, rng As Range, arr, x& Set rng =...

评论

0条评论

递交一条评论

邮箱地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据

欢迎来到我的博客!

好记性不如烂笔头

为什么要写博客?

记性不好。

本站所有内容都是我在工作中所遇到的问题,通过搜索引擎查到资料,有自己原创经验分享,有收集来的,记录并分享,方便自己以后查阅。

主要:建站资料,网络推广,服务器,软件分享,办公软件操作,阿里巴巴国际站,国外社交平台,各类工具等等。

我的收藏,希望对你有帮助。

收藏本站(Ctrl+d)加入收藏