Excel 在工作表之间复制值，但将最终结果切换为-/+；取决于原始值

我正在尝试编写一个代码，将表之间的值作为单个值从一个单元格复制到一个单元格，或作为一个单元格的和复制。困难在于尝试将最终结果转换为-/+。如果第1页上的值为正值，则在第2页上显示为负值；如果第1页上的值为负值，则在第2页上显示为正值。此外，如果值之和为负值，则将其显示为正值等

到目前为止，我已经把这些放在一起了，但我运气不太好。有人能告诉我我做错了什么吗

If Worksheets("sheet1").Range("E4").Value < 0 Then _
Worksheets("sheet1").Range("E4").Copy
Worksheets("sheet2").Range("G4").PasteSpecial xlPasteValues 'the answer        needs to be in +
Else
Worksheets("sheet1").Range("E4").Copy
Worksheets("sheet2").Range("G4").PasteSpecial xlPasteValues 'the answer nees to be in -


If WorksheetFunction.Sum(Worksheets("Sheet1").Range("E4") _
, Worksheets("Sheet1").Range("E6")) < 0 Then

Worksheets("sheet2").Range("G4") =    WorksheetFunction.Sum(Worksheets("Sheet1").Range("E4") _
, Worksheets("Sheet1").Range("E6")) 'the answer needs to be in +
Else
Worksheets("sheet2").Range("G4") = WorksheetFunction.Sum(Worksheets("Sheet1").Range("E4") _
, Worksheets("Sheet1").Range("E6")) 'the answer needs to be in -

如果工作表（“表1”）.范围（“E4”）.值<0，则_
工作表（“表1”）.范围（“E4”）.副本
工作表（“sheet2”）.范围（“G4”）.粘贴特殊xlPasteValues'答案需要在+
其他的
工作表（“表1”）.范围（“E4”）.副本
工作表（“sheet2”）.范围（“G4”）.粘贴特殊XLPaste值“答案必须在-
如果工作表function.Sum（工作表（“表1”）。范围（“E4”）_
，工作表（“表1”）。范围（“E6”）<0
工作表（“表2”）.范围（“G4”）=工作表函数.Sum（工作表（“表1”）.范围（“E4”）_
，工作表（“表1”）。范围（“E6”）“答案需要在+
其他的
工作表（“表2”）.范围（“G4”）=工作表函数.Sum（工作表（“表1”）.范围（“E4”）_
，工作表（“表1”）。范围（“E6”）“答案需要在-

您应该能够简单地从0中减去值，将正值翻转为负值，反之亦然

Sub flipSign()
    Dim ws2 As Worksheet

    Set ws2 = Worksheets("Sheet2")

    With Worksheets("Sheet1")
        ws2.Range("G4") = 0 - .Range("E4").Value
        ws2.Range("G4") = 0 - .Range("E6").Value
        ws2.Range("G4") = 0 - Application.Sum(.Range("E4, E6"))
    End With
End Sub

---

我想您的示例代码只是一个测试平台，您正计划更改目的地，但这应该可以让您开始了。

Jeeped，非常感谢。又短又甜。是的，这是一个试验台。实际文件有40张图纸，每张图纸上有几个参考单元格。