............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Depurar Numeros en Texto

Ver el tema anterior Ver el tema siguiente Ir abajo

Depurar Numeros en Texto

Mensaje por GalileoGali el Mar Dic 30, 2008 7:11 am

Supongamos tengo en la columna "A" una serie de nombres, con inclusion dentro de los mismos nombres de algunos numeros: ejemplo
34RAMIREZ, Carlos 156
25 GONZALEZ, Raquel 7 Esther

Se busca obtener esto:
RAMIREZ, Carlos
GONZALEZ, Raquel Esther

Probar esto:
Código:
Option Explicit
Sub limpiar()
Dim ultfila As Long, i As Integer
Dim rngColA As Range, rngCell As Range
Dim stRngCell As String, stLetter As String
Application.ScreenUpdating = False
ultfila = Cells(Rows.Count, "A").End(xlUp).Row
Set rngColA = Range("A1:A" & ultfila)
For Each rngCell In rngColA
If rngCell = Empty Then
Else
stRngCell = rngCell.Value
For i = 1 To Len(rngCell)
stLetter = Mid(stRngCell, i, 1)
If IsNumeric(stLetter) Then
stRngCell = Replace(stRngCell, stLetter, "|")
End If
Next i
rngCell.Value = Replace(stRngCell, "|", "")
End If
Next rngCell
End Sub
eL CODIGO PUEDE MEJORARSE MUCHO, ENTRE OTRAS SUGERENCIAS SE HARA MAS VELOZ, UTILIZANDO Regular Expressions

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.