Denne opplæringen vil demonstrere hvordan du bruker funksjonene Trim, LTrim og RTrim VBA samt Trim -regnearkfunksjonen.
Trimfunksjon
VBA Trim -funksjonen fjerner ("trimmer") feilaktige mellomrom før og etter tekststrenger.
Trim mellomrom før og etter tekst
VBA Trim -funksjonen fjerner mellomrom før og etter tekststrenger:
| 12345678910 | Sub TrimExample_1 ()MsgBox Trim ("I love 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"Slutt Sub |
Trim flere mellomrom før og etter tekst
Dette inkluderer trimming av flere mellomrom før og etter tekst:
| 12345678910 | Sub TrimExample_2 ()MsgBox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Slutt Sub |
VBA Trim fjerner IKKE flere mellomrom mellom ord
Trim -funksjonen fjerner imidlertid ikke flere mellomrom mellom ord:
| 12345678910 | Sub TrimExample_3 ()MsgBox Trim ("Jeg elsker excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Slutt Sub |
Trim som en regnearkfunksjon
Excel Trim -regnearkfunksjonen kan imidlertid brukes til å fjerne ekstra mellomrom mellom ord:
Bruk Trimfunksjon for regneark i VBA
For å bruke Excel Trim -funksjonen i VBA, kall det ved hjelp av WorksheetFunction:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Slutt Sub |
Lei av å søke etter eksempler på VBA -kode? Prøv AutoMacro!
Forskjellen mellom WorksheetFunction.Trim og VBA Trim
Dette vil demonstrere forskjellene mellom Trim og WorksheetFunction.Trim:
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox WorksheetFunction.Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Msgbox Trim ("I love excel")'Resultatet er: "Jeg elsker excel"Slutt Sub |
Bruk VBA til å legge til trimfunksjon i et område
Trim regnearkfunksjonen kan legges til i et område ved hjelp av egenskapen.
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Ark1"). Område ("B1"). Formel = "= trim (A1)"Slutt Sub |
LTrim -funksjon
LTrim -funksjonen fjerner bare mellomrom fra venstre side av ordet:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("I love excel")'Resultatet er: "Jeg elsker excel"MsgBox LTrim ("I love excel")'Resultatet er: "Jeg elsker excel"Slutt Sub |
RTrim -funksjon
RTrim -funksjonen fjerner bare mellomrom fra høyre side av ordet:
| 12345678910111213141516171819 | Sub TrimExample_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"Slutt Sub |
Trim, Ltrim og Rtrim fjerner ikke mellomrom mellom ord.
Fjern alle mellomrom fra teksten
Trim fjerner bare ekstra mellomrom mellom ord, men for å fjerne alle mellomrom i en tekststreng kan du bruke Erstatt -funksjonen:
| 1234 | Sub ReplaceExample ()MsgBox Replace ("I love excel", "", "")'Resultatet er: "Iloveexcel"Slutt Sub |
