求单元格里面文本数字混合形式的数字之和

ba3259878266

求单元格里面文本数字混合形式的数字之和  谢谢各位老师帮忙

zhaojiaoyang200

=SUM(--REGEXEXTRACT(C3,"[-\d]+",1))

逍遥爱迪生

1. Function SumNumbersInString(str As String) As Double
   
2.     Dim i As Long
   
3.     Dim currentNumber As String
   
4.     Dim isNegative As Boolean
   
5.     Dim sumResult As Double
   
6.    
   
7.     For i = 1 To Len(str)
   
8.         Dim char As String
   
9.         char = Mid(str, i, 1)
   
10.         
    
11.         If char >= "0" And char <= "9" Or char = "-" Then
    
12.             If char = "-" Then
    
13.                 isNegative = True
    
14.             Else
    
15.                 currentNumber = currentNumber & char
    
16.             End If
    
17.         Else
    
18.             If currentNumber <> "" Then
    
19.                 If isNegative Then
    
20.                     sumResult = sumResult - CDbl(currentNumber)
    
21.                 Else
    
22.                     sumResult = sumResult + CDbl(currentNumber)
    
23.                 End If
    
24.                 currentNumber = ""
    
25.                 isNegative = False
    
26.             End If
    
27.         End If
    
28.     Next i
    
29.    
    
30.     ' 处理字符串结尾的数字
    
31.     If currentNumber <> "" Then
    
32.         If isNegative Then
    
33.             sumResult = sumResult - CDbl(currentNumber)
    
34.         Else
    
35.             sumResult = sumResult + CDbl(currentNumber)
    
36.         End If
    
37.     End If
    
38.    
    
39.     SumNumbersInString = sumResult
    
40. End Function

复制代码

ba3259878266

zhaojiaoyang200 发表于 2025-5-9 10:24
=SUM(--REGEXEXTRACT(C3,"[-\d]+",1))

谢谢老师  因本人EXCEL没有正则计算 能用数组公式  

ba3259878266

逍遥爱迪生 发表于 2025-5-9 10:25

谢谢老师 需要数组公式计算

魚。。

1. =SUMPRODUCT(--TEXT(RIGHT(TEXT(MID(SUBSTITUTE(C3&" "," ",REPT(" ",9)),ROW($1:$82),9),),8),"0;-0;;!0"))

复制代码

mykitami

=SUM(1*TEXTSPLIT(C3,TEXTSPLIT(C3,VSTACK(SEQUENCE(10)-1,".","-"),,1),,1))

ba3259878266

mykitami 发表于 2025-5-9 10:34
=SUM(1*TEXTSPLIT(C3,TEXTSPLIT(C3,VSTACK(SEQUENCE(10)-1,".","-"),,1),,1))

谢谢老师 很好用  需要设置空白单元格时返回0  麻烦你设置一下  我是小白见笑了

mykitami

ba3259878266 发表于 2025-5-9 10:42
谢谢老师 很好用  需要设置空白单元格时返回0  麻烦你设置一下  我是小白见笑了

=IF(C3="",0,SUM(1*TEXTSPLIT(C3,TEXTSPLIT(C3,VSTACK(SEQUENCE(10)-1,".","-"),,1),,1)))

ba3259878266

mykitami 发表于 2025-5-9 10:57
=IF(C3="",0,SUM(1*TEXTSPLIT(C3,TEXTSPLIT(C3,VSTACK(SEQUENCE(10)-1,".","-"),,1),,1)))

谢谢老师 好用  麻烦你了