含某个文字的数字求和

飞天篮球猪

提供一个M+JS正则的解法，供参考

1. = Expression.Evaluate(
   
2.                       Web.Page("<script> var str = '"&Text.Combine(List.Combine(Table.ToColumns(源)),",")&"';
   
3.                                              ptn = RegExp('(?:饭\\D*|车费)(\\d+)(?=,)','g');
   
4.                                           while(ptn.test(str)){document.write('+'+RegExp.$1)}                  
   
5.                                 </script>")[Data]{0}[Children]{0}[Children]{1}[Text]{0}  )

复制代码

tgydslr

流水账稍稍处理一下，见图见附件
不修改原数据，这也只能代码了，公式怕是做不到

AmoKat

組數公式
=SUM(TEXT(RIGHT(TEXT(RIGHT(T(OFFSET(A1,(ROW(1:99)-1)/3,MOD(ROW(1:99)-1,3))),{2,3,4,5}),),{1,2,3,4}),"[<>];;0;!0") *(MMULT(--ISNUMBER(FIND({"饭","车"},T(OFFSET(A1,(ROW(1:99)-1)/3,MOD(ROW(1:99)-1,3))))),{1;1})>0) )

朝花夕拾2018

规范表格，操作应该很简单！

leon3131

每天学习下！

AA5242

各位   看起来挺难的   多谢大家了

grf1973

1. Sub test()
   
2.     With CreateObject("vbscript.regexp")
   
3.         .Global = True
   
4.         .Pattern = "-?\d+"
   
5.         For Each c In [a1].CurrentRegion
   
6.             If InStr(c, "饭") Or InStr(c, "车费") Then
   
7.                 If .test(c) Then s = s + Val(.Execute(c)(0))
   
8.             End If
   
9.         Next
   
10.     End With
    
11.     MsgBox "饭和车费共：" & s & "元。"
    
12. End Sub

复制代码

AA5242

AmoKat 发表于 2019-2-1 22:12
組數公式
=SUM(TEXT(RIGHT(TEXT(RIGHT(T(OFFSET(A1,(ROW(1:99)-1)/3,MOD(ROW(1:99)-1,3))),{2,3,4,5}),),{ ...

非常好  多谢

准提部林

看來大家應是白忙一場~~
車費/計程車費/修車費/租車費/推車費
這"車費", 載了整車, 怎理也理不清~~

丢丢表格

准提部林 发表于 2019-2-2 16:30
看來大家應是白忙一場~~
車費/計程車費/修車費/租車費/推車費
這"車費", 載了整車, 怎理也理不清~~

呵呵呵， 做这样题的人，都是不准备过年的人。

我要过年，我耗不起时间………………