Ir ao conteúdo
  • Cadastre-se
tetchelex

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

Recommended Posts

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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)

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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?

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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";"")
Editado por Basole
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Sim. Faça o teste:

 

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

 

 

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

 

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×