Vai al contenuto principale

Come aggiungere valori a più celle in Excel?

Se desideri aggiungere un valore a più celle in Excel, i seguenti metodi ti aiuteranno a elaborarlo facilmente e rapidamente:


freccia blu freccia destra Aggiungi valore a più celle con VBA

L'utilizzo delle macro può facilitare molte elaborazioni ripetute e rendere il nostro lavoro più facile e veloce. Così fa la seguente macro.

Passaggio 1: seleziona le celle a cui aggiungere un valore.

Passo 2: tieni premuto il tasto ALT + F11 e apre la finestra di Microsoft Visual Basic, Applications Edition.

Passo 3: fare clic inserire > Modulie incolla il seguente VBA nella finestra del modulo.

Sub Add2Formula ()
'Aggiungi 300

Per ogni c Nella selezione
c. attiva
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Successivo c

End Sub

Passo 4: premere il tasto F5 chiave per eseguire questa macro.

Note:

1. Questa macro è valida solo per le celle che non contengono formule.

2. Questa macro aggiungerà 300 a tutte le celle selezionate. Se desideri aggiungere un altro valore, sostituisci il file 300 con altro valore.


freccia blu freccia destra Aggiungi valore a più celle con Kutools per Excel

Kutools for Excel ci fornisce un metodo alternativo facile da usare ei suoi strumenti operativi possono aiutarci ad aggiungere facilmente valore a più celle.

Kutools for Excel include più di 80 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Scaricalo ora.

Passaggio 1: seleziona le celle a cui aggiungere lo stesso valore.

Passaggio 2: fare clic su Kutools > Funzionamento > Strumenti operativi .... Vedi screenshot:

Passo 3: selezionare il Aggiunta dalla sezione Operazione e inserisci il valore che aggiungerai alle celle selezionate. Vedi screenshot:

Passaggio 4: controlla il file Crea formule opzione.

Passo 5: fare clic OK.

In Strumenti operativi,
selezionare Addition, immettere 300 e fare clic su OK.

Kutools per Excel Strumenti operativi supporta tutti i tipi di operazioni matematiche su tutte le celle selezionate insieme:

  • Aggiunta: più un operando specificato.
  • Sottrazione: sottrae l'operando specificato.
  • Moltiplicazione: ogni valore di celle moltiplicato per l'operando.
  • Divisione: ogni valore di celle diviso per l'operando.
  • Esponenziazione: ogni valore della cella alimenta l'operando.
  • Arrotondamento: arrotonda ogni valore della cella ai numeri decimali (operando specificato).
  • Funzione: applica una funzione a ciascun valore della cella.
  • Personalizzato: crea un'espressione simile a una formula e applica a ciascun valore della cella.

Articolo correlato

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

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