VBA TRIM funkcija - Kā izmantot Excel VBA TRIM funkciju?

Satura rādītājs

Excel VBA TRIM funkcija

VBA TRIM tiek klasificēts zem virknes un teksta funkcijām, šī funkcija ir VBA darblapas funkcija un līdzīgi kā darblapas atsaucei šo funkciju izmanto, lai apgrieztu vai noņemtu nevēlamās atstarpes no virknes, tas prasa vienu argumentu, kas ir ievades virkne un atgriež izvadi kā virkni.

Pastāv vairākas situācijas, kad mēs lejupielādējam datus no tiešsaistes serveriem, un mēs saskaramies ar situāciju, kad šūnā nav sakārtoti dati un nevēlamas vietas. Darbs ar nevajadzīgām atstarpēm ir ļoti sāpīgs. Regulārajās darblapu funkcijās mums ir funkcija, ko sauc par TRIM, lai atbrīvotos no “Vadošajām telpām, Aizmugurējām atstarpēm un atstarpēm”. Arī VBA mums ir funkcija TRIM, kas darbojas tieši tāpat kā excel funkcija, taču ir tikai viena neliela atšķirība. To mēs redzēsim šajā rakstā nedaudz vēlāk.

Ko dara apgriešanas funkcija?

TRIM ir virknes funkcija, kas noņem atstarpes programmā Excel no atlasītās šūnas. Telpās mums ir 3 veidi: “Vadošās vietas, Aizmugures vietas un starpposma telpas”.

Vadošā telpa nav nekas, bet, pirms šūnā sākas kāda vērtība, ja ir kāda telpa, tad to sauc par Vadošo telpu.

Aizmugures telpa ir nekas cits, kā tikai pēc vērtības beigām šūnā, ja ir atstarpe, tad to sauc par Aizmugurējo.

Starpsavienojums nav nekas pēc katra vārda beigām; ideālā gadījumā mums vajadzētu būt vienam atstarpes rakstzīmei. Viss, kas ir vairāk nekā viens atstarpes raksturs, tiek saukts par starpzonu.

Lai pārvarētu visas šāda veida problēmas, mums ir funkcija, ko sauc par TRIM.

Sintakse

Virkne: kāda ir virkne vai vērtība, kuru vēlaties apgriezt? Tas varētu būt šūnu atsauce, kā arī tieša vērtības piegāde formulai.

Piemēri

1. piemērs

Tagad mēs redzēsim, kā noņemt vadošās atstarpes programmā Excel, izmantojot funkciju TRIM. Veiciet tālāk norādītās darbības

1. darbība: izveidojiet makro nosaukumu un paziņojiet mainīgo kā virkni.

Kods:

Apgriezt_piemērs1 () Dim k kā virknes beigu apakš

2. solis: Tagad šim deklarētajam mainīgajam piešķiriet vērtību, izmantojot TRIM.

Kods:

Apgriezt_piemērs1 () Dim k As virkne k = Apgriezt (Beigas Apakš

3. solis: Šim virkņu veidam vārds pēdiņās kā “Laipni lūdzam VBA”.

Kods:

Apgriezt_piemērs1 () Dim k kā virkne k = Apgriezt ("Laipni lūdzam VBA") Beigu apakšdaļa

4. solis: Tagad ziņojuma lodziņā parādiet šī mainīgā rezultātu.

Kods:

Apgriezt_piemērs1 () Dim k kā virkne k = Apgriezt ("Laipni lūdzam VBA") MsgBox k Beigas apakšdaļas

5. darbība: palaidiet šo kodu, izmantojot F5 taustiņu, vai palaidiet manuāli. Mums ziņojuma lodziņā vajadzētu iegūt pareizu virkni.

Izeja:

Tātad, funkcija TRIM noņēma visas galvenās atstarpes, kuras esam ievadījuši virknes vērtībā. Tagad rezultāts ir pareizs teikums, ti, “Laipni lūdzam VBA!”

2. piemērs

Tagad apskatiet vēl vienu piemēru, lai noņemtu aizmugures atstarpes. Paņemiet to pašu vārdu, bet šoreiz ievadiet pēdējās atstarpes.

“Laipni lūdzam VBA. “

Kods:

Apgriezt_piemērs2 () Dim k kā virkne k = Apgriezt ("Laipni lūdzam VBA") MsgBox k Beigas apakšdaļas

Palaidiet šo kodu manuāli vai izmantojot F5 taustiņu. Apgriešanas funkcija noņem arī pēdējās atstarpes.

Izeja:

3. piemērs - notīriet datus šūnās

Tagad mēs redzēsim praktisko datu tīrīšanas piemēru Excel šūnās. Pieņemsim, ka jūsu Excel lapā ir tāda datu kopa kā tālāk.

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 apgriešanas funkcija var noņemt visu veidu atstarpes.

Interesanti raksti...