Excel:消除冗余的“中间人”单元格

时间:2015-03-28 19:46:18

标签: excel

我已经尝试过寻找这个,但似乎我没有找到正确的措辞。作为一个最小的例子,假设我有三个包含以下公式的单元格:

A1:  =2
B1:  =A1*2
C1:  =SQRT(B1)

由于B1仅作为计算的中间步骤,从A1开始到C1结束,我正在寻找一种自动方式来替换C1中的公式,而不需要B1:

C1: =SQRT(A1*2)

我所面临的确切问题只是将这个想法与这些“中间人”的大型二维阵列联系起来。单元格,只有两个实际输入值。由于它是2D,这使得生成输出图表很麻烦。

1 个答案:

答案 0 :(得分:0)

在VBA中你可以这样做,我使用你可以观察结果的单元格D1。

Sub MergeCellFormula()
    Dim sB1 As String: sB1 = Mid(Cells(1, 2).Formula, 2)
    Dim sC1 As String: sC1 = Cells(1, 3).Formula
    Cells(1, 4) = Replace(sC1, "B1", sB1)
End Sub

问候