Excel VBA TRIM funkcija (razloženo s primeri)

Excel že ima funkcijo delovnega lista TRIM, s katero se lahko znebite začetnih, končnih in dodatnih presledkov med besedami/nizi.

Tudi v VBA je funkcija TRIM (in počne popolnoma enako - odstrani dodatne presledke).

Zakaj potrebujemo funkcijo TRIM tudi v VBA?

Pošteno vprašanje!

Čeprav lahko delate z vgrajeno funkcijo TRIM v Excelovih delovnih listih, da se znebite presledkov. v nekaterih primerih boste to morda morali storiti z uporabo VBA.

To je lahko del večje kode.

Sintaksa funkcije VBA TRIM

TRIM (niz)

"Niz" je argument, ki je lahko besedilni niz ali spremenljivka, ki vsebuje besedilni niz.

Naučimo se uporabljati funkcijo VBA TRIM z nekaj primeri.

Primer 1 - Prikaz rezultata v polju za sporočila

Recimo, da imate v celici A1 naslednje besedilo

Upoštevajte, da so pred in za stavkom presledki.

Spodnja koda bi vzela ta stavek in pokazala rezultat po obrezovanju dodatnih presledkov

Sub TrimExample1 () MsgBox Trim (obseg ("A1")) End Sub

Pri uporabi funkcije TRIM v VBA morate vedeti eno pomembno stvar - odstranili boste le začetni in zadnji razmik. Ne bo odstranil dodatnih presledkov med besedami (kar počne vgrajena funkcija TRIM na delovnem listu).

Recimo, da imate v celici A1 naslednje besedilo (z dodatnimi presledki med besedami):

Če uporabim zgornjo kodo VBA, bo prikazano polje s sporočilom, kot je prikazano spodaj:

Kot lahko vidite v rezultatu polja za sporočila, funkcija VBA TRIM ne odstrani dodatnih presledkov med besedami.

Kaj je potem alternativa?

Če želite odstraniti začetne, zadnje in dvojne presledke med besedami, je bolje uporabiti naslednjo kodo:

Sub TrimExample1 () Funkcija delovnega lista MsgBox.Trim (obseg ("A1")) End Sub

Zgornja koda uporablja funkcijo TRIM delovnega lista (namesto funkcije TRIM v VBA).

Opomba: Funkcija VBA Trim ne odstrani znakov, ki niso presledki - na primer novih vrstic (vbNewLine, vbCrLf) itd.

Primer 2 - Hitro odstranite vodilne in zadnje prostore iz vrste celic

Recimo, da imate nabor podatkov, kot je prikazano spodaj, kjer sta začetni in zadnji razmik:

S spodnjo kodo lahko takoj očistite te podatke in odstranite vse začetne in zadnje razmike:

Sub TrimExample1 () Dim Rng As Range Set Rng = Izbor za vsako celico v Rng celici. Vrednost = Trim (celica) Naslednja celica Sub Sub

Zgornja koda gre skozi vse celice pri izbiri in odstrani začetni in zadnji razmik.

Morda vam bodo všeč tudi naslednji vadnici Excel/VBA:

• 10 načinov za čiščenje podatkov v Excelu.
• Excelova funkcija VBA Split.
• Excel VBA InStr funkcija.
• VBA LCase funkcija.
• VBA UCase funkcija.
• Ustvarjanje uporabniško določene funkcije (UDF) v Excelu VBA.