单元格数值提取求和

bandorn

如图，想得到H：I列结果，公式和代码都可以。


在此感谢伸出援助之手。

temp.zip (21.7 KB, 下载次数: 28)

2020-1-21 15:22 上传

点击文件名下载附件

mmlzh

数组公式
H3=SUM(IFERROR(--RIGHT(SUBSTITUTE(MID(SUBSTITUTE($G3,"元",REPT(" ",99)),ROW($1:$9)*99-98,99),RIGHT(H$2,2),REPT(" ",99)),99),))

我走我流

=SUM(IFERROR(FILTERXML("<a><b>"&SUBSTITUTE(SUBSTITUTE(表1[@开票回款情况],RIGHT(H$2,1),"</b><b>"),"元","</b><b>")&"</b></a>","//b"),))
数组右拉，下拉

lk20092010

试一下，只有一个回款的情况应该可用
=IFERROR(MID(G3,FIND("回款",G3)+2,FIND("元",G3,FIND("回款",G3))-FIND("回款",G3)-2),)

bandorn

mmlzh 发表于 2020-1-21 15:58
数组公式
H3=SUM(IFERROR(--RIGHT(SUBSTITUTE(MID(SUBSTITUTE($G3,"元",REPT(" ",99)),ROW($1:$9)*99-98,9 ...

谢谢帮助，不过用这个公式，I22单元格的结果貌似出错，可能是字符数太多了吧，不知道该在哪里修改重复倍数，我再研究一下吧。

mmlzh

bandorn 发表于 2020-1-21 17:03
谢谢帮助，不过用这个公式，I22单元格的结果貌似出错，可能是字符数太多了吧，不知道该在哪里修改重复倍 ...

=SUM(IFERROR(--RIGHT(SUBSTITUTE(MID(SUBSTITUTE($G3,"元",REPT(" ",199)),ROW($1:$9)*199-198,199),RIGHT(H$2,2),REPT(" ",199)),199),))

micch

1. =SUM(--LEFT(SUBSTITUTE(IF(MID($G3,ROW($1:$997),2)=RIGHT(H$2,2),MID($G3,ROW($3:$999),22),),"元",REPT(" ",22)),22))

复制代码

右拉下拉

micch

1. Sub temp()
   
2.     arr = Range("G3:G" & [B65536].End(3).Row)
   
3.     brr = [h3].Resize(UBound(arr), 2)
   
4.     For i = 1 To UBound(arr)
   
5.         ar = Split(arr(i, 1), "开票")
   
6.         For k = 1 To UBound(ar)
   
7.             Sum = Sum + Val(ar(k))
   
8.         Next
   
9.         brr(i, 1) = Sum: Sum = 0
   
10.         ar = Split(arr(i, 1), "回款")
    
11.         For k = 1 To UBound(ar)
    
12.             Sum = Sum + Val(ar(k))
    
13.         Next
    
14.         brr(i, 2) = Sum: Sum = 0
    
15.     Next
    
16.     [h3].Resize(i - 1, 2) = brr
    
17. End Sub

复制代码

micch

1. =SUM(FILTERXML("<a><b>0"&SUBSTITUTE(SUBSTITUTE($G3,RIGHT(H$2,2),"</b><b>"),"元","</b><b>a")&"</b></a>","a/b"))

复制代码

这样？

mmlzh

这个长度999应该足够了
=SUM(IFERROR(--RIGHT(SUBSTITUTE(LEFT($G3,MODE.MULT(ROW($1:$999)-(MID($G3&"元",ROW($1:$999),1)="元"))),RIGHT(H$2,2),REPT(" ",19)),19),))