Funkcia Excel VBA TRIM (vysvetlené s príkladmi)

Excel už má funkciu pracovného listu TRIM, pomocou ktorej sa môžete zbaviť úvodných, koncových a medzier medzi slovami/reťazcami.

Vo VBA existuje aj funkcia TRIM (a robí presne to isté - odstráňte nadbytočné medzery).

Prečo potrebujeme funkciu TRIM aj vo VBA?

Spravodlivá otázka!

Aj keď môžete pracovať so vstavanou funkciou TRIM v pracovných hárkoch programu Excel, aby ste sa zbavili medzier. v niektorých prípadoch to možno budete musieť urobiť pomocou VBA.

Mohlo by to byť súčasťou väčšieho kódu.

Syntax funkcie VBA TRIM

TRIM (reťazec)

„Reťazec“ je argument, ktorým môže byť textový reťazec alebo premenná obsahujúca textový reťazec.

Naučme sa používať funkciu VBA TRIM na niekoľkých príkladoch.

Príklad 1 - Zobrazenie výsledku v okne správy

Predpokladajme, že v bunke A1 máte nasledujúci text

Všimnite si toho, že pred a za vetou sú medzery.

Nasledujúci kód by vzal túto vetu a ukázal výsledok po orezaní medzier

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

Pri použití funkcie TRIM vo VBA je jedna dôležitá vec - odstráni iba úvodné a koncové medzery. Neodstráni medzery medzi slovami (čo robí vstavaná funkcia TRIM v pracovnom hárku).

Predpokladajme napríklad, že máte v bunke A1 nasledujúci text (s medzerami medzi slovami):

Ak použijem vyššie uvedený kód VBA, zobrazí sa okno so správou, ako je uvedené nižšie:

Ako vidíte vo výsledku poľa správy, medzery medzi slovami nie sú odstránené funkciou VBA TRIM.

Potom aká je alternatíva?

Ak chcete odstrániť úvodné, koncové a dvojité medzery medzi slovami, je lepšie použiť nasledujúci kód:

Sub TrimExample1 () MsgBox WorksheetFunction.Trim (Range ("A1")) End Sub

Vyššie uvedený kód používa funkciu TRIM pracovného hárka (namiesto použitia funkcie TRIM vo VBA).

Poznámka: Funkcia VBA Trim neodstraňuje znaky, ktoré nie sú prázdne, napríklad nové riadky (vbNewLine, vbCrLf) atď.

Príklad 2 - Rýchlo odstráňte úvodné a zadné medzery z radu buniek

Predpokladajme, že máte množinu údajov, ako je uvedené nižšie, kde sú úvodné a koncové medzery:

Nasledujúci kód môžete použiť na okamžité vyčistenie týchto údajov a odstránenie všetkých úvodných a koncových medzier:

Sub TrimExample1 () Dim Rng As Range Set Rng = Selection for each Cell in Rng Cell.Value = Trim (Cell) Next Cell End Sub

Vyššie uvedený kód prechádza všetkými bunkami vo výbere a odstraňuje úvodné a koncové medzery.

Tiež by sa vám mohli páčiť nasledujúce návody Excel/VBA:

• 10 spôsobov, ako vyčistiť údaje v programe Excel.
• Funkcia rozdelenia VBA programu Excel.
• Funkcia Excel VBA InStr.
• Funkcia VBA LCase.
• Funkcia VBA UCase.
• Vytvorenie funkcie definovanej používateľom (UDF) v programe Excel VBA.