Eliminar espacios vacíos de columnas en VBA

Eliminar espacios vacíos de columnas en VBA

Estoy intentando analizar datos en 2 columnas, para que ya no existan espacios. Encontré este fragmento de código que elimina los espacios iniciales y finales, pero no los espacios contenidos en ellos. ¿Qué cambios debo hacer en este código para que se eliminen todos los espacios?

Sub Remove_Spaces()

Dim rng As Range

Set rng = Range("C:D")
rng.Value = Application.Trim(rng)

End Sub

Gracias

Respuesta1

Mi respuesta a su requerimiento no se basa en código VBA ni en macros.

Se puede lograr en unos pocos pasos: en primer lugar, a continuación proporciono la imagen de los datos que he utilizado y los resultados a los que obtuve, para una referencia rápida.

DATA DE MUESTRA

Solución paso-a-paso

Gracias.

Respuesta2

La declaración

Selection.Replace " ", ""

(sugerido por PeterH) trabajó para mi.

información relacionada