如何在 Excel 中将正数转换为负数？

使用 VBA 代码将正数转换为负数使用 VBA 代码，您也可以将正数转换为负数，但您必须知道如何使用 VBA。请按照以下步骤操作：

1. 选择要更改的区域。

2. 单击 开发工具 > Visual Basic，将显示一个新的 Microsoft Visual Basic for Applications 窗口，单击 插入 > 模块，然后将以下代码复制并粘贴到模块中：

Sub ChangeToNegative()

'Updateby Extendoffice

Dim rng As Range

Dim WorkRng As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)

For Each rng In WorkRng

xValue = rng.Value

If xValue > 0 Then

rng.Value = xValue * -1

End If

Next

End Sub3. 单击 按钮运行代码，会弹出一个对话框供您选择要将正值转换为负值的范围。参见截图：

4. 单击“确定”，然后所选范围内的正值立即转换为负值。