Excel如何replace列中所有单元格中的一部分公式

我试图在Excel中replace='Trial Balance'!E2+'Trial Balance'!E3 ='Trial Balance'!C2+'Trial Balance'!C3

如何将列中所有行中的公式从“E”更改为“C”？

我写了一个VBmacros，但我认为这是错误的。 有人可以为我纠正它。

 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”在你想要replace的公式中。 这将做到这一点

 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