如何在 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 將正數轉換為負數或反之

相關文章