一个单元格内有多组数据，提取固定字符前面的数字求和~~~~~

xioudan

首席打杂 发表于 2015-7-17 09:51
找到了，CY7老师做的。。拿来改改~~（适用10个数值以内）

如果超过10个数值呢

xioudan

13732120571 发表于 2015-7-17 09:59
就例子而言
B2

附件只是个例子，一个单元格里有三十个左右的数据。。。求指导

13732120571

xioudan 发表于 2015-7-17 14:27
附件只是个例子，一个单元格里有三十个左右的数据。。。求指导

只要字符数不长于198字符
10楼的公式可用

yyfwmm

Sub aa()
    Set regexp = CreateObject("vbscript.regexp")
   
    With regexp
      
      .Global = True
      .Pattern = "[0.00-9.00]*?元"
   
     Set rg = .Execute(Cells(2, 1))
     For Each rgs In rg
       s = s + Val(VBA.Mid(rgs, 1, Len(rgs) - 1))
         
      Next
      Cells(2, 2) = s
     End With
   
End Sub

wshcw

1. =SUMPRODUCT(--TEXT(MID(TEXT(MID(SUBSTITUTE(A2,"元",REPT(" ",15)),ROW($1:$999),16),),2,15),"[<>];;0;\0"))

复制代码

vs2010

yyfwmm 发表于 2015-7-17 16:39
Sub aa()
    Set regexp = CreateObject("vbscript.regexp")
   

请教一下　下面的正则在工具是通过的　但在ＶＢＡ里只能匹配得到一个结果

1. Sub test()
   
2.     Dim FoundMatchs, s
   
3.     Dim myRegExp As RegExp
   
4.     Set myRegExp = New RegExp
   
5.     myRegExp.Pattern = "(\d*\.?\d*)元"
   
6.     Set FoundMatchs = myRegExp.Execute([A2])
   
7. End Sub

复制代码

vs2010

yyfwmm 发表于 2015-7-17 16:39
Sub aa()
    Set regexp = CreateObject("vbscript.regexp")
   

了解了 少了个.Global = True

vs2010

可以了

1. Sub test()
   
2.     Dim FoundMatchs, s
   
3.     Dim myRegExp As RegExp
   
4.     Set myRegExp = New RegExp
   
5.     myRegExp.Global = True
   
6.     myRegExp.Pattern = "(\d*\.?\d*)元"
   
7.     Set FoundMatchs = myRegExp.Execute([A2])
   
8.     s = 0
   
9.     For Each Match In FoundMatchs
   
10.         s = s + Match.SubMatches(0)
    
11.     Next
    
12. End Sub

复制代码

AmoKat

wshcw 发表于 2015-7-17 19:38

最前面加 1元時，可能需要做一點小修正

wshcw

AmoKat 发表于 2015-7-18 11:42
最前面加 1元時，可能需要做一點小修正

好吧，前面想加多少就加多少,这里就加1元,A2单元格就变成:
1元24号武汉教授来院订钟点房2间100元，配宿舍钥匙3把6.5元（新来助理），购一次性筷子1件40元，购空调水管一根3.8元（食堂），返款900元（业务员：李小伟），30日外出跑业务误餐费10元（李小伟），31日外出跑业务误餐费20元（2人经手人李小伟）

公式这样就应该完美了：

1. =SUMPRODUCT(--TEXT(MID(TEXT(MID(SUBSTITUTE(“A”&A2,"元",REPT(" ",16)),ROW($1:$999),17),),2,16),"[<>];;0;\0"))

复制代码

一个单元格内有多组数据，提取金额并求和.rar (4.02 KB, 下载次数: 66)

2015-7-18 15:15 上传

点击文件名下载附件