Log in  \/ 
x
or
x
x
Register  \/ 
x

or

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:

Office Tab Enable Tabbed Editing and Browsing in Office, and Make Your Work Much Easier...
Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%
  • Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
  • More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
  • Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
  • Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
  • Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
  • Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
  • More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.

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
c.Activate
ActiveCell.FormulaR1C1 = "= " & ActiveCell.Formula & "+300"
Next c

End Sub

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

Notes:

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


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest
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 · 2 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
    cell.Activate
    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
    Else
    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 · 3 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 · 4 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 · 4 years ago
    this tool is so useful and can trust the product.
  • To post as a guest, your comment is unpublished.
    Alan · 5 years ago
    any reply? will this site answer our enquiry?
  • To post as a guest, your comment is unpublished.
    Desmond · 5 years ago
    Dear Expert
    Have a question here. How to increase age automatically for each year?

    Thanks
  • To post as a guest, your comment is unpublished.
    Desmond · 5 years ago
    Add Value to multiple cells with VBA's techque is very useful

    Thanks
  • To post as a guest, your comment is unpublished.
    jorawar singh · 6 years ago
    sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem