Hola !
Te voy a pasar una macro que hará lo que indicas:
Código:
Sub ReemplazosVarios()
For Each Celda In Selection
Celda.Formula = Right(Celda.Value, Len(Celda.Value) - 4)
Next
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub
COMENTARIOS:
1) Si no sabes como incorporar esta macro te explico como hacerlo:
a) en la planilla donde tienes el problema y mientras mantienes apretada la tecla "
Alt" oprimes la tecla "
F8".
b) Donde te pide que pongas un nombre de macro escribes
Macro1 y seleccionas
Crear.
c) Te aparecerá lo siguiente:
que lo reemplazarás TOTALMENTE por el texto anterior.
d) Cierras la ventana que tiene que ver con el Visual Basic, retornas a EXCEL y comienzas a usar la macro.
e) Su uso es muy sencillo:
seleccionas el texto que deseas corregir (esta es la clave operativa), vuelves a presionar
Alt + F8, seleccionas (si es que ya no lo está)
ReemplazosVarios y seleccionas
Ejecutar...
f) Esto te va a funcionar correctamente SIEMPRE QUE se mantenga el mismo formato, es decir: 4 caracteres iniciales a descartar y "puntos" a eliminar.
Pruébalo y luego nos cuentas.
Saludos