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

xioudan · 发表于 2015-7-17 10:32

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

如果超过10个数值呢

xioudan · 发表于 2015-7-17 14:27

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

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

13732120571 · 发表于 2015-7-17 14:30

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

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

yyfwmm · 发表于 2015-7-17 16:39

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 · 发表于 2015-7-17 19:38

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

复制代码

vs2010 · 发表于 2015-7-18 09:35

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

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

Sub test()
Dim FoundMatchs, s
Dim myRegExp As RegExp
Set myRegExp = New RegExp
myRegExp.Pattern = "(\d*\.?\d*)元"
Set FoundMatchs = myRegExp.Execute([A2])
End Sub

复制代码

vs2010 · 发表于 2015-7-18 09:36

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

了解了少了个.Global = True

vs2010 · 发表于 2015-7-18 09:38

可以了

Sub test()
Dim FoundMatchs, s
Dim myRegExp As RegExp
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.Pattern = "(\d*\.?\d*)元"
Set FoundMatchs = myRegExp.Execute([A2])
s = 0
For Each Match In FoundMatchs
s = s + Match.SubMatches(0)
Next
End Sub

复制代码

AmoKat · 发表于 2015-7-18 11:42

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

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

wshcw · 发表于 2015-7-18 15:06

本帖最后由 wshcw 于 2015-7-18 15:17 编辑

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人经手人李小伟）

公式这样就应该完美了：

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

复制代码

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

		自动登录	找回密码
密码			免费注册

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

评分

评分