Macros Excel para quitar espacios en diferentes posiciones

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

Al importar datos o al escribir, es habitual incluir espacios en blanco acompañando al texto, necesitando macros Excel para quitar espacios en diferentes posiciones.

Cuando el texto en una celda incluye espacios en blanco acompañando al texto, sí filtramos, ordeanamos o buscamos, por ejemplo, a "María" considera diferente si se muestra como "   María" o "María    ".

Macros Excel para quitar espacios en diferentes posiciones
  1. Con Excel abierto.

  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 deseada:

  

  • ELIMINAR ESPACIOS A LA IZQUIERDA DEL TEXTO

  1. Escribir el código de la macro:

    Sub EspacioIzquierda()

    Dim celda As Range

    For Each celda In Selection

    celda.Value = LTrim(celda.Value)

    Next

    End Sub

    – LTrim. Elimina todos los espacios de texto a su izquierda.

  2.  

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  4. Seleccionar el rango deseado / Ejecutar la macro y verificar como elimina los espacios al inicio del texto.

Hoja Excel con datos que incluyen espacios a la izquierda del texto y sin ellos
  • ELIMINAR ESPACIOS A LA DERECHA DEL TEXTO

  1. Escribir el código de la macro:

    Sub EspacioDerecha()

    Dim celda As Range

    For Each celda In Selection

    celda.Value = RTrim(celda.Value)

    Next

    End Sub

    – RTrim. Elimina todos los espacios de texto a su derecha.

  2.  

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  4. Seleccionar el rango deseado / Ejecutar la macro y verificar como elimina los espacios al final del texto.

Hoja Excel con datos que incluyen espacios a la derecha del texto y sin ellos
  • ELIMINAR ESPACIOS A LA IZQUIERDA Y DERECHA DEL TEXTO

  1. Escribir el código de la macro:

    Sub EspacioIzqDer()

    Dim celda As Range

    For Each celda In Selection

    celda.Value = Trim(celda.Value)

    Next

    End Sub

    – Trim. Elimina todos los espacios del texto, excepto los incluidos entre palabras.

  2.  

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  4. Seleccionar el rango deseado / Ejecutar la macro y verificar como elimina los espacios al inicio y al final del texto.

Hoja Excel con datos que incluyen espacios a la izquierda y a la derecha del texto y sin ellos
  • ELIMINAR ESPACIOS A LA IZQUIERDA, DERECHA Y ENTRE PALABRAS

  1. Escribir el código de la macro:

    Sub EspacioTodos()

    Dim celda As Range

    For Each celda In Selection

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

    Next

    End Sub

  2.  

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  4. Seleccionar el rango deseado / Ejecutar la macro y verificar como elimina los espacios al inicio, al final del texto y entre palabras (excepto una).

Hoja Excel con datos que incluyen espacios a la izquierda, a la derecha y entre palabras y sin espacios.
  • CARACTER 160

El carácter 160 en Excel se muestra como un espacio en blanco pero no lo es, ya que el espacio en blanco se corresponde con el carácter 32.

  1. Escribir el código de la macro:

    Sub EspacioCaracter160()

    Dim Cell As Range, Texto As Variant

    For Each Cell In Selection

    Texto = Cell.Value

    Texto = WorksheetFunction.Substitute(Texto, Chr(160), "")

    Cell.Value = Texto

    Next Cell

    End Sub

  2.  

  3. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

  4. Seleccionar el rango deseado / Ejecutar la macro y verificar como elimina el carácter 160, donde se encuentre insertado.

    

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

  

Un comentario en “Macros Excel para quitar espacios en diferentes posiciones

Deja un comentario

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