Rutina para extraer un numero que esta en la parte final de un texto
Hola expertos
tengo una columna con datos de texto en cada celda en los que, al final de cada frase, hay un numero. Necesito extraer este número pero el problema es que, en la frese puede haber otros números pero solo interesa el ultimo y que entre la ultima letra de la frase y el numero no hay ningún espacio ni separador.¿Existe alguna rutina para hacerlo? Por si no me he explicado bien os pongo un ejemplo.
ejemplo: Grupo 4Grupo 3Grupos 1-28Procedimiento quirúrgico sin complicación o comorbididad5.099,56
El numero a extraer es el último. Tanto el número como la frase de texto son variables. Eso sí, el numero a extraer siempre está al final de la frase.
¿es posible hacerlo? Si no me tocara hacerlo a mano... Y son mas de 2000
Gracias de antemano por vuestra ayuda
1 Respuesta
Posiciónate en la primera celda de esa columna y después ejecuta esta macro:
Sub proceso() 'por luismondelo Do While ActiveCell.Value <> "" tope = Len(ActiveCell) For x = tope To 1 Step -1 extrae = Mid(ActiveCell, x, 1) If IsNumeric(extrae) Then lista = extrae & lista End If If extrae = "," Then lista = extrae & lista End If If Not IsNumeric(extrae) And extrae <> "," And extrae <> "." Then Exit For Next ActiveCell.Offset(0, 1).Value = lista lista = "" ActiveCell.Offset(1, 0).Select Loop End Sub
recuerda finalizar la consulta
Hola, gracias por la rapidez.
He probado la rutina pero no hace nada. Recorre todas las celdas de la columna pero no extrae el numero ningún número.
En el siguiente enlace de dejo un fichero con la macro funcionando
http://share.myflare.com/F6XKSL
No olvides finalizar la consulta
Hola de nuevo
algo le pasa a mi archivo porque si pongo datos manualmente funciona perfectamente, como en el tuyo, pero si los datos son los están en mi listado o si copio mis datos a tu hoja, no extrae nada. Es como si no reconociera el texto o algo así. He intentado cambiar el formato pero tampoco. Se te ocurre algo??
Quizás si me mandas tu archivo (con los datos reducidos) pueda ayudarte mejor
Hola luis
ayer te mande el archivo
saludos
Si... hoy te lo mando resuelto
