Funkcia Excel VBA TRIM
VBA TRIM je kategorizovaný pod reťazcovými a textovými funkciami, táto funkcia je funkcia pracovného hárka vo VBA a podobne ako odkaz na pracovný hárok sa táto funkcia používa na orezanie alebo odstránenie nežiaducich medzier z reťazca, vyžaduje jediný argument, ktorým je vstupný reťazec. a vráti výstup ako reťazec.
Existuje niekoľko situácií, keď sťahujeme údaje z online serverov, a čelíme situácii neorganizovaných údajov a nežiaducich priestorov v bunke. Zaobchádzanie s nepotrebnými priestormi je veľmi bolestivé. V bežných funkciách hárka máme funkciu s názvom TRIM v programe Excel, ktorá nás zbaví „vedúcich priestorov, koncových priestorov a medzipriestoru.“ Vo VBA tiež máme funkciu nazvanú TRIM, ktorá funguje úplne rovnako ako funkcia programu Excel, ale je tu iba jeden mierny rozdiel. Uvidíme to v tomto článku o niečo neskôr.

Čo robí funkcia trimovania?
TRIM je reťazcová funkcia, ktorá odstraňuje medzery v programe Excel z vybranej bunky. V priestoroch máme 3 typy „Vedúce priestory, Koncové priestory a medzipriestor.“
Leading Space nie je nič, ale ak v bunke začne akákoľvek hodnota, ak je v nej nejaký priestor, nazýva sa to Leading Space.

Koncový priestor nie je nič iné, len sa po konci hodnoty v bunke, ak je v ňom ešte nejaký priestor, nazýva ako koncový priestor.

In-Between Space je nič po konci každého slova; v ideálnom prípade by sme mali mať jeden znak medzery. Čokoľvek viac ako jedna vesmírna postava sa nazýva Medzi priestorom.

Aby sme prekonali všetky tieto druhy problémov, máme funkciu s názvom TRIM.
Syntax

Reťazec: Aký je reťazec alebo hodnota, ktorú chcete orezať? Môže to byť odkaz na bunku aj priame dodanie hodnoty do vzorca.
Príklady
Príklad č
Teraz uvidíme, ako odstrániť vedúce medzery v programe Excel pomocou funkcie TRIM. Postupujte podľa nasledujúcich krokov
Krok 1: Vytvorte názov makra a deklarujte premennú ako reťazec.
Kód:
Sub Trim_Example1 () Dim k ako reťazec End Sub

Krok 2: Teraz pre túto deklarovanú premennú priraďte hodnotu pomocou TRIM.
Kód:
Sub Trim_Example1 () Dim k As String k = Trim (End Sub

Krok 3: Pre tento typ reťazca je slovo v dvojitých úvodzovkách označené ako „Vitajte vo VBA“.
Kód:
Sub Trim_Example1 () Dim k As String k = Trim („Vitajte vo VBA“) End Sub

Krok 4: Teraz ukážte výsledok tejto premennej v okne správy.
Kód:
Sub Trim_Example1 () Dim k As String k = Trim („Vitajte vo VBA“) MsgBox k End Sub

Krok 5: Spustite tento kód pomocou klávesu F5 alebo spustite manuálne. Do okna správy by sme mali dostať správny reťazec.

Výkon:

Funkcia TRIM teda odstránila všetky vedúce medzery, ktoré sme zadali do hodnoty reťazca. Výsledkom je správna veta, tj „Vitajte vo VBA.“
Príklad č
Teraz sa pozrite na ešte jeden príklad na odstránenie koncových medzier. Zopakujte rovnaké slovo, ale tentoraz zadajte koncové medzery.
„Vitajte vo VBA. „
Kód:
Sub Trim_Example2 () Dim k As String k = Trim („Vitajte vo VBA“) MsgBox k End Sub

Tento kód spustite manuálne alebo pomocou klávesovej skratky F5. Funkcia Trim tiež odstráni koncové medzery.

Výkon:

Príklad č. 3 - Vyčistenie údajov v bunkách
Teraz uvidíme praktický príklad čistenia údajov v bunkách programu Excel. Predpokladajme, že v súbore programu Excel máte súbor údajov, ako je uvedené nižšie.

When we have more than one cell data, we need to write different codes. Follow the below steps to write code.
Step 1: Declare a variable as “Range.”
Code:
Sub Trim_Example3() Dim MyRange As Range End Sub

Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub

Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.
Step 3: Now, using For Each VBA Loop, apply the TRIM function.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub

Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.

Step 5: Add a word to the inserted rectangular shape as click here to clean the data.

Step 6: Right-click on the rectangular shape and select the assigned macro.

Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.
Step 8: Now select the range where we need to clean the data.

Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.

So we got cleaned value, i.e., after removing leading & trailing spaces.
Difference Between Excel & VBA Trim Function
The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.

In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.

To overcome this problem, we need to use the trim function as a worksheet function in the code.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub

Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.
Things to Remember
- VBA Trim & Worksheet Trim syntax is exactly the same.
- It can only remove leading & trailing spaces, not in-between spaces.
- Funkcia orezania v programe Excel dokáže odstrániť všetky druhy medzier.