Как преобразовать положительные числа в отрицательные в Excel?

Как быстро преобразовать все положительные числа или значения в отрицательные в Excel? Следующие методы позволят вам сделать это мгновенно.

Преобразование положительных чисел в отрицательные с помощью функции Вставить специально

Преобразование положительных чисел в отрицательные или наоборот с помощью Kutools для Excel

Преобразование положительных чисел в отрицательные с помощью кода VBA

Преобразование положительных чисел в отрицательные с помощью функции Вставить специально

Вы можете преобразовать положительные числа в отрицательные с помощью функции Вставить специально в Excel. Выполните следующие действия.

1. Введите число -1 в пустую ячейку и скопируйте его.

2.Выделите диапазон, который нужно изменить, щелкните по нему правой кнопкой мыши и в контекстном меню выберите Вставить специально, чтобы открыть диалоговое окно Вставить специально. См. снимок экрана:

3. Затем в разделе Вставить выберите параметр Все, а в поле Операция — Умножить.

4. Затем нажмите OK, и все положительные числа заменятся на отрицательные.

5. Наконец, если нужно, удалите число -1.

Изменение положительных чисел на отрицательные или наоборот с помощью Kutools для Excel

Вы также можете воспользоваться инструментом Kutools для Excel — функцией Изменить знак числа, чтобы быстро преобразовать все положительные числа в отрицательные.

Если у вас установлено Kutools для Excel, вы можете изменить положительные числа на отрицательные следующим образом:

1. Выделите диапазон, который нужно изменить.

2. Нажмите Kutools > Содержимое > Изменить знак числа, см. снимок экрана:

3. В диалоговом окне Изменить знак числа выберите опцию Изменить все положительные числа на отрицательные.

4. Затем нажмите OK или Применить. Все положительные числа будут преобразованы в отрицательные.

Преобразование положительных чисел в отрицательные с помощью кода VBA

С помощью кода VBA вы также можете превратить положительные числа в отрицательные — главное, уметь работать с VBA. Следуйте инструкции:

1. Выделите диапазон, который необходимо изменить.

2. Нажмите Разработчик > Visual Basic. Откроется новое окно Microsoft Visual Basic для приложений. Нажмите Вставка > Модуль и вставьте приведённый ниже код в модуль:

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. Нажмите Ok, и положительные значения в диапазоне «Выберите диапазон» мгновенно преобразуются в отрицательные.

Демонстрация: изменение положительных чисел на отрицательные или наоборот с помощью Kutools для Excel

Связанные статьи