可以利用正则表达式,具体测试代码如下: Sub test() Dim str$, mystr$ str = "[{explicitARFCN5=72, explicitARFCN25=65535, explicitARFCN4=71}]" Set reg = CreateObject("vbscript.regexp") reg.Pattern = "\=(\d+)" '捕获等于号后的数字 reg.Global = True Set mh = reg.Execute(str) For i = 0 To mh.Count - 1 mystr = mystr & mh(i).submatches(0) Next MsgBox mystr End Sub