评估在其他细胞中发现的代数

Question

我必须根据A列中的公式计算B列中的值。例如：A1将具有公式"2 * 3"，而B1将具有如下公式："=(A1)"。这应该显示A1中的完整公式，＆＃34; 6＆＃34;因为B1的结果。但是，当我尝试这个B1时无法正确计算。有没有办法做到这一点？

Answer 1

如果Cell A1有2*3，您可以使用此功能获取6：

Public Function evaluate_Math(ByVal cellRef As Range)
evaluate_Math = Evaluate("=" & cellRef)
End Function

将其放入工作表模块中，然后使用=evaluate_Math(A1)