How to divide a range of cells by a number in Excel?

Sometimes, we may need to modify a range of cells in Excel quickly. For example, I have a range of cells which containing the prices of a group of products, and I want to divide all the prices by 2, and now here comes the question, how can I quickly divide a range of cells by a number?

Divide a range of cells by a number with Paste Special function

Divide a range of cells by a number with VBA code

Quickly divide a range of cells by a number with Kutools for Excel


Quickly divide all cells in a range by a certain number in bulk in Excel

Click Kutools > More > Operation. The Kutools for Excel's Operation Tools can help you quickly divide all cells in a specified range by a certain number in Excel. See below screenshot:


arrow blue right bubble Divide a range of cells by a number with Paste Special function


For example, I will divide all the cells by a number 15, using Paste Special function of Excel, you can accomplish this task with the following steps:

1. Insert the divisor number such as 15 into an empty cell and copy it.

2. Highlight the range that you want to divide all numbers by 15 and right-click, choose Paste Special from the menu.

3. In the Paste Special dialog box, click All option in the Paste section, select the Divide option in the Operation section, and finally click the OK button.

4. Delete the number 15 you have entered before.

Now the range of cells has been divided by 15 in bulk. See screenshot:


arrow blue right bubble Divide a range of cells by a number with VBA code

With the VBA code, you can also divide a range cells by a number automatically.

1. Select the range you want it to be divided by a number.

2. Click Developer > Visual Basic, a new Microsoft Visual Basic for applications window will display, click Insert > Module, and then input the following code in the Module:

VBA: Divide a range of cells by a number.

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. Then click doc-divide-5 button to run the code. In a popping up dialog box, please select the range with numbers you want to divide by a certain number, and then click the OK button. See screenshot:

4. In the second popping up dialog box, enter the divisor number, and then click the OK button. See screenshot:

Now all numbers in selected range are divided by number 15.


arrow blue right bubble Quickly divide a range of cells by a number with Kutools for Excel

Perhaps the VBA code is somewhat difficult for you, is there an easy and quick method to deal with this work?

Kutools for Excel : with more than 120 handy Excel add-ins, free to try with no limitation in 60 days.

1. Select the range with numbers you want to divide by a certain number. and then click Kutools > More > Operation, see screenshot:

3. In the Operation Tools dialog box, select Division in the Operation box, input the divisor number such as 15 in the Operand box. And you can see the results from the Preview Pane. And finally click the OK or Apply button. See screenshot:

Note: If you want to create formulas as well, please check Create formulas option. If the selected cells include formulas, and you don’t want to divide the calculated results of the formula, please check Skip formula cells option.

If you want to have a free trial of this utility, please go to free download the software first, and then go to apply the operation according above steps.


Related articles:


Recommended Productivity Tools

Office Tab

gold star1 Bring handy tabs to Excel and other Office software, just like Chrome, Firefox and new Internet Explorer.

Kutools for Excel

gold star1 Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day!

gold star1 200 New Features for Excel, Make Excel Much Easy and Powerful:

  • Merge Cell/Rows/Columns without Losing Data.
  • Combine and Consolidate Multiple Sheets and Workbooks.
  • Compare Ranges, Copy Multiple Ranges, Convert Text to Date, Unit and Currency Conversion.
  • Count by Colors, Paging Subtotals, Advanced Sort and Super Filter,
  • More Select/Insert/Delete/Text/Format/Link/Comment/Workbooks/Worksheets Tools...

Screen shot of Kutools for Excel

btn read more      btn download     btn purchase

Add comment


Security code
Refresh