Hoppa till huvudinnehåll

Hur lägger jag till värden i flera celler i Excel?

Om du vill lägga till ett värde i flera celler i Excel hjälper följande metoder dig att bearbeta det enkelt och snabbt:

pil blå höger bubbla Lägg till värde till flera celler med VBA

Att använda makron kan underlätta många upprepade processer och göra vårt arbete enklare och snabbare. Så gör följande makro.

Steg 1: Välj de celler som du ska lägga till ett värde till.

Steg 2: Håll ner ALT + F11 nycklar och det öppnar Microsoft Visual Basic for Applications-fönstret.

Steg 3: Klicka Insert > Modulernaoch klistra in följande VBA i modulfönstret.

Sub Add2Formula ()
Lägg till 300

För varje c i urval
c.Aktivera
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Nästa c

End Sub

Steg 4: Tryck på F5 för att köra detta makro.

Anmärkningar:

1. Detta makro är endast giltigt för celler som inte innehåller några formler.

2. Detta makro kommer att läggas till 300 till alla valda celler. Om du vill lägga till annat värde, byt ut 300 med annat värde.

pil blå höger bubbla Lägg till värde till flera celler med Kutools för Excel

Kutools för Excel ger oss en alternativ lättanvänd metod, och dess driftsverktyg kan hjälpa oss att enkelt tillföra värde till flera celler.

Kutools för Excel innehåller mer än 80 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta den nu.

Steg 1: Välj cellerna som du ska lägga till samma värde till.

Steg 2: Klicka på Kutools > Drift > Driftverktyg .... Se skärmdump:

Steg 3: Välj Dessutom från avsnittet Operation och ange det värde du kommer att lägga till valda celler. Se skärmdump:

Steg 4: Kontrollera Skapa formler alternativ.

Steg 5: Klicka OK.

I driftsverktyg,
välj Tillägg, ange 300 och klicka på OK.

Kutools för Excel Driftverktyg stöder alla typer av matematisk operation till alla valda celler tillsammans:

  • Tillägg: Plus en angiven operand.
  • Subtraktion: Subtrahera specificerad operand.
  • Multiplikation: Varje cellvärde multiplicerat med operand.
  • Division: Varje cellvärde dividerat med operand.
  • Exponentiering: Varje cellvärde driver operanden.
  • Avrundning: Runda varje cellvärde till decimaltal (angiven operand).
  • Funktion: Tillämpar en funktion på varje cellvärde.
  • Anpassad: Skapa ett formelliknande uttryck och tillämpas på varje cellvärde.

Relaterad artikel

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup  |   VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar   |  Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler   |  Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser:  12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Comments (9)
No ratings yet. Be the first to rate!
Taher
Taher
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
Reply
0
0
Joe Riter
Joe Riter
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.
Reply
0
0
Hum3
Hum3
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
Reply
0
0
sharfudheen
sharfudheen
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
Reply
0
0
Fazlan
Fazlan
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
Reply
0
0
Alan
Alan
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
Reply
0
0
Desmond
Desmond
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
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
Reply
0
0
jorawar singh
jorawar singh
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations