Sub 汇总人民币()    '正则用法二
    Dim 数据源 As String, Item As Double    '声明变量
    数据源 = "美元:123元  人民币:44元 英磅:100元 美元:44元 人民币:300.06元"    '待计算的字符串
    With CreateObject("VBSCRIPT.REGEXP")    '引用正则表达式
        .Global = True    '全局匹配
        .Pattern = "人民币:(\d+.(\d+)?)(?=元)"    '指定匹配条件
        Set Matches = .Execute(数据源)    '执行匹配
        
        For Each Match In Matches    '遍历匹配的结果
            Item = Item + Replace(Match.Value, "人民币:", "")    '将“人民币：”替换成空，然后逐一累加
        Next
        
        Msgbox "人民币合计：" & Item    '报告合计结果
    End With
End Sub