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

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