Função para extrair somente caracteres de célula Excel VBA

Sistema de Gestão para Pequenas Empresas Conta Azul
Sistema de Gestão para Pequenas Empresas Conta Azul
22 de dezembro de 2012
Planilha de Controle de Estoque Excel
Planilha de Controle de Estoque Excel Grátis
20 de fevereiro de 2013

Objetivo: Retirar somente caracteres de células Excel VBA.

ExtrairNumeros

A função demonstrada neste artigo foi criada em VBA e para inseri-la no Excel você deve seguir os passos descritos neste artigo: http://guiadoexcel.com.br/criando-funcoes-proprias-globais.

Abaixo o código fonte que deve ser inserido:

'Função que retira somente o texto da célula
Public Function lfExtrairCaracteres(vPesquisa As Range) As String
    Dim lQtde As Long

    Application.Volatile

    'Recebe o valor da célula
    lfExtrairCaracteres = vPesquisa.Text

    'Retira os caracteres de 0 a 9, trocando-os por ""
    For lQtde = 0 To 9
        lfExtrairCaracteres = Replace(lfExtrairCaracteres, lQtde, "", 1)
    Next lQtde

End Function

Conforme a explicação na função, o resultado é que todos os caracteres que são numéricos são exclusos do resultado da função, de modo que somente sobrem as letras.

Abraço

Marcos Rieper

4 Comments

  1. Júlio disse:

    E qual a função que eu insiro nesse VBA pra retirar parênteses () ? Tanto abre, quanto fecha.

    Obrigado!

  2. Júlio disse:

    Lógico, agora é só retirar os parênteses pelo Localizar e Substituir.

    Obrigado!

  3. Dercides disse:

    Poderia passar qual a formula?

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.