¿Existe alguna fórmula en Excel 2013 que pueda usarse para eliminar dígitos de las filas?
Quiero dejar solo letras y símbolos.
La fórmula debe funcionar para números que pueden aparecer en cualquier posición, aunque todos estén precedidos por un espacio.
Buscar y reemplazar no funcionará ya que son series diferentes de números y algunos de ellos tienen una coma o simplemente un nombre delante.
Hoja de cálculo inicial:
- Baleys, 23 Glencoe Road
- Despreocupado, cabina Data No 4
- Pueblo de Dundas, 222 Jardín Secreto
- 88 Byron Crescent, Verona
Lo que quiero:
- Baleys, Glencoe Road
- Sin preocupaciones, datos sin cabina
- Pueblo de Dundas, jardín secreto
- Byron Crescent, Verona
Respuesta1
Me gustaría sugerir VBA Macro, es el método más rápido y también fácil de usar.
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
Cómo funciona:
- Para abrir VB Editor presioneAlt+F11oBotón derecho del ratónla pestaña Hoja y luego presioneVer código.
- Haga clic enInsertary seleccioneMódulo.
- Pegareste código enMETROodulo yCercaEditor VB.
NÓTESE BIEN
No olvidesSguarde el libro de trabajo comoLibro de trabajo habilitado para macros.
- Fórmula en la celda
M52
(complétela):
=ExtractTextOnly(L52)
Ajuste las referencias de celda en la fórmula según sea necesario.