在Excel中使用另一列中的公式

Question

例如，我將簡化此過程

我在B列中有一個公式是Ax + 2

例如在B1中，它是B2中的A1 + 2，在A2 + 2中

我想在Y列中創建一個公式，該公式始終反映B列中的任何公式，但用X替換公式中的A。

例如，在Y1中，它是Y2中的X1 + 2，在X2 + 2中

無論B列中的公式發生什么變化，我都希望Y中的公式能夠反映這些更改。

有效地，如果我可以執行類似於= B1.formula.replace（“ A”，“ X”）的操作，則可以完成此工作。

可以在頂部的公式欄中完成此操作，還是需要通過宏完成此操作？

謝謝

Answer 1

選擇B，復制列，選擇Y，然后選擇“選擇性粘貼”，僅選擇公式即可

在您發表評論之后：

Private Sub Workbook_Open()
   Range("Y:Y").FormulaR1C1 = Range("B:B").FormulaR1C1
End Sub 

將完成這項工作（要放在ThisWorkbook中的宏）

在您發表第二條評論之后：

Sub Workbook_Open()
    On Error GoTo errLbl
    xlCalc = Application.Calculation
    Application.Calculation = xlCalculationManual ' stop calculation '
    Application.ScreenUpdating = False ' disable screen update '

    For Each c In Range("B:B")
        Range("Y" & c.Row).Formula = Replace(c.Formula, "A", "D")
        If c.Formula = vbNullString Then Exit For ' stop if "B" has no formula '
    Next

errLbl:       
    Application.ScreenUpdating = True ' enable screen update '
    Application.Calculation = xlCalc ' enable calculation back to where it was '
End Sub

Answer 2

這是解決方案

Sub Button1_Click（）暗淡為字符串

s = Range（“ b2”）。Formula

昏暗的res作為字符串res =替換（s，“ A”，“ x”）

MsgBox資源

結束子