Excelでセル範囲を数値で割るにはどうすればよいですか？

時には、Excelでセルの範囲を迅速に変更する必要があるかもしれません。例えば、製品価格のリストがあり、すべての価格を2で割りたい場合、これを効率的に行うにはどうすればよいでしょうか？このチュートリアルでは、数値でセルの範囲を割るためのステップバイステップの方法を提供します。それぞれの方法について詳しく見ていきましょう。

特殊貼り付け機能を使用してセルの範囲を数値で割る

Kutools for Excelを使用して素早くセルの範囲を数値で割る

VBAコードを使用してセルの範囲を数値で割る

特殊貼り付け機能を使用してセルの範囲を数値で割る

例えば、数値15で全てのセルを割ります。「特殊貼り付け」機能を使用して、次の手順でこのタスクを完了できます：

1. 空のセルに15などの除数を挿入し、コピーします。

2. 15で割りたい範囲を選択し、右クリックしてメニューから「特殊貼り付け」を選択します。

3. 「特殊貼り付け」ダイアログボックスで、「貼り付け」セクションの「すべて」オプションをクリックします。

4. 先ほど入力した15という数字を削除します。

これで、セルの範囲が15で割られました。スクリーンショットをご覧ください：

Kutools for Excelを使用して素早くセルの範囲を数値で割る

もし特殊貼り付けの方法が少し難しいと感じるなら、もっと簡単で速い方法はありますか？はい、Kutools for Excelの「計算ツール」機能を使えば、数秒以内にセルの範囲を数値で割ることができます！

1. 特定の数値で割りたい範囲を選択し、「Kutools」＞「その他」＞「計算ツール」をクリックします。スクリーンショットをご覧ください：

3. 「計算ツール」ダイアログボックスで、「計算」ボックスで「除算」を選択し、「オペランド」ボックスに「15」などの除数を入力します。「プレビュー」ウィンドウで結果を見ることができます。最後に「OK」または「適用」ボタンをクリックしてください。スクリーンショットをご覧ください：

VBAコードを使用してセルの範囲を数値で割る

VBAコードを使用すると、セルの範囲を自動的に数値で割ることもできます。

1. 数値で割りたい範囲を選択します。

2. 「開発」＞「Visual Basic」をクリックすると、新しい「Microsoft Visual Basic for Applications」ウィンドウが表示されます。「挿入」＞「モジュール」をクリックし、次にモジュールに以下のコードを入力します：

VBA: セルの範囲を数値で割る

Sub DivisionNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Division num", xTitleId, Type:=1)
For Each Rng In WorkRng
    Rng.Value = Rng.Value / xNum
Next
End Sub

3. 次にクリックします  コードを実行するボタンを押します。ポップアップするダイアログボックスで、特定の数値で割りたい範囲を選択し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

4. 次に表示されるダイアログボックスで、除数を入力し、「OK」ボタンをクリックします。スクリーンショットをご覧ください：

これで、選択した範囲内のすべての数値が15で割られました。

デモ: Kutools for Excelを使用して素早くセルの範囲を数値で割る

関連記事