Funktsioon VBA TRIM - Kuidas kasutada Exceli VBA TRIM-funktsiooni?

Lang L: none (table-of-contents)

Exceli VBA TRIM-funktsioon

VBA TRIM on liigitatud stringi ja teksti funktsioonide alla, see funktsioon on VBA-s töölehe funktsioon ja sarnaselt töölehe viitega kasutatakse seda funktsiooni stringi soovimatute tühikute kärpimiseks või eemaldamiseks, selleks on vaja ühte argumenti, mis on sisendstring ja tagastab väljundi stringina.

On mitmeid olukordi, kus laadime andmed võrguserveritest alla ja seisame silmitsi lahtris korrastamata andmete ja soovimatute ruumidega. Ebavajalike tühikutega tegelemine on töötamine väga valus. Tavalistes töölehtefunktsioonides on meil funktsioon nimega TRIM, et vabaneda „Juhtivatest ruumidest, Trailing Spacesist ja tühikute vahelt”. VBA-s on meil ka funktsioon nimega TRIM, mis töötab täpselt samamoodi nagu exceli funktsioon, kuid seal on ainult üks väike erinevus. Seda näeme sellest artiklist veidi hiljem.

Mida trimmi funktsioon teeb?

TRIM on stringifunktsioon, mis eemaldab valitud lahtrist Exceli tühikud. Ruumides on meil kolme tüüpi "Juhtivad ruumid, Lõpptulemused ja vahepealsed ruumid".

Juhtiv ruum pole midagi, kuid enne kui lahtris mingi väärtus algab, kui ruumi on, siis nimetatakse seda juhtivaks ruumiks .

Trailing Space pole midagi muud kui pärast lahtris oleva väärtuse lõppu, kui ruumi on, siis nimetatakse seda Trailing Space-ks.

Ruumivaheline pole pärast iga sõna lõppu midagi; ideaalis peaks meil olema üks kosmosetegelane. Kõike, mis on rohkem kui üks tühik, nimetatakse ruumi vaheliseks.

Kõigi sedasorti probleemide ületamiseks on meil funktsioon nimega TRIM.

Süntaks

String: mis on string või väärtus, mida soovite kärpida? See võib olla nii lahtriviide kui ka valemi otsene väärtuse pakkumine.

Näited

Näide 1

Nüüd näeme, kuidas funktsiooni TRIM abil Excelis esiruumid eemaldada. Järgige allpool toodud samme

1. samm: looge makro nimi ja kuulutage muutuja stringiks.

Kood:

Alamjälje_näide1 () Dim k As String End Sub

2. samm: määrake selle deklareeritud muutuja jaoks väärtus, kasutades TRIM-i.

Kood:

Sub Trim_Näide1 () Dim k As String k = Trim (End Sub

3. samm: selle stringitüübi puhul topelt jutumärkides olev sõna “Welcome to VBA”.

Kood:

Sub Trim_Näide1 () Dim k As String k = Trim ("Tere tulemast VBA-sse") Lõpp Sub

4. samm: kuvage nüüd selle muutuja tulemus teatekastis.

Kood:

Sub Trim_Näide1 () Dim k As String k = Trim ("Tere tulemast VBA-sse") MsgBox k End Sub

5. samm: käivitage see kood klahviga F5 või käivitage käsitsi. Peaksime sõnumikasti saama õige stringi.

Väljund:

Niisiis eemaldas funktsioon TRIM kõik juhtivad tühikud, mille oleme stringi väärtusesse sisestanud. Nüüd on tulemuseks õige lause, st “Tere tulemast VBA-sse”.

Näide 2

Järgnevate tühikute eemaldamiseks vaadake nüüd veel ühte näidet. Võtke sama sõna, kuid seekord sisestage tühikud.

„Tere tulemast VBAsse. "

Kood:

Sub Trim_Näide2 () Dim k As String k = Trim ("Tere tulemast VBA-sse") MsgBox k End Sub

Selle koodi käivitamine käsitsi või klahvi F5 abil funktsioon Trim eemaldab ka tühikud.

Väljund:

Näide # 3 - puhastage lahtrites olevad andmed

Nüüd näeme praktilist näidet andmete puhastamiseks Exceli lahtrites. Oletame, et teil on Exceli lehel selline andmekogum nagu allpool.

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.
  • Exceli trimmisfunktsiooniga saab igasuguseid tühikuid eemaldada.

Huvitavad Artiklid...