Excelですべての正の数または値を負にすばやく変更するにはどうすればよいですか？ 次の方法は、Excelですべての正の数を負にすばやく変更するためのガイドになります。

特殊貼り付け機能で正の数を負に変更する

Kutools for Excelを使用して、正の数を負の数に、またはその逆に変更します

VBAコードで正の数を負に変更する

特殊貼り付け機能で正の数を負に変更する

すばらしい！ Chrome、Edge、Firefox、Safari など Excel で効率的なタブを使用する!
時間の50％を節約し、毎日何千ものマウスクリックを減らしましょう！

で正の数を負に変更できます 貼り付け Excelで機能します。 次のようにしてください。

1。 タップ番号 -1 空白のセルに入れてコピーします。

2. 変更する範囲を強調表示し、右クリックして選択します 貼り付け コンテキストメニューから 貼り付け ダイアログボックス。 スクリーンショットを参照してください：

3。 次に、 すべて オプションから 貼り付ける, 掛ける 操作.

4。 そして、 OK、すべての正の数が負の数に変更されました。

5。 最後に、必要に応じて番号-1を削除できます。

Kutools for Excelを使用して、正の数を負の数に、またはその逆に変更します

使用することもできます Kutools for Excelさん 値の符号を変更する すべての正の数を負にすばやく変更するツール。

あなたがインストールしている場合 Kutools for Excel、次のように正の数を負に変更できます。

1。 変更する範囲を選択します。

2に設定します。 OK をクリックします。 クツール > コンテンツ > 値の符号を変更する、スクリーンショットを参照してください：

3。 とで 値の符号を変更する ダイアログボックスで すべての正の値を負に変更します オプションを選択します。

4。 次に、をクリックします OK or 申し込む。 そして、すべての正の数は負の数に変換されています。

VBAコードで正の数を負に変更する

VBAコードを使用して、正の数を負の数に変更することもできますが、VBAの使用方法を知っている必要があります。 次の手順で実行してください。

1。 変更する範囲を選択します。

2に設定します。 OK をクリックします。 Developer >ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual 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 をクリックします。 Ok、次に、選択した範囲の正の値が一度に負に変換されます。

デモ：Kutools for Excelを使用して、正の数を負の数に、またはその逆に変更します

関連記事