Excel VBA TRIM funkcija (izskaidrota ar piemēriem)

Programmai Excel jau ir TRIM darblapas funkcija, kuru varat izmantot, lai atbrīvotos no pirmajiem, pēdējiem un papildu atstarpēm starp vārdiem/virknēm.

VBA ir arī TRIM funkcija (un tā dara tieši to pašu - noņem papildu atstarpes).

Kāpēc mums ir nepieciešama TRIM funkcija arī VBA?

Godīgs jautājums!

Lai gan Excel darblapās varat strādāt ar iebūvēto TRIM funkciju, lai atbrīvotos no atstarpēm. dažos gadījumos tas var būt jādara, izmantojot VBA.

Tas varētu būt daļa no lielāka koda.

Funkcijas VBA TRIM sintakse

TRIM (virkne)

“String” ir arguments, kas var būt teksta virkne vai mainīgais, kurā ir teksta virkne.

Uzzināsim, kā izmantot VBA TRIM funkciju, izmantojot dažus piemērus.

1. piemērs - rezultātu parādīšana ziņojumu lodziņā

Pieņemsim, ka šūnā A1 ir šāds teksts

Ņemiet vērā, ka pirms un pēc teikuma ir atstarpes.

Zemāk esošais kods ņemtu šo teikumu un parādītu rezultātu pēc papildu atstarpju apgriešanas

Sub TrimExample1 () MsgBox Trim (diapazons ("A1")) Beigu apakšdaļa

Lietojot TRIM funkciju VBA, ir jāzina viena svarīga lieta - tā noņems tikai priekšējo un beigu atstarpi. Tas nenoņems papildu atstarpes starp vārdiem (to dara darblapā iebūvētā funkcija TRIM).

Piemēram, pieņemsim, ka šūnā A1 ir šāds teksts (ar papildu atstarpēm starp vārdiem):

Ja es izmantoju iepriekš minēto VBA kodu, tas parādīs ziņojumu lodziņu, kā parādīts zemāk:

Kā redzams ziņojuma lodziņa rezultātā, papildu atstarpes starp vārdiem netiek noņemtas, izmantojot funkciju VBA TRIM.

Tad kāda ir alternatīva?

Ja vēlaties noņemt sākuma, beigu un dubultās atstarpes starp vārdiem, labāk ir izmantot šādu kodu:

Sub TrimExample1 () MsgBox WorksheetFunction.Trim (Diapazons ("A1")) Beigu apakšdaļa

Iepriekš minētais kods izmanto darblapas funkciju TRIM (nevis izmanto TRIM funkciju VBA).

Piezīme: VBA apgriešanas funkcija nenoņem rakstzīmes, kas nav atstarpes, piemēram, jaunas rindas (vbNewLine, vbCrLf) utt.

2. piemērs. Ātri noņemiet vadošās un beigu telpas no šūnu diapazona

Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, kur ir sākuma un beigu vietas:

Varat izmantot tālāk norādīto kodu, lai uzreiz notīrītu šos datus un noņemtu visas sākuma un beigu vietas:

Sub TrimExample1 () Dim Rng kā diapazona kopa Rng = Atlase katrai šūnai Rng šūnā.

Iepriekš minētais kods iet cauri visām atlases šūnām un noņem sākuma un beigu atstarpes.

Jums varētu patikt arī šādas Excel/VBA apmācības:

• 10 veidi, kā tīrīt datus programmā Excel.
• Excel VBA sadalītā funkcija.
• Excel VBA InStr funkcija.
• VBA LCase funkcija.
• VBA UCase funkcija.
• Lietotāja definētas funkcijas (UDF) izveide programmā Excel VBA.