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

假设你的上面的字段在sheet1的A1单元格 Sub test()Dim regx As ObjectSet regx = CreateObject("vbscript.regexp")Dim str As Stringstr = Sheet1.Range("a1").ValueDim sWith regx .Global = True .Pattern = "\d+|[\u4e00-\u9fa5]+"