Saltar al contenido

Suprimir espacios intermedios en una cadena de texto

publicado

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

Featured Replies

publicado

Selecciona el rango a convertir y ejecuta esta macro:

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

 

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.