如何在Excel中快速将所有正数或值更改为负数？ 以下方法可以指导您在Excel中快速将所有正数更改为负数。

使用选择性粘贴功能将正数更改为负数

使用 Kutools for Excel 将正数更改为负数，反之亦然

使用VBA代码将正数更改为负数

使用选择性粘贴功能将正数更改为负数

惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Edge、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！

您可以使用将正数更改为负数 选择性粘贴 Excel中的功能。 请执行以下操作。

1。 分接头号 -1 在空白单元格中并将其复制。

2. 突出显示要更改的范围，然后单击鼠标右键并选择 选择性粘贴 从上下文菜单中打开 选择性粘贴 对话框。 看截图：

3。 然后选择 所有类型 选项从 酱及 乘 来自 操作.

4。 然后点击 OK，所有正数已更改为负数。

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

使用 Kutools for Excel 将正数更改为负数，反之亦然

您还可以使用 Kutools for Excel“ 改变价值观 快速将所有正数更改为负数的工具。

如果你已经安装 Kutools for Excel，您可以将正数更改为负，如下所示：

1。 选择您要更改的范围。

2。 点击 库工具 > 内容 > 改变价值观，请参见屏幕截图：

3. 而在 改变价值观 对话框中选择 将所有正值更改为负值 选项。

4。 然后点击 OK or 使用。 并且所有正数都已转换为负数。

使用VBA代码将正数更改为负数

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

1。 选择您要更改的范围。

2。 点击 开发商 >Visual Basic中，一个新的 适用于应用程序的Microsoft Visual Basic 将显示一个窗口，单击 插页 > 模块然后将以下代码复制并粘贴到模块中：

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。 点击 Ok，然后将所选范围内的正值立即转换为负值。

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

相关文章