Funktsioon Excel VBA TRIM (selgitatud näidetega)

Excelil on juba TRIM -töölehe funktsioon, mille abil saate vabaneda esi-, lõpp- ja lisavahetest sõnade/stringide vahel.

VBA -s on ka TRIM -funktsioon (ja see teeb täpselt sama asja - eemaldage täiendavad tühikud).

Miks me vajame VBA -s ka TRIM -funktsiooni?

Õiglane küsimus!

Kuigi tühikutest vabanemiseks saate töötada Exceli töölehtede sisseehitatud TRIM -funktsiooniga. mõnel juhul peate võib -olla seda tegema VBA abil.

See võib olla osa suuremast koodist.

Funktsiooni VBA TRIM süntaks

TRIM (string)

„String” on argument, mis võib olla tekstistring või muutuja, mis sisaldab tekstistringi.

Õpime paari näite abil kasutama funktsiooni VBA TRIM.

Näide 1 - Tulemuse kuvamine sõnumikastis

Oletame, et lahtris A1 on järgmine tekst

Pange tähele, et enne ja pärast lauset on tühikuid.

Allolev kood võtaks selle lause ja näitaks tulemust pärast täiendavate tühikute kärpimist

AlamkärpimineNäide1 () MsgBoxi kärpimine (vahemik ("A1")) Lõpu alamosa

Funktsiooni TRIM kasutamisel VBA -s tuleb teada üht olulist asja - see eemaldab ainult esi- ja lõppruumid. See ei eemalda sõnade vahelt täiendavaid tühikuid (mida teeb töölehe sisseehitatud TRIM-funktsioon).

Oletame näiteks, et lahtris A1 on järgmine tekst (sõnade vahele lisatakse tühikud):

Kui kasutan ülaltoodud VBA -koodi, kuvatakse sellel sõnumikast, nagu allpool näidatud:

Nagu näete sõnumikasti tulemusest, ei eemalda sõnade vahelised lisavahed funktsiooni VBA TRIM abil.

Mis on siis alternatiiv?

Kui soovite sõnade vahelt eemaldada esi-, lõpp- ja topeltvahed, on parem kasutada järgmist koodi.

Sub TrimExample1 () MsgBox WorksheetFunction.Trim (Vahemik ("A1")) Lõpu alam

Ülaltoodud kood kasutab töölehe TRIM funktsiooni (selle asemel, et kasutada funktsiooni TRIM VBA -s).

Märkus. VBA kärpimisfunktsioon ei eemalda tühimärkideta tähemärke (nt uued read (vbNewLine, vbCrLf) jne.

Näide 2 - Kiiresti eemaldage lahtrite vahemikust juht- ja lõppruumid

Oletame, et teil on allpool näidatud andmekogum, kus on esi- ja lõppruumid.

Alloleva koodi abil saate need andmed koheselt puhastada ja eemaldada kõik esi- ja lõppruumid.

Sub TrimExample1 () Dim Rng kui vahemik Määra Rng = Iga lahtri valimine Rng lahtris. Väärtus = kärpimine (lahter) Järgmise lahtri lõpu alam

Ülaltoodud kood läbib kõik valiku lahtrid ja eemaldab esi- ja lõppruumid.

Samuti võivad teile meeldida järgmised Exceli/VBA õpetused:

• 10 viisi andmete puhastamiseks Excelis.
• Exceli VBA poolitusfunktsioon.
• Funktsioon Excel VBA InStr.
• VBA LCase funktsioon.
• VBA UCase funktsioon.
• Kasutaja määratud funktsiooni (UDF) loomine Excel VBA -s.