Como EXTRAIR NÚMERO DE UM TEXTO no Excel

🔴 Curso Excel Básico Avançado 5 Cursos - Formação Especialista: bit.ly/3cYpY0k
Neste vídeo você vai aprender como extrair número de um texto no Excel.
Se você tem uma planilha na qual contém valores com textos e números e precisa extrair os números para outras células, então saiba que você pode resolver essa questão em poucos minutos usando uma simples macro
De fato existem algumas opções utilizando algumas funções nativas aninhadas no Excel. No entanto, o método apresentando neste vídeo pode ser mais eficiente e até mesmo mais fácil do que combinar várias funções para separar numero de letras no excel.
Se interessou pelo assunto? Então confira os detalhes a seguir para aprender a separar texto de números no Excel de maneira super prática.
💡 OUTROS VÍDEOS DO CANAL:
👉 Como inserir Imagem em uma Célula no Excel - • Como inserir Imagem em...
👉 COMO COMPARAR DUAS COLUNAS NO EXCEL - • COMO COMPARAR DUAS COL...
👉 COMO FAZER ETIQUETAS NO EXCEL - • COMO FAZER ETIQUETAS N...
👉 Como Gerar Números aleatórios no Excel - • Como Gerar Números ale...
👉 CÓDIGO DE BARRAS NO EXCEL - • CÓDIGO DE BARRAS NO EX...
👉 COMO INSERIR, EDITAR E REMOVER MARCA D'ÁGUA NO EXCEL - • COMO INSERIR, EDITAR E...
👉 Como Dividir Célula no Excel - • Como EXTRAIR NÚMERO DE...

[@ExcelEasyBR]

Código mencionado no vídeo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function ------------------------------ Para manter a vírgula, use o código abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@stephaniechristini6137]

Tem como atualizar neste código buscar números exatos? ex: 2021/2022, quero somente 2021, como fazer por favor?

[@ExcelEasyBR]

Isso vai depender de como estão organizados seus dados. Todas os números são 2021/2022?

[@alonecanuto7341]

Eu

[@stephaniechristini6137]

​@@ExcelEasyBRnão, há outras disposições de números, ex: 12345, obrigada por responder 😊

[@JhonConstantine-rk7px]

Não consigo copiar essa função

[@danielsimoes6380]

Simples, sucinto, TOP de ++++ !!! Sem enrolação e sem bla, bla, bla resolveu meu problema em minutos!!! Obrigado!

[@DennisCleiton-p9h]

Você não tem noção de como isso me ajudou agora. Simples e rápido. Parabéns e muito obrigado!

[@stephaniechristini6137]

Em menos de 03 minutos consegui: habilitar o desenvolvedor no Excel e extrair os números, explicação fácil e objetiva! Obrigada, já inscrita no canal!

[@ExcelEasyBR]

Que bom que ajudou! Gratidão por se inscrever.

[@backnoway3270]

Umas das dicas mais valiosas, Obrigado !

[@TiagoM347]

Sensacional, simples e objetivo, obrigado por compartilhar o cód ja pronto! Ajduou muito! Abraço e sucesso!

[@ExcelEasyBR]

Obrigado Tiago!

[@gilmaraschulz6476]

Muito obrigada,fiz deu certinho ! Nao consegui copiar a formula ...mas transcrevi certinho . E agilizou meu trabalho.

[@henriquegalapagos6502]

Nem precisei de segunda vista, simples e direto. PErfeito irmão! Parabens pelo conteudo!

[@ExcelEasyBR]

Que honra! Gratidão!

[@JefersonMelo-e3d]

Muito obrigado!!!!! 😃😃😃😃

[@geraldomajelagurgel4038]

Bacana Prof. deu certinho a Macro extraiu sim só os números, Obrigado pelo vídeo.

[@felipemesquitaveras]

Muito bom, ajudou demais! Obrigado

[@jorgeeduardo5231]

Parabéns chefe, seu vídeo foi mais simples e efetivo que achei. resolvi meu problema em segundos. Depois se tiver como, faz um vídeo ensinando a criar essas macros. Ou se já tiver, me manda o link aqui. Valeu, abraço.

[@zaiadev22]

Muito obrigado meu amigo, excelente aula. A função "Direita e Esquerda" é muito limitada. Muito show. Obrigado.

[@DiverCastleBR]

Essa instrução foi top! Muito obrigado

[@brunomanhaes714]

Muito obrigado! Salvou meu dia de trabalho

[@victormagalhaes3381]

Genial, me ajudou em segundos! Obrigado!!

[@ivandeljunior2732]

Muito obrigado!

[@rafaelsantoscorretordeimov6864]

fiz oq vc ensinou e deu certo, valeu

[@daniellactsoares]

Simples, curto e eficiente! Parabéns!!!

[@ExcelEasyBR]

Obrigado 👍

[@Alencarrbarros]

Parabéns amigo, pelo compartilhamento do seu conhecimento. Me ajudou bastante!! Sucesso! 😀

[@ExcelEasyBR]

Muito obrigado pelo seu comentário! Que bom saber que o vídeo lhe ajudou.

[@jeehtree]

Parabéns!! Objetivo, simples e rápido... Amamos vídeos assim! +1 uma inscrita! Muito obrigada.

[@ExcelEasyBR]

Obrigado! 😀

[@leonardosouza8712]

Sensacional!

[@ViniciusTrevisan-z9i]

SENSACIONAL!!

[@cassianoaugustodasilva6939]

Muito obrigado pelo vídeo!! Ajudou muito! Grade abraço!

[@joseadrianosoaressantos8584]

Nossa!. Excelente dica. Obrigado por automatizar meu trabalho.

[@kelvistonarruda2722]

Perfeito. Parabéns!! Vídeo mais objetivo, eficiente e efetivo para esse tipo de caso, que vi

[@ExcelEasyBR]

Obrigado 👍

[@josemanoel6194]

Parabens..funciona direitinho.

[@LeoGratti]

Show!! muito obrigado!!

[@lucascardoso3822]

Show de bola. Funcionou bem demais aqui

[@alanroque8761]

Muito obrigado por essa ajuda....

[@robertof1983]

Pragmático, muito bom

[@denilsongonsalvesmartins4882]

Que top, ajudou demais.

[@jadermedeiros8545]

Muito top, ajudou demais!!!

[@Linghston65]

Parabéns!!! Ótima dica e me ajudou muito. Obrigado

[@wilsontadeusousa848]

Boa tarde ! , fiquei a manhã inteira quebrando a cabeça para separar os números dos textos, você me salvou!! muito obrigado, tem alguma video explicando o código ?

[@ExcelEasyBR]

Olá! Que bom que consegui te ajudar! No momento não temos nenhum vídeo sobre o código.

[@fatosupreendentes.]

Mano te amo ❤ muitoooooo obrigado tu salvou meu dia ❤

[@beatrizaap_]

O melhor vídeo! Deu super certo... salvou minha vida! Obrigadaaaa

[@tiagocunha2265]

que video util... muito obrigado me caro.

[@leandropatrick5176]

Obrigado

[@janainaturchiari3638]

NOSSAAAa, muito obrigada, ajudou muuuito

[@MarceloVieiradeSantana]

Muito top obrigado consegui fazer

[@beatrizrocha5753]

SENSACIONAL!! Muito obrigada!!

[@cabcontabilidadeepericia]

Dica Show!

[@tennisInteligenciaArtificial]

PARABÉNS DEU CERTO

[@RodneyPazello]

valeu obrigado salvou meu dia

[@adrielychaves4102]

Puxa que bacana, Deu super certo o apresentado, Mas faltou um codigo para extrair o texto tbm, pq ai sim conseguimos separar numeros e textos em colunas diferentes

[@ExcelEasyBR]

Olá Adriely! Use o codigo abaixo conforme demonstrado no vídeo: Function ExtrairTexto(CellRef As String) Dim Tamanho As Integer Tamanho = Len(CellRef) For i = 1 To Tamanho If Not (IsNumeric(Mid(CellRef, i, 1))) Then Resultado = Resultado & Mid(CellRef, i, 1) Next i ExtrairTexto = Resultado End Function O código acima criará a função ExtrairTexto.

[@leanderoliveira]

Amigo, muito obrigado. Estava quebrando a cabeça e você resolveu meu problema. 🙏

[@Adinho7mil]

muito bom, obrigado, me ajudou muito

[@andresmellolopez233]

Brilhante!!!

[@thirocha352]

VC É FOD* FOFO SRSR VLWW

[@FrancineFernandes-ub8mg]

Top! Consegui fazer

[@AndersonOliveira-uf2yx]

Excelente! Parabéns!

[@ExcelEasyBR]

Obrigado 😃

[@guaiba2009]

Excelente aula! como faço para extrair números após uma determinada posição?

[@ExcelEasyBR]

Por gentileza, teste o código abaixo e veja se atende a sua necessidade: Digamos que você tem o texto "abc123def456" na célula A1. Se você especificar 5 como ponto de início: =ExtrairNumero(A1; 5) O resultado será "56", pois o código começa a extrair a partir do número "5" e continua até o final. Function ExtrairNumero(CellRef As String, StartFrom As Integer) As String Dim StringLength As Integer Dim Result As String Dim i As Integer Dim EncontrouNumero As Boolean StringLength = Len(CellRef) ' Inicializa a variável Result Result = "" EncontrouNumero = False ' Loop percorre a string da esquerda para a direita For i = 1 To StringLength ' Verifica se o caractere atual é um número If IsNumeric(Mid(CellRef, i, 1)) Then ' Verifica se o número é maior ou igual ao especificado por StartFrom If CInt(Mid(CellRef, i, 1)) >= StartFrom Then EncontrouNumero = True End If End If ' Se já encontrou o número inicial, começa a extrair os próximos números If EncontrouNumero Then If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) End If End If Next i ExtrairNumero = Result End Function

[@flaviaribeiro7707]

maravilhoso!

[@elkerlacenalves1011]

Parabens deu super certo, curto e objetivo!!! Pra ficar sensacional gostaria de saber se da pra incluir outra formula dentro pra extrair apartir de tal numero. Tentei fazer do jeito que tou falando e nao consegui

[@ExcelEasyBR]

Por gentileza, teste o código abaixo e veja se atende a sua necessidade: Digamos que você tem o texto "abc123def456" na célula A1. Se você especificar 5 como ponto de início: =ExtrairNumero(A1, 5) O resultado será "56", pois o código começa a extrair a partir do número "5" e continua até o final. Function ExtrairNumero(CellRef As String, StartFrom As Integer) As String Dim StringLength As Integer Dim Result As String Dim i As Integer Dim EncontrouNumero As Boolean StringLength = Len(CellRef) ' Inicializa a variável Result Result = "" EncontrouNumero = False ' Loop percorre a string da esquerda para a direita For i = 1 To StringLength ' Verifica se o caractere atual é um número If IsNumeric(Mid(CellRef, i, 1)) Then ' Verifica se o número é maior ou igual ao especificado por StartFrom If CInt(Mid(CellRef, i, 1)) >= StartFrom Then EncontrouNumero = True End If End If ' Se já encontrou o número inicial, começa a extrair os próximos números If EncontrouNumero Then If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) End If End If Next i ExtrairNumero = Result End Function

[@vitoriacruz5306]

Obrigada !

[@igorvinicius9302]

melhor conteúdo

[@PedroHenrique-do3rv]

Obrigado amigo me ajudou muito

[@ExcelEasyBR]

Gratidão pelo seu comentário! Que bom saber que te ajudou.

[@MsEuclydes]

EXCELENTE!

[@ExcelEasyBR]

Obrigado 😃

[@joamorim]

Show cara! parabéns

[@DeyseaneTeodoro]

Você me ajudou demais, obrigada

[@tiagoalcoforado]

Meu amigo! Sensacional a sua dica!! Parabéns por ajudar tantas pessoas!! Uma dúvida: no meu caso, ao utilizar a fórmula veio por exemplo o número 001494. Teria alguma fórmula para não vir os zeros à esquerda? Ou seja, no exemplo que mencionei viria o número 1494. Muito obrigado!

[@ExcelEasyBR]

Olá, tudo bem? Obrigado pelo seu comentário. Referente à sua dúvida, para remover os zeros à esquerda do número extraído, basta converter o resultado para um valor numérico antes de retorná-lo. No VBA, isso pode ser feito usando Val(). Neste caso, use o código abaixo: Function ExtrairNumero(CellRef As String) As Double Dim StringLenght As Integer Dim Result As String StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) End If Next i ExtrairNumero = Val(Result) ' Remove os zeros à esquerda convertendo para número End Function

[@andrevasconcellos5664]

Excelente vídeo....pergunto se tem como manter a vírgula ou outro caracter??

[@ExcelEasyBR]

Para manter a vírgula uma opção é ajustar o código conforme abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@lucasviana951]

Caraca, me salvou amigo

[@AndreSilvaAcustico]

E no caso se quisesse que viesse tambem a virgula ?

[@ExcelEasyBR]

Para manter a vírgula uma opção é ajustar o código conforme abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@danielfsilva]

Show!

[@AdineiGazani]

Excelente. Gostaria de saber se daria pra incluir as vírgulas em números de valores?

[@ExcelEasyBR]

Para manter a vírgula uma opção é ajustar o código conforme abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@AdineiGazani]

@ExcelEasyBR Como não conheço VBA, naquele momento fui pesquisando e testando e ficou assim, muito próximo For i = 1 To StringLenght If (Mid(CellRef, i, 1)) = "," Then Result = Result & Mid(CellRef, i, 1) If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) Next i Funcionou, porém como a célula havia outros números no texto, inclusive letras nos finais, tive que incluir a seguinte fórmula: =VALOR(DIREITA(ExtrairNumero(D1);8))

[@karineclaudino]

Oii, boa noite. Que dica maravilhosa!! Seria possível editar a fórmula para os números serem extraídos com ponto e hífen?

[@ExcelEasyBR]

Olá, tudo bem? Desculpe pela demora em responder. Referente à sua dúvida, segue o código abaixo para considerar ponto e hífen Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "." Or Mid(CellRef, i, 1) = "-" Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@AliciaMelo-zr4jp]

top demaisssssssssssss

[@thullyolimadaver8889]

Muito bom! Me ajudou demais! 👋👋👋 Porém em uma planilha recebida de terceiros (ou seja, não foi criada por mim) não funcionou. Não aparece a opção de inserir módulo lá no VBA. Será que há algo que o criador da planilha habilitou para impedir que consigamos aplicar esse método?

[@videosdiversosdiversos]

Boa noite, me inscrevi no canal e fiz uma garimpagem nos teus vídeos, são ótimos, mas não achei uma formula parecida para fazer o inverso, poderia fazer um outro vídeo ou disponibilizar a fórmula! obrigado

[@ExcelEasyBR]

Olá, tudo bem? Obrigado por se inscrever no canal! Quando você diz que deseja obter o inverso, o que exatamente você precisa? Seria extrair texto de números?

[@videosdiversosdiversos]

@@ExcelEasyBR exatamente! parabéns! Como ex: 6c668d6094582312bf38633a45b0af7b3 Com a sua fórmula ele fica assim: 666860945823123863345073 Mas gostaria que ele ficasse assim, utilizando a sua fórmula modificada: cdbfaafb

[@ExcelEasyBR]

Use o código abaixo para criar a função chamada ExtrairTexto Function ExtrairTexto(CellRef As String) Dim Tamanho As Integer Tamanho = Len(CellRef) For i = 1 To Tamanho If Not (IsNumeric(Mid(CellRef, i, 1))) Then Resultado = Resultado & Mid(CellRef, i, 1) Next i ExtrairTexto = Resultado End Function

[@videosdiversosdiversos]

@@ExcelEasyBR Jesus!!!! nem acredito que você respondeu, e tão rápido! já testei kkkkk você é muito inteligente, que Deus possa lhe abençoar grandemente, e toda sua família, amigos!!!!!! MUITO OBRIGADO!

[@ExcelEasyBR]

Que bom que deu certo! Deus abençoe também! Obrigado pelo seu comentário e por se inscrever no canal. Abraço

[@carlosescobar5304]

Excelente! parabéns! Por favor, como ficaria o código para extrair texto do número? Desde já agradeço.

[@ExcelEasyBR]

Obrigado pelo seu comentário Carlos. Você poderá encontrar o código no vídeo abaixo: kzbin.info/www/bejne/gJW3dYp6o9iIm68

[@carlosescobar5304]

@@ExcelEasyBR Muito obrigado!!! Consegui😀

[@adm2mobi]

PARABÉNS PELO CONTEÚDO!!!!!!!!!!!!!!!

[@ExcelEasyBR]

Obrigado!

[@amaurisales2635]

Show! Mas no meu caso eu gostaria de remover os numeros de uma lista. Como faço?

[@ExcelEasyBR]

Use a última opção mostrada neste outro vídeo: kzbin.info/www/bejne/gJW3dYp6o9iIm68

[@wallacewarrenn2016]

super prático e funcional valeu demais, parabens!

[@ExcelEasyBR]

Obrigado!

[@MarianneCifra]

Queria saber como selecionar do 3 números de 1a 10. Como faz!?

[@anathayannemoreira9325]

Boa tarde, tem em uma linha que precisa tirar só o número da nota fiscal NF e número da nota,só que nessa mesma célula tem a data e outros números que não quero, teria com tirar dessa célula apenas os números logo depois de NF?

[@renatomolina1845]

👏🏼👏🏼👏🏼

[@salvouapatria]

Olá... Dá pra extrair letra entre os numeros?

[@ExcelEasyBR]

Sim! Por gentileza, verifique a quinta opção deste vídeo: kzbin.info/www/bejne/gJW3dYp6o9iIm68

[@vitorsa4951]

Eu precisava disso faz tempo, perdia 40 minutos pra limpar uma lista de +10k numeros com 3 colunas distintas ainda, mas com isso é fácil e rápido, só implementar o código vba toda vez, ele não salva no excel, apenas na planilha atual né? Obrigado por compartilhar o conhecimento

[@ExcelEasyBR]

Olá Vitor, tudo bem? Existe a possibilidade de criar uma função para ficar disponível em todos os arquivos. Por gentileza, confira este vídeo: kzbin.info/www/bejne/rXmwhGOMqq-djLM

[@leoconeglian]

Da pra fazer no google sheets pelo browser ?

[@ExcelEasyBR]

Não! Esse código só serve para o Microsoft Excel.

[@leonidasfelicianoleonidas]

Muito bom, mas caso eu queira extrair os dados e não os números, tenho que mudar algo? Obrigado

[@ExcelEasyBR]

Neste caso, teste este outro código: Function ExtrairTexto(CellRef As String) Dim Tamanho As Integer Tamanho = Len(CellRef) For i = 1 To Tamanho If Not (IsNumeric(Mid(CellRef, i, 1))) Then Resultado = Resultado & Mid(CellRef, i, 1) Next i ExtrairTexto = Resultado End Function O código acima criará a função ExtrairTexto.

[@Bruhamorim]

TOP. OBJETIVO DEMAIS. OBRIGADA!

[@brunnabrandao517]

Muito bommmmm,obrigada!!! O código caso alguém nao tenha achado: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@ncvitalino]

Esta fórmula funciona também no LibreOffice Calc? Alguém saberia como fazer a mesma coisa através do Calc?

[@ExcelEasyBR]

Não funciona! Por se tratar de um código VBA, funcionará apenas no Microsoft Excel. Infelizmente não tenho um código para o Calc.

[@leonardonscosta]

Caraca, ate que enfim um video que resolve o problema !!

[@joaoricardochiodi3020]

Top de mais a explicação. Já inscrito.

[@videosdiversosdiversos]

Parabéns, vou testar..muito obrigado

[@7erimusic]

existe alguma forma de extrair os números separados com traço? ( -)

[@ExcelEasyBR]

Sim! Utilize o código abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) & "-" Next i ExtrairNumero = Result End Function

[@marianaalbuquerque3837]

Realmente é muito fácil mais no meu caso eu preciso extrair apenas o CEP da coluna de endereço, dessa forma ele puxou o numero da casa, é possível?

[@ExcelEasyBR]

Sim, é possível extrair apenas o CEP da coluna de endereço. Para isso, precisamos considerar que o CEP tem um padrão específico no Brasil: ele sempre tem 8 dígitos consecutivos (podendo estar no formato 12345678 ou 12345-678). Use o código abaixo conforme demonstrado no vídeo. Isto irá criar uma função chamada ExtrairCEP. Basta usar a função do mesmo modo que foi mostrado no vídeo. ----------------------------------------------------------------- Function ExtrairCEP(CellRef As String) As String Dim StringLenght As Integer Dim i As Integer Dim Result As String Dim Temp As String StringLenght = Len(CellRef) For i = 1 To StringLenght Dim CharAtual As String CharAtual = Mid(CellRef, i, 1) ' Se for número, adiciona à Temp If IsNumeric(CharAtual) Then Temp = Temp & CharAtual ElseIf CharAtual = "-" And Len(Temp) = 5 Then ' Permite um hífen apenas se já houver exatamente 5 números antes dele Temp = Temp ' Mantém Temp como está Else ' Se Temp já tiver 8 números, considera como CEP If Len(Temp) = 8 Then ExtrairCEP = Temp Exit Function End If Temp = "" ' Reseta para procurar o próximo possível CEP End If Next i ' Se no final Temp ainda tiver 8 números, retorna como CEP If Len(Temp) = 8 Then ExtrairCEP = Temp End Function ---------------------------------------------------------------------------------------------------------------- Agora a função aceita tanto o formato 12345678 quanto 12345-678. O hífen só é aceito se estiver na posição correta (depois de 5 números). Garante que só números consecutivos com 8 dígitos sejam considerados como CEP.

[@jessicadearaujo6449]

E se eu quiser extrair so as palavras?

[@ExcelEasyBR]

Confira a última dica deste outro vídeo: kzbin.info/www/bejne/gJW3dYp6o9iIm68

[@adrianoesticado8123]

como faz para somar?

[@ExcelEasyBR]

Provavelmente os números estão no formato de texto e por este motivo você não deve estar conseguindo somar. Confira este vídeo para obter a solução: kzbin.info/www/bejne/rZWzdpaKfsSBr7s

[@anathayannemoreira9325]

Boa tarde, tem em uma linha no Excel que preciso tirar só o número da nota fiscal Ex: NF e número da nota,só que nessa mesma célula tem a data e outros números que não quero, teria com tirar dessa célula apenas os números logo depois de NF?

[@ExcelEasyBR]

Olá Ana. Por gentileza, passe um exemplo de como está que te envio a fórmula.

[@TamaraAmazonas]

@@ExcelEasyBR Olá! Eu tambem tenho esta duvida, segue exemplo - Pagamento NF 375626 Parc 002/003

[@periclisedu]

Eu tenho um caso parecido, que a minha coluna vem escrito assim (exemplo). "TRANSFERECIA DE PRODUTO.(FAZ. STA ESCOLASTICA) OLEO PARA MT 001 Baseado em Saída de mercadorias 2719." ..... O que me interessa é os numeros que estão no final, após a palavra "mercadorias".....

[@fredsoncsilva]

Muito Obrigado. Poupei horas de trabalho!

[@wavinho]

E como faz isso funcionar com numeros com vírgula?

[@ExcelEasyBR]

Para manter a vírgula uma opção é ajustar o código conforme abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@NestorAlbuquerque]

E números com ponto ou vírgula decimal?...

[@ExcelEasyBR]

Por gentileza, veja nos comentários. Já temos um código para incluir vírgula

[@diogoribeiro6239]

ola td bem ? porque q depois q extrai o numeor .. eu vou dar a função de =soma ai seleciono os numero e ele nao soma ??? sempre da 0

[@ExcelEasyBR]

Olá! Neste caso, recomendo verificar se os valores estão formatados como texto. Confira a dica deste outro vídeo: kzbin.info/www/bejne/oKSrdaKAbZWUhpY

[@DHUBEM]

kd a fórmula na descrição do video? não encontrei

[@ExcelEasyBR]

Está fixada nos comentários amigo. O KZbin não permite o uso de alguns caracteres no comentários. Por este motivo, fixei o código nos comentários. Por gentileza, verificar.

[@bmengenheiro]

Uma dúvida, Quando o número tem vírgula, como faço?

[@ExcelEasyBR]

Para manter a vírgula uma opção é ajustar o código conforme abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = Len(CellRef) For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@Eriquigoncalves]

é possível extrair somente os números que eu preciso?

[@ExcelEasyBR]

Acredito que a função EXT.TEXTO pode te ajudar. Não tenho vídeo sobre este assunto no momento aqui no canal, mas recomendo este vídeo: kzbin.info/www/bejne/gYeaqqOgqt1mrrc

[@simionato2008]

Tenho um texto com os números que preciso retirar e após esse número mais algumas palavras e novamente números, porém esses números e não preciso e eles estao sendo concatenados com os primeiros extraídos. Como faço a função para dividir em colunas cada sequência de números que aparece na coluna ?