Macro Excel para quitar todos los espacios del texto

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

En ocasiones al importar datos o escribir en las celdas se incluyen espacios adicionales al comienzo, al final o entre palabra y palabra (más de uno), necesitando una macro Excel para quitar todos los espacios del texto.

En Excel disponemos de la función ESPACIOS que realiza dicha labor.

Macro Excel para quitar todos los espacios del texto

Disponemos del rango A2:A5 con el origen de los datos. Y deseamos eliminar los espacios que incluye:

– A2. Texto sin espacios.

– A3. Espacios delante del texto (nombre).

– A4. Espacios entre el nombre y apellido.

– A5. Espacios al final del texto (apellido).

 AB
1Nombre 
2Ana Ramos 
3     Ana Ramos 
4Ana    Ramos 
5Ana Ramos 

Si filtramos los datos o buscamos a Ana Ramos, sólo obtendremos un resultado en lugar de cuatro.

  • CREAR MACRO

  1. Abrir el libro deseado / Guardar con la extensión *.xlsm. Libro habilitado para macros.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

  4. Escribir el código de la macro:

    Sub EliminaEspacios()

    Dim celda As Range

    For Each celda In Selection

    celda.Value = WorksheetFunction.Trim(celda.Value)

    Next

    End Sub

    – Trim ejecuta la función VBA equivalente a espacio en Excel.

  • EJECUTAR MACRO

  1. Seleccionar el rango A2:A5. Rango con espacios que deseamos eliminar.

  2. Ir a: Cinta de Opciones / Pestaña: Programador o Desarrollador (según la versión Excel) / Grupo: Código / Macros; O también, Atajo de teclado Alt+F8. Mostrará cuadro de diálogo de macro.

  3. Ir a: Nombre de la macro / Clic sobre la macro: EliminaEspacios.

  4. Pulsar el botón Ejecutar. Reproducirá la macro.

    Rango Excel A2:A5 con espacios eliminados en el texto
  5. Ir a: Verificar como se eliminan los espacios, ahora en todas las celdas tendremos el mismo nombre.

Para reproducir la macro se podrá insertar una acceso directo en la barra de acceso rápido, en la cinta de opciones o en un botón.

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA – Macros

2 comentarios en “Macro Excel para quitar todos los espacios del texto

    • Hola Freddy,

      No comprendo bien tu consulta, ya que al escribir en una celda podemo incluir los espacios deseados.

      Si te refieres a:
      – Poner texto en diferentes líneas: Nos situamos en el texto donde cortar la linea y pulsar Alt + Enter.
      – Distribuir el texto al ancho de la celda. Sobre la celda / botón derecho / Formato de celdas.
      Ir a Pestaña: Alineación / Horizontal / Seleccionar: Distribuido (sangría).

      Espero te sea útil.

      Saludos.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *