如何用VBA抓取单元格内的公式，并引用该公式进行运算

Question

我想做一个宏，使当前单元格的公式或数字取相反数（负数），例如如果单元格公式为A1-A2，则使用该宏后，其公式变为A2-A1，或-（A1-A2）。因此我想的是
If numCell.Value <> 0 Then
numCell.Formula = numCell.Formula * (-1)
End if
但是如果单元格中是数字可以用，如果是公式就报错

Answer 1

参考代码如下：

Sub test()
Dim I, C As Range
For Each C In Range("B1:B2")
  If C.HasFormula Then
    C.Formula = "=-" & Replace(C.Formula, "=", "")
  End If
Next
End Sub

 补充一下，既然用VBA了，那就不建议用函数啦。。。。。限制较多。928531376

Answer 2

excell单元格的函数，与vba的函数是两个系统，不一样的