如何在 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 将正数转换为负数或反之

相关文章