Hvordan kan du hurtigt ændre alle positive tal eller værdier til negative i Excel? Følgende metoder kan guide dig til hurtigt at ændre alle positive tal til negative i Excel.

Skift positive tal til negativ med funktionen Indsæt speciel

Skift positive tal til negativt eller omvendt med Kutools til Excel

Skift positive tal til negativ med VBA-kode

Skift positive tal til negativ med funktionen Indsæt speciel

Fantastiske! Brug af effektive faner i Excel som Chrome, Edge, Firefox og Safari!
Spar 50% af din tid, og reducer tusindvis af museklik for dig hver dag!

Du kan ændre positive tal til negative med Indsæt speciel funktion i Excel. Gør som følger.

1. Tryk på nummer -1 i en tom celle og kopiere den.

2. Fremhæv det område, du vil ændre, højreklik derefter og vælg Indsæt speciel fra genvejsmenuen for at åbne Indsæt speciel dialog boks. Se skærmbillede:

3. Vælg derefter Alle mulighed fra pastaog Gang fra Produktion.

4. Og klik derefter på OK, er alle de positive tal blevet ændret til negative tal.

5. Endelig kan du slette tallet -1, som du har brug for.

Skift positive tal til negativt eller omvendt med Kutools til Excel

Du kan også bruge Kutools til Excel's Skift værditegn værktøj til hurtigt at ændre alle positive tal til negative.

Hvis du har installeret Kutools til Excel, kan du ændre positive tal til negativ som følger:

1. Vælg det område, du vil ændre.

2. Klik Kutools > Indhold > Skift værditegn, se skærmbillede:

3. Og i Skift værditegn dialogboksen, vælg Skift alle positive værdier til negative valgmulighed.

4. Klik derefter på OK or Indløs. Og alle de positive tal er blevet konverteret til negative tal.

Skift positive tal til negativ med VBA-kode

Ved hjælp af VBA-kode kan du også ændre positive tal til negative, men du skal vide, hvordan du bruger en VBA. Benyt følgende trin:

1. Vælg det område, du vil ændre.

2. Klik Udvikler >Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Modulerog derefter kopiere og indsætte følgende koder i modulet:

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. Klik  knap for at køre koden, vises en dialogboks, hvor du kan vælge et interval, som du vil konvertere de positive værdier til negativt. Se skærmbillede:

4. Klik Ok, så konverteres de positive værdier i det valgte område til negativt med det samme.

Demo: Skift positive tal til negativt eller omvendt med Kutools til Excel

Relaterede artikler