„Excel“ jau turi TRIM darbalapio funkciją, kurią galite naudoti norėdami atsikratyti priekinių, galinių ir papildomų tarpų tarp žodžių/eilučių.
VBA taip pat yra TRIM funkcija (ir ji daro tą patį - pašalina papildomas vietas).
Kodėl mums taip pat reikia TRIM funkcijos VBA?
Sąžiningas klausimas!
Nors galite dirbti su integruota TRIM funkcija „Excel“ darbalapiuose, kad atsikratytumėte tarpų. kai kuriais atvejais jums gali tekti tai padaryti naudojant VBA.
Tai gali būti didesnio kodo dalis.
Funkcijos VBA TRIM sintaksė
TRIM (eilutė)
„Eilutė“ yra argumentas, kuris gali būti teksto eilutė arba kintamasis, kuriame yra teksto eilutė.
Išmoksime naudotis VBA TRIM funkcija su keliais pavyzdžiais.
1 pavyzdys. Rezultato rodymas pranešimų laukelyje
Tarkime, kad langelyje A1 yra šis tekstas
Atminkite, kad prieš ir po sakinio yra tarpų.
Žemiau pateiktas kodas paimtų šį sakinį ir parodytų rezultatą nukirpus papildomas vietas
Antrinis apipavidalinimasPavyzdys1 () „MsgBox“ apipjaustymas (diapazonas („A1“)) Pabaiga
Pvz., Tarkime, kad A1 langelyje yra toks tekstas (su papildomais tarpais tarp žodžių):
Jei naudoju aukščiau pateiktą VBA kodą, jis parodys pranešimų laukelį, kaip parodyta žemiau:
Kaip matote pranešimų laukelio rezultate, papildomų tarpų tarp žodžių nepašalina funkcija VBA TRIM.
Tada kokia alternatyva?
Jei norite pašalinti priekinius, galinius ir dvigubus tarpus tarp žodžių, geriau naudoti šį kodą:
Sub TrimExample1 () MsgBox WorksheetFunction.Trim (Diapazonas („A1“)) Pabaiga
Aukščiau pateiktas kodas naudoja darbalapio TRIM funkciją (užuot naudojusi TRIM funkciją VBA).
Pastaba: „VBA Trim“ funkcija nepašalina tuščių tarpų simbolių, pvz., Naujų eilučių (vbNewLine, vbCrLf) ir kt.
2 pavyzdys - greitai pašalinkite pagrindines ir galines erdves iš ląstelių diapazono
Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, kur yra tarpai ir tarpai:
Galite naudoti žemiau esantį kodą, kad akimirksniu išvalytumėte šiuos duomenis ir pašalintumėte visas priekines ir galines vietas:
Antrinis apipavidalinimasPavyzdys1 () Dim Rng kaip diapazono rinkinys
Aukščiau pateiktas kodas eina per visas pasirinkimo langelius ir pašalina priekines ir galines tarpus.
Jums taip pat gali patikti šios „Excel“/VBA pamokos:
- 10 būdų, kaip išvalyti duomenis „Excel“.
- „Excel VBA“ padalijimo funkcija.
- „Excel VBA InStr“ funkcija.
- VBA LCase funkcija.
- VBA UCase funkcija.
- Vartotojo apibrėžtos funkcijos (UDF) kūrimas „Excel VBA“.
