Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in


How to add values to multiple cells in Excel?

If you want to add a value to multiple cells in Excel, the following methods will help you process it easily and quickly:

arrow blue right bubble Add Value to multiple cells with VBA

Using macros can ease many repeated processing, and make our work easier and faster. So does the following macro.

Step 1: Select the cells that you will add a value to.

Step 2: Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

Step 3: Click Insert > Module, and paste the following VBA in the Module Window.

Sub Add2Formula()
' Add 300

For Each c In Selection
ActiveCell.FormulaR1C1 = "= " & ActiveCell.Formula & "+300"
Next c

End Sub

Step 4: Press the F5 key to run this macro.


1. This macro is only valid for cells containing no formulas within them.

2. This macro will add 300 to all selected cells. If you want to add other value, please replace the 300 with other value.

arrow blue right bubble Add value to multiple cells with Kutools for Excel

Kutools for Excel provides us with an alternate easy-to-use method, and its Operation Tools can help us add value to multiple cells easily.

Kutools for Excel includes more than 80 handy Excel tools. Free to try with no limitation in 30 days. Get it Now.

Step 1: Select the cells that you will add the same value to.

Step 2: Click the Kutools > Operation > Operation Tools …. See screenshot:

Step 3: Select the Addition from Operation section, and enter the value you will add to selected cells. See screenshot:

Step 4: Check the Create formulas option.

Step 5: Click OK.

In Operation Tools,
select Addition, enter 300, and click OK.

Kutools for Excel's Operation Tools supports all kinds of mathematical operation to all selected cells together:

  • Addition: Plus a specified operand.
  • Subtraction: Subtract specified operand.
  • Multiplication: Each value of cells multiplied by the operand.
  • Division: Each value of cells divided by the operand.
  • Exponentiation: Each value of cell power the operand.
  • Rounding: Round each value of cell to the decimal numbers (specified operand).
  • Function: Applies a function to each value of cell.
  • Custom: Create a formula-like expression and apply to each value of cell.

Related Article

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 star1Amazing! Increase your productivity in 5 minutes. Don't need any special skills, save two hours every day!

gold star1300 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

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Joe Riter · 1 years ago
    If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:

    Sub Add2Formula()
    ' Add a number
    Dim formulae As String
    Dim a_number As Double

    a_number = InputBox("what number to increment")

    For Each cell In Selection
    formulae = ActiveCell.Formula
    ' gets rid of formula non-essentials that could cause errors
    formulae = Replace(formulae, "'", "")
    formulae = Replace(formulae, "=", "")

    If formulae = "" Then
    ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
    ActiveCell.Formula = "= " & formulae & "+" & a_number
    End If
    Next cell

    End Sub

    This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Hum3 · 2 years ago
    How can I get this VBA formula to skip blank and text cells? Thanks
  • To post as a guest, your comment is unpublished.
    sharfudheen · 3 years ago
    sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
  • To post as a guest, your comment is unpublished.
    Fazlan · 3 years ago
    this tool is so useful and can trust the product.
  • To post as a guest, your comment is unpublished.
    Alan · 4 years ago
    any reply? will this site answer our enquiry?