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

場合によっては、Excel でセル範囲を素早く修正する必要が生じることもあるでしょう。たとえば、商品価格のリストがあり、すべての価格を2 で割りたいとき、どうすれば効率よく処理できるでしょうか？このチュートリアルでは、セル範囲を数値で割るためのステップ・バイ・ステップの方法をご紹介します。それぞれの方法を詳しく見ていきましょう。

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

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

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

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

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

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 ボタンをクリックしてください。スクリーンショットを参照してください：

2 つ目のダイアログボックスで除数を入力し、［OK］ボタンをクリックしてください。スクリーンショットをご参照ください。

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

デモ：Kutools for Excel でセル範囲を数値で素早く割る

関連記事