Notifications
Clear all

Retirar caractere de lista de registros

5 Posts
3 Usuários
0 Reactions
801 Visualizações
(@mineiro)
Posts: 138
Reputable Member
Topic starter
 

Olá pessoal

Tenho a seguinte lista de registros:

30a234
1b456
345t27
14576y376

Como faço para retirar somente as letras?
Preciso que fique assim:

30234
1456
34527
14576376

Valeu!

 
Postado : 23/07/2015 11:51 am
(@z3020100)
Posts: 0
New Member
 

A única forma que conheço é utilizando CTRL+L, e clicando em substituir.
Lá coloca a letra q quer substituir e não substitua por nd, isso vai retirar a a letra de das células.

O problema é que terá que fazer isso um por um, com o alfabeto inteiro se tiver todas as letras dentro da planilha, mas se é uma planilha gigante, é útil.

 
Postado : 23/07/2015 12:04 pm
(@issamu)
Posts: 0
New Member
 

Se desejar uma solução mais avançada, crie um módulo no VBA e cole o código abaixo:

Public Function VALORESDOVETOR(vArray As Variant, _
                               Optional lSize As Long, _
                               Optional sSeparator As String = ", ") As Variant
  Dim v As Variant
  Dim lCount As Long
  Dim asOut() As String
  
  If lSize < 0 Then
    VALORESDOVETOR = CVErr(xlErrNum)
    Exit Function
  End If
  
  For Each v In vArray
    If v <> "" Then
      lCount = lCount + 1
      ReDim Preserve asOut(1 To lCount)
      asOut(lCount) = v
      If lCount = lSize Then Exit For
    End If
  Next v
  
  VALORESDOVETOR = Join(asOut, sSeparator)
End Function

Isso é uma função personalizada que você poderá aplicar na planilha para gerar seu texto. Use a fórmula matricial abaixo, que deve ser inserida com CRTL+SHIFT+ENTER suponde que o texto está em A1:

=VALORESDOVETOR(SE(ÉERROS(VALOR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1)));"";EXT.TEXTO(A1;LIN(INDIRETO("1:"&(NÚM.CARACT(A1))));1));;"")

 
Postado : 23/07/2015 12:29 pm
(@mineiro)
Posts: 138
Reputable Member
Topic starter
 

Olá Rafael

E se a letra fosse sempre a mesma (30a45; 1234a45; 1a3764, etc) poderia usar uma fórmula?

 
Postado : 23/07/2015 12:57 pm
(@z3020100)
Posts: 0
New Member
 

Neste caso use a formula

=SUBSTITUIR(A1;"a";"")

Supondo que o texto em questão está na celula A1.

 
Postado : 23/07/2015 1:01 pm