Ir para o conteúdo principal

Como somar ou somar números em uma única célula no Excel?

Em muitos casos, pode ser necessário somar todos os números em uma única célula. Por exemplo, há uma string de texto Classe 1 Grau 2 na célula A1 e o resultado da adição desses números é 1 + 2 = 3. Este artigo mostrará métodos de adição de números em uma única célula com detalhes.

Soma os números em uma única célula com função definida pelo usuário
Some facilmente os números em uma única célula com apenas alguns cliques


Soma os números em uma única célula com função definida pelo usuário

Você pode somar números em uma única célula com a função definida pelo usuário abaixo.

1. Pressione outro + F11 simultaneamente para abrir o Aplicativo Microsoft Visual Basic janela.

2. No Aplicativo Microsoft Visual Basic janela, clique em inserção > Módulo. Em seguida, copie o VBA abaixo para o Módulo janela.

VBA: soma os números em uma única célula

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
	Dim arr As Variant
	Dim xIndex As Long
	arr = Split(pWorkRng, xDelim)
	For xIndex = LBound(arr) To UBound(arr) Step 1
		SumNums = SumNums + VBA.Val(arr(xIndex))
	Next
End Function

3.Pressione o outro + Q chaves para fechar o Aplicativo Microsoft Visual Basic janela.

4. Selecione uma célula em branco para produzir o resultado. Insira a fórmula abaixo nele e pressione o botão Entrar (A2 é a célula na qual você somará números individuais).

=SUMNUMS(A2)

5. Em seguida, arraste o identificador de preenchimento da célula de resultado para aplicar a fórmula a outras células necessárias.

Note: Esta função definida pelo usuário não se aplica a células em formato de número.


Some facilmente os números em uma única célula com apenas alguns cliques

Kutools for Excel'S Soma os números em uma célula fórmula pode ajudar a somar facilmente os números em uma única célula (incluindo célula de formato de texto e célula de formato de número) com vários cliques apenas.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Selecione uma célula em branco para gerar o resultado. E então clique Kutools > Fórmula Helper > Fórmula Helper.

2. No Fórmula Helper caixa de diálogo, configure como segue.

2.1) Encontre e selecione Soma os números em uma célula no Escolha uma fórmula caixa;
Tips: Você pode verificar o filtros caixa, digite uma palavra-chave para filtrar a fórmula que você precisa.
2.2) No Célula caixa, especifique uma célula que contém os números que você vai somar;
2.3) Clique no OK botão. Veja a imagem:

3. Em seguida, o resultado é preenchido na célula selecionada. Selecione a célula de resultado e arraste seu indicador de preenchimento para baixo para obter os outros resultados.

  Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Some números facilmente em uma única célula com o Kutools para Excel

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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA function code works really well. Thank you. 
This comment was minimized by the moderator on the site
How do I add +1 digit to numbers in one cell (word or excell or notepad, doesn't matter). But at My work I often have: 14,17,28,31,35,38,50,53,70,73,80,83,90,93,120,123,135,138,150,153,165,168,180,183,210,213,250,253,275,278,300,303 something like that.

And I need to make them like: 15,18,29,32,36,39,51,54,71,74,81,84,91,94,121,124,136,139,151,154,166,169,181,184,211,214,251,254,276,279,301,304. I do it manually, but maybe there is a fast way to do it?
This comment was minimized by the moderator on the site
I have a list of numbers that I want to automatically add 30 to each number in each single cell. Is that possible?
This comment was minimized by the moderator on the site
You can also very easily just type "=" in the cell. So if you had a cell that was 3 but wanted to add 1+2 it would be "=1+2" in the cell
This comment was minimized by the moderator on the site
The problem with this tool is that it adds all the digits. The problem is 125 + 2 is not 127. The tool would add it as 1 + 2 + 5 + 2. Not sure how this is useful to someone that needs to add all the numbers. Even in the example it does not make sense or seem practical. Did I miss something?
This comment was minimized by the moderator on the site
Incorrect if the numbers are entered into the cell separately, for example 125 2 and the formula is entered into the next cell. The cell with the formula will calculate 127.
This comment was minimized by the moderator on the site
Hi Michael,
Sorry for the mistake. Please enter the following VBA code into the Module (Code) window, and then apply this formula: =SUMNUMS(A1,"") to sum all digits in a cell.

Function SumNums(pWorkRng As Range, Optional xDelim As String = " ") As Double
'Updated by ExtendOffice 20221122
    If pWorkRng.CountLarge > 0 Then Exit Function
    On Error Resume Next
    Application.Volatile
    
    Dim arr As Variant
    Dim xIndex As Long
    If xDelim <> "" Then
        arr = Split(pWorkRng, xDelim)
        For xIndex = LBound(arr) To UBound(arr) Step 1
            SumNums = SumNums + VBA.Val(arr(xIndex))
        Next
    Else
        For xIndex = 1 To Len(pWorkRng) Step 1
            If IsNumeric(Mid(pWorkRng, xIndex, 1)) Then
                SumNums = SumNums + VBA.Val(Mid(pWorkRng, xIndex, 1))
            End If
        Next
    End If
End Function
This comment was minimized by the moderator on the site
THANKSSSSSS SOOO MUCH THE MODULE IDEA IS AMAZING ! I NEVER KNEW IT EXISTED
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations