Este tutorial demostrará cómo usar las funciones Trim, LTrim y RTrim VBA, así como la función de hoja de trabajo Trim.
Función de recorte
La función VBA Trim elimina ("recorta") los espacios erróneos antes y después de las cadenas de texto.
Recortar espacios antes y después del texto
La función VBA Trim eliminará los espacios antes y después de las cadenas de texto:
12345678910 | Sub TrimExample_1 ()MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
Recortar varios espacios antes y después del texto
Esto incluye recortar varios espacios antes y después del texto:
12345678910 | Sub TrimExample_2 ()MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
VBA Trim NO eliminará múltiples espacios entre palabras
Sin embargo, la función Recortar no eliminará varios espacios entre palabras:
12345678910 | Sub TrimExample_3 ()MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
Recortar como función de hoja de trabajo
Sin embargo, la función de hoja de cálculo de Excel Trim se puede utilizar para eliminar espacios adicionales entre palabras:
Utilice la función de recorte de la hoja de trabajo en VBA
Para usar la función de recorte de Excel en VBA, llámelo usando WorksheetFunction:
12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox WorksheetFunction.Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox WorksheetFunction.Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
¿Cansado de buscar ejemplos de código VBA? ¡Prueba AutoMacro!
Diferencia entre WorksheetFunction.Trim y VBA Trim
Esto demostrará las diferencias entre Trim y WorksheetFunction.Trim:
1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox WorksheetFunction.Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox WorksheetFunction.Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"Msgbox Trim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
Use VBA para agregar la función de recorte en un rango
La función Recortar hoja de trabajo se puede agregar en un rango usando la propiedad .Fórmula:
123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"End Sub |
Función LTrim
La función LTrim elimina espacios solo del lado izquierdo de la palabra:
12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox LTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox LTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox LTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox LTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox LTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
Función RTrim
La función RTrim elimina espacios solo del lado derecho de la palabra:
12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox RTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox RTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox RTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox RTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"MsgBox RTrim ("Me encanta Excel")El resultado es: "Me encanta Excel"End Sub |
Trim, Ltrim y Rtrim no eliminan espacios entre palabras.
Eliminar todos los espacios del texto
Recortar solo eliminará los espacios adicionales entre las palabras, pero para eliminar todos los espacios en una cadena de texto, puede usar la función Reemplazar:
1234 | Sub ReplaceExample ()MsgBox Replace ("Me encanta Excel", "", "")'El resultado es: "Iloveexcel"End Sub |