EXCEL单元格含汉子备注的自动求和公式

Question

就是上面这种公式怎么设置 求大神

Answer 1

做一个自定义函数NewEval(ref)

Const BF = "[", BE = "]"
Function NewEval(ref As Range)
Dim i!, j!, s$
s = ""
For i = 1 To Len(ref.Value)
    If Mid(ref.Value, i, 1) <> Chr(10) Then
        If Mid(ref.Value, i, 1) <> BF Then
            s = s & Mid(ref.Value, i, 1)
        Else
            For j = i + 1 To Len(ref.Value)
                If Mid(ref.Value, j, 1) = BE Then
                    i = j
                    Exit For
                End If
            Next
        End If
    End If
Next
NewEval = Application.Evaluate(s)
End Function

使用时，只要在单元格中输入：

=NewEval(C1),其中C1是你的那种公式所在的单元格的引用

效果如图

附件请参考

Answer 2

这种需要用VBA代码来解决了。追问

很复杂吗

追答

也不太复杂吧。