Note: The other languages of the website are Google-translated. Back to English

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.

Nota: 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 uma avaliação gratuita (30-dia) 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


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (8)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
MUITO OBRIGADO A IDEIA DO MÓDULO É INCRÍVEL! NUNCA SABIA QUE EXISTIA
Este comentário foi feito pelo moderador no site
O problema dessa ferramenta é que ela soma todos os dígitos. O problema é que 125 + 2 não é 127. A ferramenta adicionaria como 1 + 2 + 5 + 2. Não tenho certeza de como isso é útil para alguém que precisa somar todos os números. Mesmo no exemplo não faz sentido ou parece prático. Perdi algo?
Este comentário foi feito pelo moderador no site
Incorreto se os números forem inseridos na célula separadamente, por exemplo 125 2 e a fórmula for inserida na próxima célula. A célula com a fórmula calculará 127.
Este comentário foi feito pelo moderador no site
Oi Michael,
Desculpe-me pelo erro. Insira o seguinte código VBA na janela Módulo (Código) e aplique esta fórmula: =SOMAS(A1,"") para somar todos os dígitos em uma célula.

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
Este comentário foi feito pelo moderador no site
Você também pode facilmente digitar "=" na célula. Então, se você tivesse uma célula que fosse 3, mas quisesse adicionar 1+2, seria "=1+2" na célula
Este comentário foi feito pelo moderador no site
Eu tenho uma lista de números que quero adicionar automaticamente 30 a cada número em cada célula. Isso é possível?
Este comentário foi feito pelo moderador no site
Como adiciono +1 dígito aos números em uma célula (palavra ou excel ou bloco de notas, não importa). Mas no meu trabalho muitas vezes tenho: 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 algo assim.

E eu preciso fazer eles como: 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. Eu faço isso manualmente, mas talvez haja uma maneira rápida de fazer isso?
Este comentário foi feito pelo moderador no site
O código da função VBA funciona muito bem. Obrigada. 
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL