看起来你遇到的问题挺典型的——正数能正常转负，但负数没法转正，咱们从你提到的「负责符号翻转的最后三行代码」的常见逻辑问题入手，一步步排查：

1. 代码逻辑只处理了正数，遗漏了负数场景 #

最常见的问题是你的翻转代码只针对正数做了判断处理，完全跳过了负数的转换。比如如果你的代码是这样的：

For Each cell In TargetRange
    If cell.Value > 0 Then
        cell.Value = -cell.Value
    End If
Next cell

这种情况下，正数会被转成负数，但负数因为不满足>0的条件，会被直接跳过，自然不会变成正数。解决方法很简单：要么去掉判断直接给单元格值乘以-1（最简洁的方式）：

For Each cell In TargetRange
    cell.Value = -cell.Value
Next cell

要么补充判断覆盖所有非零数值：

For Each cell In TargetRange
    If IsNumeric(cell.Value) And cell.Value <> 0 Then
        cell.Value = -cell.Value
    End If
Next cell

2. 单元格格式导致的显示错觉 #

有时候数值已经转换成功，但特殊的单元格格式让你误以为没变化。比如如果原负数设置了用括号显示负数的格式（比如格式代码为(#,##0);(#,##0)），那即使你把-1转成了1，单元格还是会显示成(1)，看起来像是负数没改变。你可以选中单元格，右键查看「设置单元格格式」→「数字」选项卡，确认是不是用了特殊的负数显示规则。

3. 文本型数值的干扰 #

如果原表中的负数是以文本格式存储的（比如单元格左上角有绿色小三角标记），直接用-cell.Value可能会出问题——数值型的正数能正常转负，但文本型的负数（比如"-1"）乘以-1后可能会变成错误值，或者依然保持文本状态。这种情况下，需要先把文本转成数值再处理：

For Each cell In TargetRange
    If IsNumeric(cell.Value) Then
        cell.Value = -CDbl(cell.Value)
    End If
Next cell

4. 循环范围没覆盖到负数所在单元格 #

最后检查一下你的代码里，TargetRange是不是真的包含了所有需要翻转符号的单元格。比如如果你的范围只选中了正数所在的行/列，那负数所在的单元格根本没被遍历处理，自然不会发生变化。

内容的提问来源于stack exchange，提问作者J Doe