Denna handledning visar hur du använder funktionerna Trim, LTrim och RTrim VBA samt funktionen Trim -kalkylblad.
Trimfunktion
VBA Trim -funktionen tar bort ("trimmer") felaktiga mellanslag före och efter textsträngar.
Trimma mellanrum före och efter text
VBA Trim -funktionen tar bort mellanslag före och efter textsträngar:
| 12345678910 | Sub TrimExample_1 ()MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
Trimma flera mellanslag före och efter text
Detta inkluderar att trimma flera mellanslag före och efter text:
| 12345678910 | Sub TrimExample_2 ()MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
VBA Trim kommer INTE att ta bort flera mellanslag mellan ord
Trimfunktionen tar dock inte bort flera mellanslag mellan ord:
| 12345678910 | Sub TrimExample_3 ()MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
Trimma som ett kalkylblad
Funktionen Excel Trim -kalkylblad kan dock användas för att ta bort extra mellanslag mellan ord:
Använd Trimningsfunktion för kalkylblad i VBA
Om du vill använda Excel -trimningsfunktionen i VBA kallar du det med WorksheetFunction:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox WorksheetFunction.Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox WorksheetFunction.Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
Trött på att söka efter exempel på VBA -kod? Prova AutoMacro!
Skillnad mellan WorksheetFunction.Trim och VBA Trim
Detta kommer att visa skillnaderna mellan Trim och WorksheetFunction.Trim:
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox WorksheetFunction.Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox WorksheetFunction.Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Msgbox Trim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
Använd VBA för att lägga till trimfunktion i ett område
Funktionen Trimma kalkylblad kan läggas till i ett intervall med egenskapen. Formel:
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formel = "= trim (A1)"Avsluta Sub |
LTrim -funktion
LTrim -funktionen tar bara bort mellanslag från ordets vänstra sida:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox LTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox LTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox LTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox LTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox LTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
RTrim -funktion
RTrim -funktionen tar bara bort mellanslag från ordets högra sida:
| 12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox RTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox RTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox RTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox RTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"MsgBox RTrim ("Jag älskar excel")'Resultatet är: "Jag älskar excel"Avsluta Sub |
Trim, Ltrim och Rtrim tar inte bort mellanslag mellan ord.
Ta bort alla mellanslag från texten
Trim tar bara bort extra mellanslag mellan orden, men för att ta bort alla mellanslag i en textsträng kan du använda ersättningsfunktionen:
| 1234 | Sub ReplaceExample ()MsgBox Ersätt ("Jag älskar excel", "", "")'Resultatet är: "Iloveexcel"Avsluta Sub |
