Jak szybko zmienić wszystkie liczby dodatnie lub wartości na ujemne w programie Excel? Poniższe metody mogą pomóc w szybkiej zmianie wszystkich liczb dodatnich na ujemne w programie Excel.

Zmień liczby dodatnie na ujemne za pomocą funkcji Wklej specjalnie

Zmień liczby dodatnie na ujemne lub odwrotnie za pomocą Kutools for Excel

Zmień liczby dodatnie na ujemne za pomocą kodu VBA

Zmień liczby dodatnie na ujemne za pomocą funkcji Wklej specjalnie

Możesz zmienić liczby dodatnie na ujemne za pomocą wklej specjalnie funkcja w programie Excel. Wykonaj następujące czynności.

1. Wybierz numer -1 w pustej komórce i skopiuj go.

2. Podświetl zakres, który chcesz zmienić, a następnie kliknij prawym przyciskiem myszy i wybierz wklej specjalnie z menu kontekstowego, aby otworzyć plik wklej specjalnie Okno dialogowe. Zobacz zrzut ekranu:

3. Następnie wybierz Wszystkie kategorie opcja z makaron, Mnożyć z Działanie.

4. A następnie kliknij OKwszystkie liczby dodatnie zostały zamienione na liczby ujemne.

5. W końcu możesz usunąć liczbę -1, jak potrzebujesz.

Zmień liczby dodatnie na ujemne lub odwrotnie za pomocą Kutools for Excel

Można również użyć Kutools dla programu Excel'S Zmień znak wartości narzędzie do szybkiej zmiany wszystkich liczb dodatnich na ujemne.

Jeśli masz zainstalowany Kutools dla programu Excel, możesz zmienić liczby dodatnie na ujemne w następujący sposób:

1. Wybierz zakres, który chcesz zmienić.

2. Kliknij Kutools > Treść > Zmień znak wartościzobacz zrzut ekranu:

3. I w Zmień znak wartości okno dialogowe, wybierz Zmień wszystkie wartości dodatnie na ujemne opcja.

4. Następnie kliknij OK or Aplikuj. Wszystkie liczby dodatnie zostały zamienione na liczby ujemne.

Zmień liczby dodatnie na ujemne za pomocą kodu VBA

Używając kodu VBA, możesz również zmienić liczby dodatnie na ujemne, ale musisz wiedzieć, jak używać VBA. Wykonaj następujące kroki:

1. Wybierz zakres, który chcesz zmienić.

2. Kliknij Deweloper >Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Moduła następnie skopiuj i wklej w module następujące kody:

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. Kliknij  aby uruchomić kod, pojawi się okno dialogowe, w którym możesz wybrać zakres, w którym chcesz przekonwertować wartości dodatnie na ujemne. Zobacz zrzut ekranu:

4. Kliknij Ok, wartości dodatnie w wybranym zakresie są od razu konwertowane na ujemne.

Demo: Zmień liczby dodatnie na ujemne lub odwrotnie za pomocą Kutools for Excel

Powiązane artykuły