Funktsioonid VBA kärpimine, LTrim ja RTrim - tühikute eemaldamine tekstist

See õpetus näitab, kuidas kasutada funktsioone Trim, LTrim ja RTrim VBA ning töölehe Trim funktsiooni.

Kärpimisfunktsioon

Funktsioon VBA kärpimine eemaldab (“kärbib”) ekslikud tühikud enne ja pärast tekstistringe.

Kärpige tühikuid enne ja pärast teksti

Funktsioon VBA kärpimine eemaldab tühikud enne ja pärast teksti stringe:

12345678910

AlamkatkestusNäide_1 ()MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

Kärpige mitu tühikut enne ja pärast teksti

See hõlmab mitme tühiku kärpimist enne ja pärast teksti:

12345678910

AlamkatkestusNäide_2 ()MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

VBA Trim EI Eemalda sõnade vahelt mitu tühikut

Kuid kärpimisfunktsioon ei eemalda sõnade vahelt mitut tühikut:

12345678910

AlamkatkestusExample_3 ()MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

Kärpimine töölehe funktsioonina

Siiski saab Exceli kärpimise töölehe funktsiooni kasutada lisavahede eemaldamiseks sõnade vahel:

Kasutage VBA -s töölehe kärpimisfunktsiooni

VBA -s Exceli kärpimisfunktsiooni kasutamiseks helistage sellele, kasutades töölehteFunction:

12345678910

AlamkatkestusExample_4 ()Msgboxi töölehtFunktsioon.Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgboxi töölehtFunktsioon.Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgboxi töölehtFunktsioon.Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

Kas olete väsinud VBA koodinäidete otsimisest? Proovige AutoMacrot!

Töölehefunktsiooni.Trim ja VBA Trim vahe

See näitab erinevusi Trim ja WorksheetFunction vahel. Trimm:

1234567891011121314151617

AlamkatkestusExample_5 ()Msgboxi töölehtFunktsioon.Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgbox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgboxi töölehtFunktsioon.Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgbox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgboxi töölehtFunktsioon.Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "Msgbox Trim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

Kasutage kärpimisfunktsiooni lisamiseks vahemikku VBA

Töölehe kärpimise funktsiooni saab atribuudi abil vahemikku lisada. Valem:

123	AlamkatkestusExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Vahemik ("B1"). Valem = "= trim (A1)"End Sub

Funktsioon LTrim

Funktsioon LTrim eemaldab tühikud ainult sõna vasakult küljelt:

12345678910111213141516171819

AlamkatkestusExample_7 ()MsgBox LTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox LTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox LTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox LTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox LTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox LTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

Funktsioon RTrim

Funktsioon RTrim eemaldab tühikud ainult sõna paremast servast:

12345678910111213141516171819

AlamkatkestusExample_8 ()MsgBox RTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox RTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox RTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox RTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox RTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "MsgBox RTrim ("Ma armastan excelit")"Tulemus on:" Ma armastan excelit "End Sub

Trim, Ltrim ja Rtrim ei eemalda sõnade vahelt tühikuid.

Eemaldage tekstist kõik tühikud

Kärpimine eemaldab sõnade vahelt ainult täiendavad tühikud, kuid tekstirida kõikide tühikute eemaldamiseks võite kasutada funktsiooni Asenda:

1234	AlamvahetusNäide ()MsgBox Replace ("Ma armastan excelit", "", "")Tulemus on: "Iloveexcel"End Sub