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

[@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.

[@zaiadev22]

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

[@tiagocunha2265]

que video util... muito obrigado me caro.

[@danielsimoes6380]

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

[@gilmaraschulz6476]

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

[@joseadrianosoaressantos8584]

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

[@henriquegalapagos6502]

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

[@ExcelEasyBR]

Que honra! Gratidão!

[@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.

[@TiagoM347]

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

[@ExcelEasyBR]

Obrigado Tiago!

[@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.

[@geraldomajelagurgel4038]

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

[@backnoway3270]

Umas das dicas mais valiosas, 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.

[@robertof1983]

Pragmático, muito bom

[@jeehtree]

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

[@ExcelEasyBR]

Obrigado! 😀

[@daniellactsoares]

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

[@ExcelEasyBR]

Obrigado 👍

[@kelvistonarruda2722]

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

[@ExcelEasyBR]

Obrigado 👍

[@lucascardoso3822]

Show de bola. Funcionou bem demais aqui

[@rafaelsantoscorretordeimov6864]

fiz oq vc ensinou e deu certo, valeu

[@brunomanhaes714]

Muito obrigado! Salvou meu dia de trabalho

[@cassianoaugustodasilva6939]

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

[@beatrizaap_]

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

[@epofimpressao3d506]

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

[@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. 🙏

[@DiverCastleBR]

Essa instrução foi top! Muito obrigado

[@victormagalhaes3381]

Genial, me ajudou em segundos! Obrigado!!

[@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

[@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?

[@beatrizrocha5753]

SENSACIONAL!! Muito obrigada!!

[@MarceloVieiradeSantana]

Muito top obrigado consegui fazer

[@janainaturchiari3638]

NOSSAAAa, muito obrigada, ajudou muuuito

[@josemanoel6194]

Parabens..funciona direitinho.

[@alanroque8761]

Muito obrigado por essa ajuda....

[@jadermedeiros8545]

Muito top, ajudou demais!!!

[@denilsongonsalvesmartins4882]

Que top, ajudou demais.

[@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😀

[@JefersonMelo-e3d]

Muito obrigado!!!!! 😃😃😃😃

[@leonardosouza8712]

Sensacional!

[@carlosalvesbatista1743]

Dica Show!

[@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

[@FrancineFernandes-ub8mg]

Top! Consegui fazer

[@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

[@ivandeljunior2732]

Muito obrigado!

[@robsonbovver]

Excelente, parabéns !

[@RodneyPazello]

valeu obrigado salvou meu dia

[@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

[@Adinho7mil]

muito bom, obrigado, me ajudou muito

[@fatosupreendentes.]

Mano te amo ❤ muitoooooo obrigado tu salvou meu dia ❤

[@tennisInteligenciaArtificial]

PARABÉNS DEU CERTO

[@thirocha352]

VC É FOD* FOFO SRSR VLWW

[@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?

[@DeyseaneTeodoro]

Você me ajudou demais, obrigada

[@andresmellolopez233]

Brilhante!!!

[@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))

[@joamorim]

Show cara! parabéns

[@vitoriacruz5306]

Obrigada !

[@PedroHenrique-do3rv]

Obrigado amigo me ajudou muito

[@ExcelEasyBR]

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

[@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

[@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

[@lucasviana951]

Caraca, me salvou amigo

[@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

[@fredsoncsilva]

Muito Obrigado. Poupei horas de trabalho!

[@igorvinicius9302]

melhor conteúdo

[@leonardonscosta]

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

[@MsEuclydes]

EXCELENTE!

[@ExcelEasyBR]

Obrigado 😃

[@flaviaribeiro7707]

maravilhoso!

[@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.

[@videosdiversosdiversos]

Parabéns, vou testar..muito obrigado

[@AliciaMelo-zr4jp]

top demaisssssssssssss

[@Bruhamorim]

TOP. OBJETIVO DEMAIS. OBRIGADA!

[@wallacewarrenn2016]

super prático e funcional valeu demais, parabens!

[@ExcelEasyBR]

Obrigado!

[@adm2mobi]

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

[@ExcelEasyBR]

Obrigado!

[@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.

[@leoconeglian]

Da pra fazer no google sheets pelo browser ?

[@ExcelEasyBR]

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

[@danielfsilva]

Show!

[@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

[@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

[@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

[@joaoricardochiodi3020]

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

[@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".....

[@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

[@thaisamartins2747]

Como extrair números com os decimais (com as vírgulas)? A fórmula extrai os números suprimindo os decimais (derrubando as vírgulas), e aí tenho um problema quando as casas decimais são "integradas", pois o separador de milhar não enxerga os decimais 😕😕

[@ExcelEasyBR]

Tente 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

[@renatomolina1845]

👏🏼👏🏼👏🏼

[@joaosilva-ji7sr]

OLÁ BOM DIA! não consegui visualizar o código na descrição do vídeo.

[@ExcelEasyBR]

Olá João, Segue o 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

[@ytaloooo]

eu inverti para tirar apenas os textos, mas os nomes ficaram com um hifen e um espaço antes de cada nome. como tiro isso?

[@ExcelEasyBR]

Use o código abaixo conforme demonstrado no vídeo e veja se atende a sua necessidade: 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.

[@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.

[@Mudanca_de_mente]

Só tem um problema ai que é, E SE O NUMERO FOR "850,25AT", fiz no meu PC e ficou sem a virgula, tem alguma solução?

[@ExcelEasyBR]

Olá Lucas, Neste caso, use o código abaixo seguindo as mesmas etapas do vídeo: Function ExtrairNumero(CellRef As String) Dim Tamanho As Integer Tamanho = Len(CellRef) For i = 1 To Tamanho If IsNumeric(Mid(CellRef, i, 1)) Or Mid(CellRef, i, 1) = "," Then Resultado = Resultado & Mid(CellRef, i, 1) End If Next i ExtrairNumero = Resultado End Function

[@luanatonon946]

Olá! Tenho uma dúvida, quando tem números depois da virgula ele busca todos os numeros, ou seja o meu valor R$ 600,00 - excel busca 60000, como corrigir?

[@ExcelEasyBR]

Olá Luana, Neste caso, tente usar a fórmula abaixo: =DIREITA(A1;NÚM.CARACT(A1)-MÍNIMO(PROCURAR({0;1;2;3;4;5;6;7;8;9};A1&"0123456789"))+1) OBS: Substitua a célula A1 da fórmula para célula que contém o valor que deseja extrair os números.

[@luanatonon946]

@@ExcelEasyBR muito obrigada!!!

[@tiagosantosoliveiradasilva3589]

@@ExcelEasyBR Tenho uma linha que contem : "52-2204-23.112.607/0001-69-57-001-000.002.485-112.812.366-1", usei a função que menciona a partir do desenvolvedor, e não deu certo, como posso fazer nesse caso por favor?

[@mfassoni]

Não consigo somar os numeros extraidos. Qual sera a solucao?

[@ExcelEasyBR]

Provavelmente os números estão em formato de texto. Tente seguir as dicas deste outro vídeo: kzbin.info/www/bejne/rZWzdpaKfsSBr7s

[@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 ?

[@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

[@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

[@priscilafrancisco2258]

Não estou conseguindo copiar a fórmula

[@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

[@naherhayane7839]

No meu computador deu certo, mas parou de funcionar 😢

[@ExcelEasyBR]

Se você fechou a planilha e não salvou o arquivo como Pasta de Trabalho Habilitada para Macros do Excel, então provavelmente você perdeu a macro e, por este motivo, ela parou de funcionar. Recomendo verificar se o código ainda se encontra na planilha e se a planilha foi salva no formato XLSM.

[@Hesperos-v]

O meu deu erro, voltou os dados so como 0

[@ExcelEasyBR]

É preciso verificar como estão os dados de origem.

[@adrieny72]

Bom dia, tem como limitar a extração a 4 números?

[@ExcelEasyBR]

Olá, tudo bem? Sim, neste caso o código ficará conforme mostrado abaixo: Function ExtrairNumero(CellRef As String) Dim StringLenght As Integer StringLenght = 4 For i = 1 To StringLenght If IsNumeric(Mid(CellRef, i, 1)) Then Result = Result & Mid(CellRef, i, 1) Next i ExtrairNumero = Result End Function

[@AndersonOliveira-uf2yx]

Excelente! Parabéns!

[@ExcelEasyBR]

Obrigado 😃

[@daviredes]

Muito bom, parabéns

[@ExcelEasyBR]

Muito obrigado