Funkcija VBA TRIM - Kako uporabljati funkcijo Excel VBA TRIM?

Funkcija Excel VBA TRIM

VBA TRIM je razvrščena pod funkcije nizov in besedila, ta funkcija je funkcija delovnega lista v VBA in podobno kot sklic na delovni list se ta funkcija uporablja za obrezovanje ali odstranjevanje neželenih presledkov iz niza, vzame en argument, ki je vhodni niz in vrne izhod kot niz.

Obstaja več situacij, ko podatke prenesemo s spletnih strežnikov in se v celici soočamo z neurejenimi podatki in neželenimi prostori. Obravnavanje nepotrebnih prostorov je zelo boleče za delo. V običajnih funkcijah delovnega lista imamo funkcijo TRIM in excel, da se znebimo »Vodilni prostori, zaključni presledki in vmesni prostor«. V VBA imamo tudi funkcijo TRIM, ki deluje popolnoma enako kot funkcija excel, vendar obstaja le ena majhna razlika. To bomo videli v tem članku malo kasneje.

Kaj naredi funkcija obrezovanja?

TRIM je nizovna funkcija, ki iz izbrane celice odstrani presledke v Excelu. V prostorih imamo 3 vrste »Vodilni prostori, Zadnji prostori in vmesni prostor«.

Leading Space ni nič, toda preden se v celici začne katera koli vrednost, se ta imenuje Leading Space.

Sledi presledek ni nič drugega, ampak po koncu vrednosti v celici, če je presledek, se imenuje sledilni prostor.

Vmesni prostor po koncu vsake besede ni nič; v idealnem primeru bi morali imeti en vesoljski lik. Karkoli več kot en presledek se imenuje Vmesni prostor.

Za premagovanje tovrstnih težav imamo funkcijo TRIM.

Sintaksa

String: Kakšen niz ali vrednost želite obrezati? To bi lahko bila referenca celice, pa tudi neposredna dobava vrednosti formuli.

Primeri

Primer # 1

Zdaj bomo videli, kako odstraniti vodilne presledke v Excelu s funkcijo TRIM. Sledite spodnjim korakom

1. korak: Ustvarite ime makra in spremenljivko razglasite za niz.

Koda:

Sub Trim_Example1 () Dim k As String End Sub

2. korak: Zdaj za to deklarirano spremenljivko dodelite vrednost s pomočjo TRIM.

Koda:

Sub Trim_Example1 () Dim k As String k = Trim (End Sub

3. korak: Pri tej vrsti nizov je beseda v dvojnih narekovajih »Dobrodošli v VBA«

Koda:

Sub Trim_Example1 () Dim k As String k = Trim ("Welcome to VBA") End Sub

4. korak: Zdaj prikaži rezultat te spremenljivke v polju za sporočila.

Koda:

Sub Trim_Example1 () Dim k As String k = Trim ("Welcome to VBA") MsgBox k End Sub

5. korak: Zaženite to kodo s tipko F5 ali zaženite ročno. V polju za sporočilo bi morali dobiti pravi niz.

Izhod:

Torej, funkcija TRIM je odstranila vse vodilne presledke, ki smo jih vnesli v vrednost niza. Zdaj je rezultat pravi stavek, tj. "Dobrodošli v VBA."

2. primer

Zdaj pa si oglejte še en primer za odstranitev končnih presledkov. Vzemite isto besedo, vendar tokrat vnesite končne presledke.

“Dobrodošli v VBA. “

Koda:

Sub Trim_Example2 () Dim k As String k = Trim ("Welcome to VBA") MsgBox k End Sub

Zaženite to kodo ročno ali s tipko F5 Funkcija obrezovanja odstrani tudi končne presledke.

Izhod:

3. primer - Očistite podatke v celicah

Zdaj bomo videli praktični primer čiščenja podatkov v celicah excel. Predpostavimo, da imate v svojem Excelovem listu nabor podatkov, kot je prikazan spodaj.

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.
  • Excel funkcija obrezovanja lahko odstrani vse vrste presledkov.

Zanimive Članki...