Excel如何在列的所有單元格中替換公式的一部分

Question

我正在嘗試在Excel中將='Trial Balance'!E2+'Trial Balance'!E3替換為='Trial Balance'!C2+'Trial Balance'!C3 。

如何將列中所有行中的公式從“ E”更改為“ C”？

我寫了一個VB宏，但我認為這是錯誤的。 有人可以幫我改正嗎。

Sub RoundToZero2()
    For Each C In Worksheets("BalanceSheet").Range("BU8:BU103").Cells
        If E Then c.Value = C
    Next
End Sub

我還遇到了內置在excel公式中的SUBSTITUTE和REPLACE函數。 我還能用那些嗎？

Answer 1

用這個

Worksheets("BalanceSheet").Range("BU8:BU103").Replace "'!E","'!C"

Answer 2

只要您的公式中除了要替換的大寫字母“ E”之外沒有其他大寫字母“ E”。 這會做到的

Sub RoundToZero2()
    Dim formstr As String
    For Each c In Worksheets("BalanceSheet").Range("BU8:BU103").Cells
        formstr = c.Formula
        formstr = Replace(formstr, "!E", "!C", , , vbBinaryCompare)
        c.Formula = formstr
    Next
End Sub