Hur kan du snabbt ändra alla positiva siffror eller värden till negativa i Excel? Följande metoder kan vägleda dig att snabbt ändra alla positiva siffror till negativa i Excel.

Ändra positiva tal till negativa med funktionen Klistra in special

Ändra positiva siffror till negativa eller vice versa med Kutools för Excel

Ändra positiva siffror till negativa med VBA-kod

Ändra positiva tal till negativa med funktionen Klistra in special

Du kan ändra positiva siffror till negativa med Klistra in special funktion i Excel. Gör så här.

1. Tryck på nummer -1 i en tom cell och kopiera den.

2. Markera det intervall som du vill ändra, högerklicka och välj Klistra in special från snabbmenyn för att öppna Klistra in special dialog ruta. Se skärmdump:

3. Välj sedan Alla alternativ från Klistra inoch Multiplicera från Drift.

4. Och klicka sedan på OKhar alla positiva siffror ändrats till negativa siffror.

5. Äntligen kan du radera numret -1 efter behov.

Ändra positiva siffror till negativa eller vice versa med Kutools för Excel

Du kan också använda Kutools för ExcelÄr Ändra tecken på värden verktyg för att snabbt ändra alla positiva siffror till negativa.

Om du har installerat Kutools för Excel, kan du ändra positiva siffror till negativa enligt följande:

1. Välj det intervall du vill ändra.

2. Klicka Kutools > Innehåll > Ändra tecken på värden, se skärmdump:

3. Och i Ändra tecken på värden dialogrutan väljer du Ändra alla positiva värden till negativa alternativ.

4. Klicka sedan OK or Ansök. Och alla positiva siffror har konverterats till negativa siffror.

Ändra positiva siffror till negativa med VBA-kod

Med VBA-kod kan du också ändra positiva siffror till negativa, men du måste veta hur du använder en VBA. Gör så här:

1. Välj det intervall som du vill ändra.

2. Klicka Utvecklare >Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulernaoch kopiera och klistra sedan in följande koder i modulen:

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. Klicka  för att köra koden, visas en dialogruta där du kan välja ett område som du vill konvertera de positiva värdena till negativa. Se skärmdump:

4. Klicka Ok, sedan konverteras de positiva värdena i det valda intervallet till negativa på en gång.

Demo: Ändra positiva siffror till negativa eller vice versa med Kutools för Excel

Relaterade artiklar