Ši pamoka parodys, kaip naudotis „Trim“, „LTrim“ ir „RTrim VBA“ funkcijomis, taip pat „Trim“ darbalapio funkcija.
Apipjaustymo funkcija
VBA apkarpymo funkcija pašalina („apipjauna“) klaidingas tarpus prieš ir po teksto eilių.
Iškirpkite tarpus prieš ir po teksto
VBA apkarpymo funkcija pašalins tarpus prieš ir po teksto eilučių:
12345678910 | Papildomas apipavidalinimasPavyzdys_1 ()„MsgBox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox Trim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “Pabaiga Sub |
Apkarpykite kelias erdves prieš ir po teksto
Tai apima kelių tarpų apkarpymą prieš ir po teksto:
12345678910 | Papildomas apipavidalinimasPavyzdys_2 ()„MsgBox Trim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„MsgBox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “Pabaiga Sub |
„VBA Trim“ nepašalins kelių tarpų tarp žodžių
Tačiau apkarpymo funkcija nepašalins kelių tarpų tarp žodžių:
12345678910 | Papildomas apipavidalinimasPavyzdys_3 ()„MsgBox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox Trim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„MsgBox Trim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “Pabaiga Sub |
Apkirpti kaip darbalapio funkciją
Tačiau „Excel Trim“ darbalapio funkciją galima naudoti norint pašalinti papildomus tarpus tarp žodžių:
Naudokite darbalapio apkarpymo funkciją VBA
Jei norite naudoti „Excel“ apipjaustymo funkciją VBA, paskambinkite naudodami „WorksheetFunction“:
12345678910 | Papildomas apipavidalinimasPavyzdys_4 ()„Msgbox WorksheetFunction.Trim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„Msgbox WorksheetFunction.Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„Msgbox WorksheetFunction.Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “Pabaiga Sub |
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!
Skirtumas tarp „WorksheetFunction“. „Trim“ ir „VBA Trim“
Tai parodys skirtumus tarp Trim ir WorksheetFunction. Trim:
1234567891011121314151617 | Papildomas apipavidalinimasPavyzdys_5 ()„Msgbox WorksheetFunction.Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„Msgbox Trim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„Msgbox WorksheetFunction.Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„Msgbox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„Msgbox WorksheetFunction.Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„Msgbox Trim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “Pabaiga Sub |
Naudokite VBA, kad pridėtumėte apkarpymo funkciją diapazone
Funkciją Apkirpti darbalapį galima pridėti diapazone naudojant ypatybę. Formulė:
123 | Papildomas apipavidalinimasPavyzdys_6 ()ThisWorkbook.Worksheets ("Sheet1"). Diapazonas ("B1"). Formulė = "= apdaila (A1)"Pabaiga Sub |
Funkcija „LTrim“
Funkcija „LTrim“ pašalina tarpus tik iš kairės žodžio pusės:
12345678910111213141516171819 | Papildomas apipavidalinimasPavyzdys_7 ()„MsgBox LTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox LTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox LTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox LTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox LTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox LTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “Pabaiga Sub |
RTrim funkcija
Funkcija RTrim pašalina tarpus tik iš dešinės žodžio pusės:
12345678910111213141516171819 | Papildomas apdailos pavyzdys_8 ()„MsgBox RTrim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„MsgBox RTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox RTrim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„MsgBox RTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “„MsgBox RTrim“ („Aš myliu„ Excel “)„Rezultatas:„ Man patinka „Excel“ “„MsgBox RTrim“ („Aš myliu„ Excel “)Rezultatas: „Aš myliu„ Excel “Pabaiga Sub |
Trim, Ltrim ir Rtrim nepašalina tarpų tarp žodžių.
Iš teksto pašalinkite visas tarpus
„Trim“ pašalins tik papildomus tarpus tarp žodžių, tačiau norėdami pašalinti visus tarpus teksto eilutėje, galite naudoti funkciją „Pakeisti“:
1234 | SubpakeistiPavyzdys ()„MsgBox Replace“ („I love excel“, „“, „“)„Rezultatas:„ Iloveexcel “Pabaiga Sub |