vba 正则表达式怎么提取“：”后面的内容不含冒号本身

o0excel0o

请教下，我想用正则表达式提取下列字符串中“：”后面的数字或文字
         根据贵司与我司签订《**项目（地块一）住宅及地下室建设工程主体劳务专业分包合同》，双方约定，“按月支付工程进度款，按70%计算产值”，我司在11月20日前完成的工程进度款额为人民币:玖佰叁拾叁万柒仟贰佰陆拾捌元柒角伍分（计￥：9,337,268.75元),（其中人工费￥：3,090,726.15元，其他费用￥：6,246,542.61元），计价表见后附表。


预期匹配结果:
          9,337,268.75
          3,090,726.15
          6,246,542.61


Sub test()
    Dim rg As Range, mt, n%, m%
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "：[\d]*.?\w*.?\w*"      ' 这个正则式应该怎么改，使结果不含冒号
        For Each rg In Range("A1")
            For Each mt In .Execute(rg)
                MsgBox mt
            Next
        Next
    End With
End Sub

匹配结果:
          ：9,337,268.75
          ：3,090,726.15
          ：6,246,542.61



出来的结果带“：”，怎么样不要匹配到“：”

liulang0808

split +val既可以提取那部分数值了吧

zpy2

.Pattern ="：([\d]*.?\w*.?\w*)"

submatches 或者 replace \1

o0excel0o

liulang0808 发表于 2020-7-22 18:09
split +val既可以提取那部分数值了吧

我主要是要把这个匹配结果加下划线

o0excel0o

zpy2 发表于 2020-7-22 18:09
.Pattern ="：([\d]*.?\w*.?\w*)"

submatches 或者 replace \1

能否直接正则表达式匹配不带冒号本身的内容

ggmmlol

使用捕获分组：

1. Sub Test()
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     reg.Global = True
   
4.     reg.Pattern = ".*?￥：(.+?)元|.+"
   
5.     s = Replace(RTrim(reg.Replace(Range("A1").Value, "$1 ")), " ", vbLf)
   
6.     MsgBox s
   
7. End Sub

复制代码

zpy2

o0excel0o 发表于 2020-7-22 18:18
能否直接正则表达式匹配不带冒号本身的内容

https://www.cnblogs.com/tsql/p/5860889.html定逆序常规：(?<=:)[0-9]+:后面的数字

向左环视 vba 可能不支持，否则可以试试

ggmmlol

前面是固定前缀，因此也可以用VBA函数辅助处理
Sub test()
    Dim rg As Range, mt, n%, m%
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "：[\d]*.?\w*.?\w*"      ' 这个正则式应该怎么改，使结果不含冒号
        For Each rg In Range("A1")
            For Each mt In .Execute(rg)
                MsgBox Mid(mt.Value,2)
            Next
        Next
    End With
End Sub

o0excel0o

zpy2 发表于 2020-7-22 18:23
https://www.cnblogs.com/tsql/p/5860889.html定逆序常规：(?

谢谢了，不支持

o0excel0o

ggmmlol 发表于 2020-7-22 18:19
使用捕获分组：

好的，非常感谢，我试试