Excel 2013 – Como remover números apenas de posições diferentes e precedidos de símbolos, letras diferentes

Question

Existe alguma fórmula no Excel 2013 que possa ser usada para remover dígitos de linhas?

Quero deixar apenas letras e símbolos.

A fórmula precisa funcionar para números que podem ocorrer em qualquer posição, embora todos sejam precedidos por um espaço.

Localizar e substituir não funcionará porque são séries diferentes de números e alguns deles têm uma vírgula ou apenas um nome antes deles.

Planilha inicial:

• Baleys, 23 Glencoe Road
• Despreocupado, cabine de dados nº 4
• Vila Dundas, 222 Jardim Secreto
• 88 Byron Crescent, Verona

O que eu quero:

• Baleys, Glencoe Road
• Despreocupado, dados sem cabine
• Vila Dundas, Jardim Secreto
• Byron Crescent, Verona

Answer 1

Gostaria de sugerir o VBA Macro, é o método mais rápido e fácil de usar também.

Function ExtractTextOnly(pWorkRng As Range) As String

Dim xValue As String
Dim OutValue As String

xValue = pWorkRng.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
ExtractTextOnly = OutValue

End Function

Como funciona:

1. Para abrir o Editor VB pressioneAlt+F11ouClique com o botão direitoa guia da planilha e pressioneVer código.
2. Clique emInserire selecioneMódulo.
3. Colareste código emModule eFecharEditor VB.

Observação

Não se esqueça deSTenha a apostila comoPasta de trabalho habilitada para macro.

---

---

1. Fórmula na célula M52(preencha):

=ExtractTextOnly(L52)

Ajuste as referências de células na fórmula conforme necessário.