Cómo quitar los espacios en blanco de un rango de celdas con VBA


La fórmula Espacios de Excel elimina los espacios en blanco de una cadena de texto en una celda de Excel.


Aplicar las fórmulas en inglés

Muchas veces me he encontrado con el problema de saber cómo funciona en Excel una fórmula, pero no saber aplicarla en Visual Basic. He descubierto que la aplicación de las fórmulas en VBA siempre debe hacerse con la fórmula en inglés. 

En esta ocasión, necesitaba aplicar la fórmula Espacios. Esta fórmula elimina los espacios en blanco sobrantes por delante y por detrás de una cadena de texto.

Fórmula Trim

La versión para Visual Basic es la función Trim. Esta fórmula se puede emplear de 3 formas distintas:
  • Ltrim: elimina los espacios en blanco de la izquierda del texto, es decir, los espacios iniciales.
  • Rtrim: elimina los espacios en blanco de la derecha del texto, es decir, los espacios finales.
  • Trim: elimina los espacios en blanco tanto por la derecha como por la izquierda del texto, es decir elimina los espacios iniciales y los finales.
En el ejemplo siguiente, estamos seleccionando un rango de celdas, previa declaración de la variable Range y aplica la fórmula Espacios en toda la selección.

Dim celda as Range
     Range("B2:B30").Select
          For Each celda In Selection
              celda.Value = Trim(celda.Value)
          Next

No hay comentarios:

Publicar un comentario

Otras entradas