Hola a todos. Tengo una serie de datos (4,872) que contienen cadenas de texto a los cuales hay que suprimir espacios intermedios. He intentado con las funciones Suprimir, Reemplazar y no lo he logrado. Igualmente. con la opción Buscar y reemplazar sin éxito. Las cadenas de texto tienen esta estructura:

00: 01: 04,600  -->  00: 01: 09,599  El espacio que hay que suprimir es el que se encuentra después de los dos puntos (:), es decir, que debe quedar así; 00:01:04,600  -->  00:01:09,599

Aspiro a que alguien me ayude con una macro que me permita hacer esta tarea y, para el efecto, adjunto un archivo con una muestra. Muchísimas gracias.

FORMATO.xlsx

Editado el el 22 de abril4 años por Antonio

Selecciona el rango a convertir y ejecuta esta macro:

Sub Reemplazar()
  For Each celda In Selection
     celda.Value = Replace(celda, ": ", ":")
  Next
End Sub

 

Muchísimas gracias, Antoni, por tu valiosa ayuda. Funcionó perfecto. Podemos dar por solucionado el tema.