Denne vejledning viser, hvordan du bruger funktionerne Trim, LTrim og RTrim VBA samt Trim -regnearksfunktionen.
Beskæringsfunktion
VBA Trim -funktionen fjerner ("trimmer") fejlagtige mellemrum før og efter tekststrenge.
Trim mellemrum før og efter tekst
VBA Trim -funktionen fjerner mellemrum før og efter tekststrenge:
| 12345678910 | SubtrimExample_1 ()MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
Trim flere mellemrum før og efter tekst
Dette inkluderer trimning af flere mellemrum før og efter tekst:
| 12345678910 | SubtrimExample_2 ()MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
VBA Trim fjerner IKKE flere mellemrum mellem ord
Trim -funktionen fjerner imidlertid ikke flere mellemrum mellem ord:
| 12345678910 | SubtrimExample_3 ()MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
Trim som et regnearksfunktion
Excel Trim -regnearksfunktionen kan dog bruges til at fjerne ekstra mellemrum mellem ord:
Brug trimark til regneark i VBA
Hvis du vil bruge Excel Trim -funktionen i VBA, skal du kalde det ved hjælp af WorksheetFunction:
| 12345678910 | Subtrimeksempel_4 ()Msgbox WorksheetFunction.Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
Træt af at søge efter eksempler på VBA -kode? Prøv AutoMacro!
Forskellen mellem WorksheetFunction.Trim og VBA Trim
Dette vil demonstrere forskellene mellem Trim og WorksheetFunction.Trim:
| 1234567891011121314151617 | Subtrimeksempel_5 ()Msgbox WorksheetFunction.Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Msgbox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
Brug VBA til at tilføje trimfunktion i et område
Funktionen Trim regneark kan tilføjes i et område ved hjælp af egenskaben. Formel:
| 123 | Subtrimeksempel_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formel = "= trim (A1)"Afslut Sub |
LTrim -funktion
LTrim -funktionen fjerner kun mellemrum fra venstre side af ordet:
| 12345678910111213141516171819 | Subtrimeksempel_7 ()MsgBox LTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
RTrim -funktion
RTrim -funktionen fjerner kun mellemrum fra højre side af ordet:
| 12345678910111213141516171819 | Subtrimeksempel_8 ()MsgBox RTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox RTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox RTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox RTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox RTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox RTrim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"Afslut Sub |
Trim, Ltrim og Rtrim fjerner ikke mellemrum mellem ord.
Fjern alle mellemrum fra teksten
Trim fjerner kun ekstra mellemrum mellem ordene, men for at fjerne alle mellemrum i en tekststreng kan du bruge funktionen Erstat:
| 1234 | Sub ReplaceExample ()MsgBox Replace ("Jeg elsker excel", "", "")'Resultatet er: "Iloveexcel"Afslut Sub |
