VBA TRIM funkcija - Kaip naudotis „Excel VBA TRIM“ funkcija?

„Excel VBA TRIM“ funkcija

VBA TRIM yra klasifikuojama pagal eilutės ir teksto funkcijas, ši funkcija yra VBA darbalapio funkcija ir panaši į darbalapio nuorodą, ši funkcija naudojama norint iškirpti ar pašalinti nepageidaujamus tarpus iš eilutės, reikia vieno argumento, kuris yra įvesties eilutė ir grąžina išvestį kaip eilutę.

Yra keletas situacijų, kai duomenis atsisiunčiame iš internetinių serverių ir susiduriame su neorganizuotais duomenimis ir nepageidaujamomis erdvėmis ląstelėje. Darbas su nereikalingomis erdvėmis yra labai skausmingas. Įprastose darbalapio funkcijose mes turime funkciją, vadinamą TRIM, kad atsikratytume „Pagrindinės erdvės, Galinės erdvės ir tarpas“. VBA taip pat turime funkciją, vadinamą TRIM, kuri veikia lygiai taip pat, kaip ir „Excel“ funkcija, tačiau yra tik vienas nedidelis skirtumas. Tai pamatysime šiame straipsnyje šiek tiek vėliau.

Ką veikia „Trim“ funkcija?

TRIM yra eilutės funkcija, pašalinanti „Excel“ tarpus iš pasirinkto langelio. Erdvėse mes turime 3 tipus: „pirmaujančios erdvės, galinės erdvės ir tarpas“.

Pirmaujanti erdvė yra niekas, bet prieš pradedant bet kokią vertę ląstelėje, jei yra erdvės, ji vadinama pirmaujančia erdve.

Galinė erdvė yra ne kas kitas, o pasibaigus langelio reikšmei, jei yra tarpo, ji vadinama galine erdve.

Tarpas tarp erdvės nėra niekas po kiekvieno žodžio pabaigos; idealiu atveju turėtume turėti vieną erdvės simbolį. Viskas, kas yra daugiau nei vienas erdvės simbolis, vadinamas tarpu tarpu.

Norėdami įveikti visas tokio pobūdžio problemas, turime funkciją, vadinamą TRIM.

Sintaksė

Stygos : Kokią eilutę ar vertę norite kirpti? Tai gali būti ląstelių nuoroda, taip pat tiesioginis formulės vertės tiekimas.

Pavyzdžiai

1 pavyzdys

Dabar pamatysime, kaip pašalinti pagrindinius „Excel“ tarpus naudojant TRIM funkciją. Atlikite toliau nurodytus veiksmus

1 veiksmas: sukurkite makrokomandos pavadinimą ir paskelbkite kintamąjį kaip eilutę.

Kodas:

Sub Trim_Pavyzdys1 () Dim k As String End Sub

2 žingsnis: Dabar šiam deklaruotam kintamajam priskirkite vertę naudodami TRIM.

Kodas:

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

3 žingsnis: Šio tipo eilutėje žodis dvigubose kabutėse yra „Sveiki atvykę į VBA“.

Kodas:

Sub Trim_Pavyzdys1 () Dim k As String k = Trim („Sveiki atvykę į VBA“) Pabaiga Sub

4 žingsnis: Dabar pranešimo laukelyje parodykite šio kintamojo rezultatą.

Kodas:

Sub Trim_Pavyzdys1 () Dim k As String k = Trim („Sveiki atvykę į VBA“) MsgBox k End Sub

5 žingsnis: paleiskite šį kodą naudodami F5 klavišą arba paleiskite rankiniu būdu. Pranešimo laukelyje turėtume gauti teisingą eilutę.

Išvestis:

Taigi, funkcija TRIM pašalino visas pagrindines erdves, kurias įvedėme į eilutės vertę. Dabar rezultatas yra teisingas sakinys, ty „Sveiki atvykę į VBA“.

2 pavyzdys

Dabar pažvelkite į dar vieną pavyzdį, kad pašalintumėte galines vietas. Paimkite tą patį žodį, bet šį kartą įveskite paskutines vietas.

„Sveiki atvykę į VBA. „

Kodas:

Sub Trim_Pavyzdys2 () Dim k As String k = Trim („Sveiki atvykę į VBA“) MsgBox k End Sub

Paleiskite šį kodą rankiniu būdu arba naudodami F5 klavišą „Trim“ funkcija taip pat pašalina galinius tarpus.

Išvestis:

3 pavyzdys - išvalykite duomenis ląstelėse

Dabar pamatysime praktinį duomenų valymo pavyzdį „Excel“ langeliuose. Tarkime, kad „Excel“ lape turite tokių duomenų rinkinį, kaip nurodyta toliau.

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“ apdailos funkcija gali pašalinti visų rūšių tarpus.

Įdomios straipsniai...