Sobre Excel

[mrocf]

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:

Sub Macro1()
End Sub

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