[分享] [有了一个解决方案了]双向求和自定义函数

再有一个思路（因手头忙，没做）：

把因±号不能显示的实际合计结果存入变量或数组，需要时再取值运算来取代4楼的方法。

Function SumRowCol3(Row As Range, Col As Range) ''蓝桥玄霜
    Application.Volatile    '自动更新计算结果
Dim x, y, cel As Range
Dim cel1
For Each cel In Row
    r1 = InStr(cel, " ") 'InStr 函数来查找某字符串在另一个字符串中首次出现的位置。
    If r1 = 0 Then
        x = x + cel
       
    Else
        cel1 = Val(Left(cel, r1 - 1))
        x = x + cel1
    End If
Next cel
    y = Application.Sum(Col)
    x = Application.WorksheetFunction.Round(x, 2)
    y = Application.WorksheetFunction.Round(y, 2)
    ''判断并求和
    If x = y Then
        SumRowCol3 = (x + y) / 2
    ElseIf x > y Then
        SumRowCol3 = x & " -" & x - y
    Else
        SumRowCol3 = x & " +" & y - x
    End If
End Function

在蓝版的基础上改了一下