Macro Excel para quitar todos los espacios del texto

Compatibilidad: Excel 365 2021 2019 2016

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

- Consultar:

13 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.

  • Hola disculpa una pregunta y si quiero borraro todos los espacios incluyendo el que esta entre los nombres como podria hacer? gracias por su valioso aporte.

  • Tengo el mismo problema al querer borrar absolutamente todos los espacios,
    la funcion de sustituir se vuelve muy lenta al ser demasiados registros, alguna otra sugerencia?

  • Buen día, generalmente utilizo la conversión de pdf a excel en archivos muy extensos, tengo dos preguntas en particular, 1. Hay celdas que aparecen con espacio vertical (alt+enter), estos no deben ir, existe alguna fórmula que borre todos estos espacios y 2. Generalmente estas bases de datos repiten las filas de título de la tabla en cada hoja, hay alguna forma que permita quitar esos títulos que aparecen en el archivo al corte de cada página.

    • Hola Rosa María,

      1. Si el caracter Alt+Enter no reemplaza el espacio, puedes aplicar la función ESPACIOS (en caso negativo solo mediante macros).
      2. Solo con macros y ver si existe un patrón de repetición.

      Saludos.

Deja una respuesta

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

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.