VBA 剔除金钱符号提取金额

yjwdjfqb

准提部林 发表于 2024-2-26 17:40
'金額拆分//by.准提部林

Sub Test_A1()

https://club.excelhome.net/threa ... tml?_dsign=767f27a6
老师你好，可以帮我看下这个不，谢谢你了老师！

yjwdjfqb

ykcbf1100 发表于 2024-2-26 21:46
参与一下。。。

https://club.excelhome.net/threa ... tml?_dsign=767f27a6
老师你好，可以帮我看下这个不，谢谢你了老师！

yjwdjfqb

gwjkkkkk 发表于 2024-2-26 18:45
用正则吧。。。

https://club.excelhome.net/threa ... tml?_dsign=767f27a6
老师你好，可以帮我看下这个不，谢谢你了老师！

general.w

楼主:怎么解决的？

不复寻觅桃花源

general.w 发表于 2024-2-28 12:34
楼主:怎么解决的？

H5 = Range("A" & H1 - 1)
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Global = True
        .Pattern = "(\d+(\.\d{1,2})?)"
    End With
    Set mh = reg.Execute(H5)
    I = 13
    For Each K In mh
        Sheets("汇总").Cells(GWE, I) = K.Value
        I = I + 2
    Next


用了楼里的代码根据自己需要又进行了修改，挺多方法都可行