VBA TRIM-funktion - Hur använder jag Excel VBA TRIM-funktion?

Innehållsförteckning

Excel VBA TRIM-funktion

VBA TRIM är kategoriserad under sträng- och textfunktionerna, den här funktionen är en kalkylfunktion i VBA och liknar kalkylbladets referens den här funktionen används för att trimma eller ta bort oönskade utrymmen från en sträng, det tar ett enda argument som är en inmatningssträng och returnerar en utdata som en sträng.

Det finns flera situationer där vi laddar ner data från onlineservrar, och vi möter en situation med oorganiserad data och oönskade utrymmen i cellen. Att hantera onödiga utrymmen är mycket smärtsamt att arbeta med. I vanliga kalkylfunktioner har vi en funktion som heter TRIM i Excel för att bli av med "Ledande utrymmen, bakre utrymmen och mellanrum." I VBA har vi också en funktion som heter TRIM, som fungerar exakt samma som excel-funktionen, men det finns bara en liten skillnad där. Vi kommer att se det i den här artikeln lite senare.

Vad gör trimfunktionen?

TRIM är en strängfunktion som tar bort mellanslag i excel från den valda cellen. I utrymmen har vi tre typer "Ledande utrymmen, bakre utrymmen och mellanrum."

Leading Space är ingenting, men innan något värde börjar i cellen, om det finns något utrymme, kallas det Leading Space.

Släputrymmet är inget annat än efter slutet av värdet i cellen om det finns något utrymme, så kallas det släputrymme.

Mellanrummet är inget efter slutet av varje ord; helst borde vi ha ett mellanslagstecken. Något mer än ett mellanslag kallas Mellanrummet.

För att övervinna alla dessa problem har vi en funktion som heter TRIM.

Syntax

Sträng: Vad är strängen eller värdet du vill trimma? Det kan vara cellreferens såväl som en direkt tillförsel av värde till formeln.

Exempel

Exempel 1

Nu ser vi hur man tar bort ledande utrymmen i Excel med TRIM-funktionen. Följ stegen nedan

Steg 1: Skapa ett makronamn och förklara en variabel som sträng.

Koda:

Sub Trim_Example1 () Dim k Som String End Sub

Steg 2: Tilldela nu ett värde för denna deklarerade variabel med hjälp av TRIM.

Koda:

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

Steg 3: För denna strängtyp, ordet i dubbla citat som "Välkommen till VBA."

Koda:

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

Steg 4: Visa nu resultatet av denna variabel i meddelandefältet.

Koda:

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

Steg 5: Kör den här koden med F5-tangenten eller kör manuellt. Vi borde få en rätt sträng i meddelandefältet.

Produktion:

Så, TRIM-funktionen tog bort alla ledande utrymmen som vi har angett i strängvärdet. Nu är resultatet en korrekt mening, dvs "Välkommen till VBA."

Exempel 2

Ta nu en titt på ytterligare ett exempel för att ta bort efterföljande utrymmen. Ta samma ord men den här gången, ange efterföljande mellanslag.

“Välkommen till VBA. “

Koda:

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

Kör den här koden manuellt eller genom F5-tangenten Trim-funktionen tar också bort efterföljande utrymmen.

Produktion:

Exempel # 3 - Rengör data i celler

Nu kommer vi att se det praktiska exemplet på rengöring av data i Excel-celler. Antag att du har en datamängd som nedan på ditt excel-ark.

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-trimfunktionen kan ta bort alla typer av utrymmen.

Intressanta artiklar...