Ga naar hoofdinhoud

Hoe voeg ik waarden toe aan meerdere cellen in Excel?

Als u een waarde aan meerdere cellen in Excel wilt toevoegen, kunt u met de volgende methoden deze eenvoudig en snel verwerken:


pijl blauw rechts bel Voeg waarde toe aan meerdere cellen met VBA

Het gebruik van macro's kan veel herhaalde bewerkingen vergemakkelijken en ons werk gemakkelijker en sneller maken. Dat geldt ook voor de volgende macro.

Stap 1: Selecteer de cellen waaraan u een waarde wilt toevoegen.

Stap 2: Houd de knop ingedrukt ALT + F11 toetsen, en het opent het Microsoft Visual Basic for Applications-venster.

Stap 3: klik op Invoegen > Moduleen plak de volgende VBA in het modulevenster.

Sub Add2Formula ()
'Voeg 300 toe

Voor elke c in selectie
c. activeren
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Volgende c

End Sub

Stap 4: druk op de F5 toets om deze macro uit te voeren.

Opmerkingen:

1. Deze macro is alleen geldig voor cellen die geen formules bevatten.

2. Deze macro zal toevoegen 300 naar alle geselecteerde cellen. Als u een andere waarde wilt toevoegen, vervangt u de 300 met een andere waarde.


pijl blauw rechts bel Voeg waarde toe aan meerdere cellen met Kutools voor Excel

Kutools for Excel biedt ons een alternatieve, eenvoudig te gebruiken methode, en de bedieningstools kunnen ons helpen om eenvoudig waarde toe te voegen aan meerdere cellen.

Kutools for Excel bevat meer dan 80 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Profiteer nu.

Stap 1: Selecteer de cellen waaraan u dezelfde waarde wilt toevoegen.

Stap 2: klik op de Kutools > Werking > Bedieningstools .... Zie screenshot:

Stap 3: Selecteer de Toevoeging van de sectie Bewerking en voer de waarde in die u aan geselecteerde cellen wilt toevoegen. Zie screenshot:

Stap 4: Controleer het Maak formules optie.

Stap 5: klik op OK.

In Bedieningstools,
selecteer Optellen, voer 300 in en klik op OK.

Kutools voor Excel's Bedieningstools ondersteunt alle soorten wiskundige bewerkingen voor alle geselecteerde cellen samen:

  • Optellen: plus een gespecificeerde operand.
  • Aftrekken: trek de opgegeven operand af.
  • Vermenigvuldiging: elke waarde van cellen vermenigvuldigd met de operand.
  • Divisie: elke waarde van cellen gedeeld door de operand.
  • Exponentiatie: elke celwaarde drijft de operand aan.
  • Afronding: Rond elke waarde van de cel af op de decimale getallen (opgegeven operand).
  • Functie: past een functie toe op elke celwaarde.
  • Aangepast: maak een formule-achtige uitdrukking en pas deze toe op elke celwaarde.

Aanverwant artikel

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks a lot. It is working 馃挅
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations