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

相關文章