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

如何在 Excel 中快速将所有正数或数值转换为负数？以下方法将助您高效完成此操作。

使用选择性粘贴函数将正数转换为负数

使用 Kutools for Excel 将正数转换为负数或反之

使用 VBA 代码将正数转换为负数

使用选择性粘贴函数将正数转换为负数

您可以使用 Excel 中的选择性粘贴功能将正数转换为负数。操作步骤如下：

1. 在空白单元格中输入数字 -1 并复制。

2. 选中要更改的区域，右键单击，然后从上下文菜单中选择选择性粘贴，即可打开选择性粘贴对话框。参见截图：

3. 然后从全部选项中选择粘贴，并选择位于运算中的乘。

4. 然后单击确定，即可将所有正数更改为负数。

5. 最后，您可以根据需要删除数字 -1.

使用 Kutools for Excel 将正数转换为负数或反之

您也可以使用 Kutools for Excel 的修改数字的符号工具，快速将所有正数转为负数。

如果您已安装 Kutools for Excel，可按以下步骤将正数更改为负数：

1. 选择要修改的区域。

2. 单击 Kutools > 内容 > 修改数字的符号，参见截图：

3. 在修改数字的符号对话框中，选择将所有正数改为负数选项。

4. 然后单击确定或应用，所有正数即被转换为负数。

使用 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 Sub

3. 单击按钮运行代码，将弹出对话框，供您选择要将正值转换为负值的区域。参见截图：

4. 单击确定，即可立即将所选区域中的正值转换为负值。

演示：使用 Kutools for Excel 将正数更改为负数或反之

相关文章