excel vba中利用正则表达式提取id后的数字和name后的汉字应该怎么写

发布网友发布时间：2023-09-16 09:22

共2个回答

热心网友时间：2024-10-28 06:24

假设你的上面的字段在sheet1的A1单元格

Sub test()
Dim regx As Object
Set regx = CreateObject("vbscript.regexp")
Dim str As String
str = Sheet1.Range("a1").Value
Dim s
With regx
    .Global = True
    .Pattern = "\d+|[\u4e00-\u9fa5]+"
    Set matc = .Execute(str)
    For Each s In matc
        i = i + 1
        Sheet1.Cells(i, 2) = s
    Next
End With
End Sub

结果放在sheet1的B1,B2单元格。

如下图所示：

热心网友时间：2024-10-28 06:25

用不着vba吧，函数就可以提出来了，多放点数据上来看下特征给你写

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com