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

相关文章

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

使用VBA代码,将excel表格Xlsx、xls格式批量转换为csv格式。 Sub SaveToCSVs() Dim fDir As String Dim wB As Workbook Dim wS As Worksheet Dim fPath As String Dim sPath As String fPath =...

Excel表格按条件自动编号

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

评论

0条评论

递交一条评论

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

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

欢迎来到我的博客!

好记性不如烂笔头

为什么要写博客?

记性不好。

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

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

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

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