Para quitar los espacios en blanco en VBA, se utilizará la función Trim, esa función quitará aquellos espacios en blanco antes y después de un texto determinado. La siguiente imagen muestra una lista de 16 frases las cuales tienen espacios que deben ser eliminados.
Para comenzar con la función se ha establecido "Cell" y "AreaToTrim" como Rangos. Posteriormente se utiliza la función de escritura, donde "AreaToTrim" se define como aquel rango donde la función TRIM será aplicada. Finalmente, se aplicará la función en cada una de las celdas pertenecientes al rango antes determinado.
La función utilizada es la siguiente:
El resultado obtenido al aplicar el TRIM, es el siguiente:
Para ver más ejemplos, entrar al siguiente archivo y aplicar la macro llamada EliminarDeportes la cual se encuentra en el Módulo 1. Al ser aplicado, se eliminarán los espacios que estén en la lista de deportes.
Observar el ejemplo adjunto: EliminarEspaciosEnVBA
Algunas de las otras funciones que se pueden emplear son:
29/05/2022 a las 12:33 pm
Buenas tardes
Por ejemplo quiero una macro para extraer caracteres de un TextBox en una Formulario
Por ejemplo: tengo la palabra Altamirano Gonzales Pedro Ismael, quiero que en otro TextBox, quede AGPI
06/08/2023 a las 6:58 pm
YO PREFIERO TENER EL CONTROL POR ELLO HICE EL SIGUIENTE CODIGO FACIL;
SUB USAR_TRIM()
DIM RANGO AS RANGE
DIM CELL AS VARIANT
SET RANGO=SELECTION
FOR EACH CELL IN RANGO
CELL.VALUE=APPLICATION.WORKSHEETFUNCTION.TRIM(CELL.VALUE)
NEXT CELL
END SUB
SOLAMENTE SELECCIONO LO QUE DESEO APLICAR TRIM Y ASI YO TENGO EL CONTROL.