Ir para o conteúdo principal

Como adicionar valores a várias células no Excel?

Se você deseja adicionar um valor a várias células no Excel, os métodos a seguir o ajudarão a processá-lo de maneira fácil e rápida:


seta azul bolha direita Adicione valor a várias células com VBA

O uso de macros pode facilitar muitos processamentos repetidos e tornar nosso trabalho mais fácil e rápido. O mesmo acontece com a macro a seguir.

Etapa 1: Selecione as células às quais você adicionará um valor.

Etapa 2: Mantenha pressionado o botão ALT + F11 e abre a janela Microsoft Visual Basic for Applications.

Etapa 3: clique inserção > Móduloe cole o seguinte VBA na janela do módulo.

Sub Add2Formula ()
'Adicionar 300

Para cada c na seleção
c.Ativar
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Próximo c

End Sub

Etapa 4: pressione o F5 chave para executar esta macro.

Notas:

1. Esta macro é válida apenas para células que não contêm fórmulas.

2. Esta macro irá adicionar 300 para todas as células selecionadas. Se você quiser adicionar outro valor, substitua o 300 com outro valor.


seta azul bolha direita Adicione valor a várias células com Kutools para Excel

Kutools for Excel nos fornece um método alternativo fácil de usar e suas Ferramentas de Operação podem nos ajudar a agregar valor a várias células facilmente.

Kutools for Excel inclui mais de 80 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Obtê-lo agora.

Etapa 1: selecione as células às quais você adicionará o mesmo valor.

Etapa 2: clique no botão Kutools > Divisão de > Ferramentas de operação .... Veja a imagem:

Etapa 3: selecione o Adição na seção Operação e insira o valor que você adicionará às células selecionadas. Veja a imagem:

Etapa 4: verifique o Crie fórmulas opção.

Etapa 5: clique OK.

Em Ferramentas de Operação,
selecione Adição, insira 300 e clique em OK.

Kutools para Excel's Ferramentas de operação suporta todos os tipos de operação matemática para todas as células selecionadas juntas:

  • Adição: mais um operando especificado.
  • Subtração: subtrai o operando especificado.
  • Multiplicação: Cada valor das células multiplicado pelo operando.
  • Divisão: Cada valor das células dividido pelo operando.
  • Exponenciação: Cada valor de célula energiza o operando.
  • Arredondamento: Arredonda cada valor da célula para os números decimais (operando especificado).
  • Função: aplica uma função a cada valor da célula.
  • Personalizado: crie uma expressão semelhante a uma fórmula e aplique a cada valor da célula.

Artigo relacionado

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

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