This post will guide you how to **multiply or divide a range of cells by a number** in Excel. How do I multiply or divide entire range by the same number with VBA Macro in Excel.

Assuming that you have a list of data (A1:A5) that you want to multiply or divide the selected range of cells by a specified number (6). How to achieve it. You can use the Paste Special Feature to divide or multiply the selected range of cells by a number. Or you can use an excel VBA Macro to achieve the same result quickly.

Table of Contents

**Divide range by a number with Paste Special Feature**

**#1** insert a divisor number in a blank cell, such as: C1. And then press **Ctrl +C** shortcut.

**#2** select the range of cells that you want to divide values by the divisor number entered in the above steps, and Right click on the selected range, select **Paste Special** from the pop up menu list. The **Paste Special** dialog will open.

**#3** select the **Multiply** or **Divide** radio button, then click **OK** button.

**#4** let’s see the result.

**Divide range by a number with VBA**

You can also use an Excel VBA macro to divide a range of cells by a number or multiply a range of cells. You just need to do the following steps:

**#1** open your excel workbook and then click on “**Visual Basic**” command under **DEVELOPER** Tab, or just press “**ALT+F11**” shortcut.

**#2** then the “Visual Basic Editor” window will appear.

**#3 **click “**Insert**” ->”**Module**” to create a new module

**#4** paste the below VBA code into the code window. Then clicking “**Save**” button.

Sub DivideRangebyNumber() Dim R As Range Dim W As Range Dim i As Integer myTitle = "divide range by a number" Set W = Application.Selection Set W = Application.InputBox("Select a range of cells that you want to divide", myTitle, W.Address, Type:=8) i = Application.InputBox("type one number", myTitle, Type:=1) For Each R In W R.Value = R.Value / i Next End Sub

If you want to multiply a range of cells by a number, you can use the below VBA code:

Sub MultiplyRangebyNumber() Dim R As Range Dim W As Range Dim i As Integer myTitle = "multiply range by a number" Set W = Application.Selection Set W = Application.InputBox("Select a range of cells that you want to multipy", myTitle, W.Address, Type:=8) i = Application.InputBox("type one number", myTitle, Type:=1) For Each R In W R.Value = R.Value * i Next End Sub

**#5** back to the current worksheet, then run the above excel macro. Click **Run** button.

**#6** select a range of cells that you want to divide or multipy

**#7** type one number

**#8** Let’s see the result:

## Leave a Reply

You must be logged in to post a comment.