[已解决]在文字和数字混合的单元格中提取数值并求和

zhgghw

在某些单元格里有文字也有数字且没有一定的规律，能否把指定文字后的数字提取出来并汇总求和。详见附件，谢谢！ 文字数字混合.rar (2.47 KB, 下载次数: 7)

2017-4-5 14:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-4-5 15:03

不改数据源，数组公式，下拉

1. =SUM(--MID(B$2:B$6,FIND(LEFT(A7,3),B$2:B$6)+3,FIND("元",B$2:B$6,FIND(LEFT(A7,3),B$2:B$6))-FIND(LEFT(A7,3),B$2:B$6)-3))

复制代码

跳转到最佳答案楼层

tgydslr

你这表也太流水账了，直接用函数或vba都不会太省事，可以稍处理一下

Excel学徒123

1. Option Explicit
   
2. 
   
3. Sub Sumx()
   
4.     Dim objdic As Object, objRegx As Object
   
5.     Dim arrSrc, arrRst
   
6.     Dim Ends&, lrow&
   
7.     Dim irow%
   
8.     Set objdic = CreateObject("scripting.dictionary")
   
9.     Set objRegx = CreateObject("vbscript.regexp")
   
10.     Ends = Cells(Rows.Count, 1).End(3).Row
    
11.     arrSrc = Range("b2:b" & Ends)
    
12.     With objRegx
    
13.         .Global = True
    
14.         .Pattern = "^([^\d]+)(\d+)元"
    
15.         For lrow = 1 To UBound(arrSrc)
    
16.             arrRst = Split(arrSrc(lrow, 1), "、")
    
17.             For irow = 0 To UBound(arrRst)
    
18.                 objdic(.Replace(arrRst(irow), "$1")) = objdic(.Replace(arrRst(irow), "$1")) + .Replace(arrRst(irow), "$2") * 1
    
19.             Next
    
20.             Erase arrRst
    
21.         Next
    
22.     End With
    
23.     Range("d2").Resize(objdic.Count, 2) = Application.Transpose(Array(objdic.keys, objdic.items))
    
24. End Sub
    

复制代码

自己Copy吧，查看第二个表

tgydslr

如上图，现对列分列，然后求和即可
B7

1. =SUM(IF(ISNUMBER(FIND(A7,B$2:G$6)),--SUBSTITUTE(SUBSTITUTE(B$2:G$6,A7,),"元",),))

复制代码

数组公式，三键，下拉

tgydslr

文字数字混合.rar (6.94 KB, 下载次数: 3)

2017-4-5 15:02 上传

点击文件名下载附件

望帝春心

不改数据源，数组公式，下拉

1. =SUM(--MID(B$2:B$6,FIND(LEFT(A7,3),B$2:B$6)+3,FIND("元",B$2:B$6,FIND(LEFT(A7,3),B$2:B$6))-FIND(LEFT(A7,3),B$2:B$6)-3))

复制代码

望帝春心

1. 参考......

复制代码

望帝春心

1. Sub test()
   
2.     Dim arr1, arr2, arr3(1 To 3, 1 To 1)
   
3.     arr1 = [b2:b6]
   
4.     arr2 = [a7:a9]
   
5.     Set reg = CreateObject("vbscript.regexp")
   
6.     reg.Global = True
   
7.     For i = 1 To 3
   
8.         reg.Pattern = Left(arr2(i, 1), 3) & "\d{1,}"
   
9.         For j = 1 To 5
   
10.             sums = sums + Val(Replace(reg.Execute(arr1(j, 1))(0), Left(arr2(i, 1), 3), ""))
    
11.         Next
    
12.         arr3(i, 1) = sums
    
13.         sums = 0
    
14.     Next
    
15.     [b7:b9] = arr3
    
16. End Sub

复制代码

凑一个VBA，代码中引用区域和数组上标根据具体数据改一下

zhgghw

十分感谢！公式和VBA都很有效，就设函数公式为最佳吧，谢谢！

zhgghw

望帝春心 发表于 2017-4-5 18:26
凑一个VBA，代码中引用区域和数组上标根据具体数据改一下

一样的好用，一样的给力，谢谢！