VBA 剔除金钱符号提取金额

^星^

提取发票.zip (16.04 KB, 下载次数: 10)

2024-2-26 17:28 上传

点击文件名下载附件

limonet

¥非￥

准提部林

'金額拆分//by.准提部林

Sub Test_A1()
For Each x In Split([a7], ChrW(165))
    v = Val(x)
    If v > 0 Then n = n + 1: Cells(8 + n, 2) = v
Next x
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim strTxt$, aMatch As Object
   
    strTxt = [A7].Value
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[0-9.]+"
        For Each aMatch In .Execute(strTxt)
            MsgBox aMatch.Value
        Next
    End With

    Beep
End Sub

gwjkkkkk

用正则吧。。。

ykcbf1100

VBA正则提取

ykcbf1100

1. Sub ykcbf()   '//2024.2.26
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     s = Cells(7, 1)
   
4.     With reg
   
5.         .Global = True
   
6.         .Pattern = "(\d+(\.\d{1,2})?)"
   
7.     End With
   
8.     Set mh = reg.Execute(s)
   
9.     i = 9
   
10.     For Each k In mh
    
11.         Cells(i, 2) = k.Value
    
12.         i = i + 1
    
13.     Next
    
14. End Sub
    

复制代码

参与一下。。。

saghj

不复寻觅桃花源 发表于 2024-2-26 17:11
"￥"放入vba不成功

这事我遇到过，vbe里换一种字体就行了

不复寻觅桃花源

感谢各位，解决问题了！！！

朝露孤烟

offce2021
=TEXT({1,-1}%,SUBSTITUTE(MID(A7,4,99),"¥",";"))
出现此提示， 表示工程库中没有调用到工程库的字符¥ ，直接回车。