反转 Excel 单元格和公式中的 + 和 -、< 和 > 符号

Question

我有一个巨大的 Excel 2016 工作簿，其中（出于财务原因）所有收入都表示为负数，所有成本都表示为正数。

我需要：

• 反转所有工作簿内容中的 + 和 - 符号。
• 反转所有工作簿公式中的 > 和

我不能只使用与-1 相乘的“特殊粘贴”，因为虽然这种方法适用于单元格的值，但它不适用于公式的文本，并且它不会反转 + 和 - 符号，也不是公式中每个数字的 符号。

例如，假设我的单元格A3 的值为-150，单元格B4 的值为20。

我有像=IF(-A3< B4,A3*-5,A3*2) 这样的公式。

我需要将单元格A3 变为+150，并将单元格B4 变为-20。

我需要将公式变为=IF(-A3>B4,A3*5,A3*-2)。

我担心我应该使用某种 VBA 代码，但坦率地说，我对此一无所知。 有人能帮帮我吗？

非常感谢。

Answer 1

你可以试试这样的：

Sub Replacement()
Dim rng, c As Range
Dim fml As String
'set it to the range you want
Set rng = Range("A1:C4")

For Each c In rng

    If c.HasFormula Then
        'if cell contains formula, then...
        fml = c.formula
        fml = fml & "*(-1)" 'flip the sign
        fml = Replace(fml, "<", "~!@~") 'change temporarily to some unique string
        fml = Replace(fml, ">", "<")
        fml = Replace(fml, "~!@~", ">") 'replace temporary string to character we want
        c.formula = fml
        Else
            'if it's value, just multiply by -1
            c.Value = c.Value * -1
        End If

    Next c

End Sub