VBA Trim-, LTrim- en RTrim-functies - Spaties uit tekst verwijderen

Deze tutorial laat zien hoe u de Trim-, LTrim- en RTrim VBA-functies en de Trim-werkbladfunctie kunt gebruiken.

Trimfunctie

De VBA Trim-functie verwijdert ('trimt') foutieve spaties voor en na tekstreeksen.

Spaties voor en na tekst bijsnijden

De VBA Trim-functie verwijdert spaties voor en na tekstreeksen:

12345678910

Sub TrimExample_1()MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

Trim meerdere spaties voor en na tekst

Dit omvat het bijsnijden van meerdere spaties voor en na tekst:

12345678910

Sub TrimExample_2()MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

VBA Trim zal NIET meerdere spaties tussen woorden verwijderen

De Trim-functie verwijdert echter niet meerdere spaties tussen woorden:

12345678910

Sub TrimExample_3()MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

Trimmen als werkbladfunctie

De Excel Trim-werkbladfunctie kan echter worden gebruikt om extra spaties tussen woorden te verwijderen:

Werkblad Trim-functie gebruiken in VBA

Om de Excel Trim-functie in VBA te gebruiken, roept u deze aan met behulp van WorksheetFunction:

12345678910

Sub TrimExample_4()Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

Moe van het zoeken naar voorbeelden van VBA-codes? Probeer AutoMacro!

Verschil tussen WorksheetFunction.Trim en VBA Trim

Dit zal de verschillen tussen Trim en WorksheetFunction.Trim demonstreren:

1234567891011121314151617

Sub TrimExample_5()Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox WorksheetFunction.Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Msgbox Trim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

Gebruik VBA om de Trim-functie in een bereik toe te voegen

De functie Werkblad bijsnijden kan in een bereik worden toegevoegd met de eigenschap .Formula:

123	Sub TrimExample_6()ThisWorkbook.Worksheets("Blad1").Bereik("B1").Formule = "=trim(A1)"Einde sub

LTrim-functie

De LTrim-functie verwijdert alleen spaties aan de linkerkant van het woord:

12345678910111213141516171819

Sub TrimExample_7()MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox LTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

RTrim-functie

De RTrim-functie verwijdert alleen spaties aan de rechterkant van het woord:

12345678910111213141516171819

Sub TrimExample_8()MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"MsgBox RTrim ("Ik hou van Excel")'Resultaat is: "Ik hou van excel"Einde sub

Trim, Ltrim en Rtrim verwijderen geen spaties tussen woorden.

Alle spaties uit tekst verwijderen

Trim verwijdert alleen extra spaties tussen woorden, maar om alle spaties in een reeks tekst te verwijderen, kunt u de functie Vervangen gebruiken:

1234	Sub VervangVoorbeeld ()MsgBox Replace(" I love excel ", " ", "")'Resultaat is: "Iloveexcel"Einde sub