SubMatches:获取匹配到的字符串的所有分组 Sub 测试() Dim my_str$, mt, mh, sub_str$ Set reg = CreateObject("vbscript.regexp") '定义一个正则对象 my_str = "我人民币大写:123656.00。小写:123654.03 " & _ "中介人民币大写:800.36<