是否有一个 excel 公式可用于将一个单元格中的字符串中的所有蓝色字体数字加到另一个单元格中？

Question

我正在尝试对出现在括号中的字符串中从一个单元格到另一个单元格的所有数字求和。

还有其他字母数字字符，所以我使用了我发现的一些 VBA 代码将括号内的所有项目更改为蓝色。现在我想将所有这些数字加到另一个单元格中，并让它自动更新。

我正在为 Excel 使用 Kutools 加载项，我尝试了 sumbyfontcolor，但那是一个范围，而我只引用一个单元格。

这是我要提取的单元格内容之一，并对以下数字求和：

SM(.00),RCP(.65),PMP(2.50)12.25 Hrs T-2,M-7.25,S/G-1.5,Insp/Assy-1.5,C&R(.00)

上面的例子没有显示，但是美元金额是蓝色的：

Answer 1

如果您要查找的所有数字都包含在 () 中，那么您可以使用如下函数：

Function SumFromString(ByVal str As String) As Double
    Dim i As Long
    Dim j As Long
        For i = 1 To Len(str)
            If Mid(str, i, 1) = "(" Then
                j = InStr(i, str, ")", vbTextCompare)
                SumFromString = SumFromString + CDbl(Mid(str, i + 1, (j - (i + 1))))
                i = j
            End If
        Next i
End Function

Answer 2

这是一个数组公式，它将解析字符串并添加 ()

中包含的数字

=SUM(IFERROR(--TRIM(MID(SUBSTITUTE(A1,"(",REPT(" ",999)),(ROW($A:INDEX($A:$A,LEN(A1)-LEN(SUBSTITUTE(A1,"(","")))))*999+1,FIND(")",MID(SUBSTITUTE(A1,"(",REPT(" ",999)),(ROW($A:INDEX($A:$A,LEN(A1)-LEN(SUBSTITUTE(A1,"(","")))))*999+1,999))-1)),0))

作为数组公式，退出编辑模式时需要用Ctrl-Shift-Enter确认，而不是Enter。

是否有一个 excel 公式可用于将一个单元格中的字符串中的所有蓝色字体数字加到另一个单元格中？

Is there an excel formula that I can use to sum all blue font numbers from a string in one cell to another?

excel

vba

excel-formula

sumifs