Question

我正在尝试在Excel中将='Trial Balance'!E2+'Trial Balance'!E3替换为='Trial Balance'!C2+'Trial Balance'!C3。

如何更改＆＃39; E＆＃39;中列中所有行的公式？到＆＃39; C＆＃39;？

我写了一个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

只要您的公式中没有其他资本＆＃34; E＆＃34;除了您要替换的公式之外。这样做

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

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

2 个答案: