KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como somar todos os dígitos de um número no Excel?

AutorXiaoyang Data de Modificação

Se tiver uma célula com um valor e quiser somar todos os seus dígitos — por exemplo, se a célula contiver 12345 e pretender calcular 1+2+3+4+5 para obter 15 —, existem boas formas de somar todos os dígitos de um número no Excel?


Some todos os dígitos de um número numa célula com fórmulas

Em vez de somar os dígitos manualmente, um a um, as fórmulas seguintes permitem-lhe obter rapidamente a soma dos dígitos contidos numa célula.

1. Introduza ou copie qualquer uma das seguintes fórmulas para uma célula vazia e obtenha o resultado:

=SUMPRODUCT(1*MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))
=SUM(INDEX(1*(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)),,))

2. Depois, prima a tecla Enter para obter o resultado, selecione a célula C2 e arraste a alça de preenchimento até ao intervalo onde pretende aplicar esta fórmula. Obterá assim a soma dos dígitos de cada número nas células. Veja a imagem:

Fórmula introduzida e resultado apresentado

Notas:

  • Nas fórmulas acima, A2 é a célula que contém o número cujos dígitos pretende somar.
  • Se o número contiver um sinal negativo ou um ponto decimal, as fórmulas devolvem um erro #VALOR!

Some todos os dígitos de um número numa célula com uma Função Definida pelo Utilizador

Para somar todos os dígitos de um número numa célula, o código VBA seguinte também pode ajudá-lo.

1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Somar todos os dígitos de um número numa célula

 Function SumDigits(Number As String) As Integer
'Updateby Extendoffice
Dim x As Integer, C As String
For x = 1 To Len(Number)
C = Mid(Number, x, 1)
If IsNumeric(C) Then SumDigits = SumDigits + C
Next
End Function

3. Depois, guarde e feche este código, regresse à folha de cálculo e introduza a fórmula =SumDigits(A2) numa célula vazia. Em seguida, arraste a alça de preenchimento para as células onde pretende aplicar esta fórmula e obterá o seguinte resultado:

Fórmula definida pelo utilizador introduzida e resultado apresentado


Some todos os dígitos de um número numa célula com uma funcionalidade fácil

Aqui, posso também mencionar uma ferramenta útil – Kutools para Excel, com a sua função Soma de todos os números em uma célula, que lhe permite somar rapidamente todos os dígitos de um número.

Nota:Para aplicar esta Soma de todos os números em uma célula, deverá primeiro transferir o Kutools para Excel, e depois aplicar a funcionalidade de forma rápida e fácil.

Após instalar o Kutools para Excel, proceda da seguinte forma:

1. Clique numa célula vazia onde deseja exibir o resultado.

2. Em seguida, clique em Kutools > Assistente de Fórmulas > Assistente de Fórmulas. Veja a imagem:

Opção Assistente de Fórmulas no separador Kutools na faixa de opções

3. Na caixa de diálogo Assistente de Fórmulas, realize as seguintes operações:

  • Selecione a opção Matemáticana lista suspensa Tipo de Fórmula Tipo;
  • Depois, escolha Soma de todos os números em uma célulana caixa de listagem Escolha uma fórmula;
  • Na secção direita Entrada de Argumento, selecione a célula cujos dígitos pretende somar.

Caixa de diálogo Assistente de Fórmulas

4. Depois, clique no botão Ok e arraste a alça de preenchimento até às células cujos dígitos pretende somar. Todos os dígitos de cada célula serão somados. Veja a imagem:

Todos os dígitos num número são somados

Transfira e experimente gratuitamente o Kutools para Excel agora!


Mais artigos relacionados:

  • Somar a diagonal de um intervalo no Excel
  • Ao realizar alguns cálculos aritméticos, poderá precisar de somar números em diagonal numa tabela. Na verdade, também pode somar esses valores diagonais no Excel sem ter de os adicionar um a um. Se pretender saber mais sobre esta funcionalidade, leia o seguinte artigo.
  • Combinar Linha duplicada e somar os valores
  • No Excel, poderá frequentemente deparar-se com o seguinte problema: tem um intervalo de dados com entradas duplicadas e pretende combiná-las, somando os respetivos valores noutra coluna, tal como ilustrado nas imagens seguintes. Como resolver esta situação?
  • Soma com base em critérios de coluna e linha
  • Tenho um intervalo de dados que contém cabeçalhos de linha e coluna e pretendo somar as células que cumpram simultaneamente os critérios do cabeçalho da coluna e da linha. Por exemplo, somar as células cujo critério de coluna seja Tom e o critério de linha seja Fev, conforme ilustrado na imagem seguinte. Neste artigo, irei apresentar algumas fórmulas úteis para resolver este problema.
  • Somar números de 1 até N no Excel
  • Na maioria das vezes, os utilizadores do Excel precisam de eliminar os primeiros n caracteres do início das cadeias de texto ou remover os últimos x caracteres do final das cadeias de texto, tal como mostrado na imagem seguinte. Neste artigo, apresentarei alguns truques práticos para resolver esta tarefa de forma rápida e fácil no Excel.

As Melhores Ferramentas de Produtividade para o Office

🤖KUTOOLS AI Assistente: Revolucione o Análise de Dados com base em:Execução Inteligente   |  Gerar Código|  Criar fórmulas personalizadas  |  Analisar Dados e Gerar Gráficos|  Invocar Funções Aprimoradas
Funcionalidades Populares:Localizar, Destacar ou Marcar Duplicatas   |  Excluir linhas em branco   |  Combinar Colunas ou Células sem Perder Dados   |   Arredondamento sem usar fórmula...
Super PROC:VLookup com Múltiplos Critérios  |  VLookup com Múltiplos Valores  |   VLookup em Múltiplas Folhas   |   Correspondência Fuzzy....
Lista Suspensa Avançada:Criar Rapidamente Lista de Seleção   |  Lista de Seleção Dependente   |  Lista de Seleção com Múltipla Escolha....
Gestor de Colunas:Adicionar um Número Específico de Colunas|Mover Colunas|Alternar Estado de Visibilidade de Colunas Ocultas|Comparar Intervalos e Colunas...
Funcionalidades em Destaque:Grade de foco   |  Visualização de Design   |Barra de fórmulas aprimorada   | Gestor de Pastas de Trabalho e Folhas   |  Biblioteca de Recursos(Texto Automático)|  Seleção de Data   |  Consolidar Planilhas  |  Encriptar/Descriptografar Células   | Enviar Emails por Lista   |  Super Filtro   |   Filtro Especial(Filtrar Células com Fonte em Negrito/itálico/rasurado...) ...
Principais Conjuntos de Ferramentas 15:12 Ferramentasde Texto(Adicionar Texto,Excluir Caracteres Específicos, ...)|   50+Tiposde Gráfico(Gráfico de Gantt, ...)|   40+ Fórmulas Práticas(Calcular a idade com base na data de nascimento, ...)|   19 Ferramentasde Inserção(Inserir QR Code,Inserir Imagem a Partir do Caminho, ...)|   12 Ferramentasde Conversão(Converter em Palavras,Conversão de moeda, ...)|   7 Ferramentasde Mesclar e Dividir(Mesclar Linhas Avançado,Dividir Células, ...)|... e muito mais
Utilize o Kutools na sua língua preferida – suporta inglês, espanhol, alemão, francês, chinês e mais 40+ idiomas!

Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...


Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil

  • Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
  • Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!

Todos os suplementos Kutools — num único instalador.

Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.

ExcelWordOutlookTabsPowerPoint
  • Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Um instalador, uma licença— configuração em minutos (pronto para MSI)
  • Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
  • Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
  • Melhor relação qualidade-preço— poupe face à compra individual dos suplementos