Eliminar algarismos de string em excel e manter só letras dinamicamente

[tetchelex]

Olá Pessoal, alguem poderia me dizer como eu pego um string em excel e elimino os algarismos e mantenho apenas as letras de forma DINAMICA?

 

Digo pois estou lendo as celulas e tranalhando com seus enderecos (por exemplo, G12). Daí preciso eliminar o "12".

 

Veja que comandos ext, nos quais precisam ser definidos os posicionamentos de exclusão não atenderiam a necessidade, já que pode atrapalhar em casos quando vier um caso vier colunas pro final da planilha, por exemplo celulas com mais de uma letra que identifica coluna, por exemplo em GF12, ou mesmo GDF 12.

 

Alguém tem algum comando format ou alguma solução pra isso?

 

Obrigado!

[Basole]

Experimente utilizar esta funcão (udf), que extrai texto

 

Function So_Texto(Rng As Range) As String
Dim xValue As String, OutValue As String

xValue = Rng.Value
For xIndex = 1 To VBA.Len(xValue)
    If Not VBA.IsNumeric(VBA.Mid(xValue, xIndex, 1)) Then
        OutValue = OutValue & VBA.Mid(xValue, xIndex, 1)
    End If
Next
So_Texto = OutValue

End Function

Macro:

Sub Teste()
 MsgBox So_Texto(Range("A1"))
End Sub

Formula: 

=So_Texto(A1)

[tetchelex]

Obrigado,

 

to tentando usar a funcao na celula, mas nao funciona...ela existe no office 2015? nao quero usar macro nomento...

adicionado 0 minutos depois

qual seria no excel em inglês?

 

[Basole]

Como citei "So_Texto" é uma udf, função criada pelo usuario,

 

Se não quer utilizar o vba, e está utilizando office inglês, experimente desta forma, Ex.::

 =SUBSTITUTE(ADDRESS(1,COLUMN(A1),4),"1","")

Neste caso retornará: A

Retornar a Letra da propria celula:

=SUBSTITUTE(ADDRESS(1,COLUMN(),4),"1","")

 

Para o usuário com office em portugues: 

=SUBSTITUIR(ENDEREÇO(1;COL(A1);4);"1";"")

[tetchelex]

funcionaria nos casos em q tiverem 2 e 3 letras, isto é , nas colunas do final?

 

[Basole]

Sim. Faça o teste:

 

=SUBSTITUTE(ADDRESS(1,COLUMN(XFD1048576),4),"1","")

 

 

=SUBSTITUIR(ENDEREÇO(1;COL(XFD1048576);4);"1";"")

 

 

[tetchelex]

PERFEITO!

RESOLVIDO... MUITO OBRIGADO BASOLE!