excel vba中利用正則表達式提取id後的數字和name後的漢字應該怎麽寫

假設妳的上面的字段在sheet1的A1單元格

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單元格。

如下圖所示：