Acest tutorial va arăta cum să utilizați funcțiile Trim, LTrim și RTrim VBA, precum și funcția Trim a foii de lucru.
Funcția Trim
Funcția VBA Trim elimină („decupează”) spațiile eronate înainte și după șiruri de text.
Tăiați spațiile înainte și după text
Funcția VBA Trim va elimina spațiile înainte și după șiruri de text:
| 12345678910 | Sub TrimExample_1 ()MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
Tăiați mai multe spații înainte și după text
Aceasta include tăierea mai multor spații înainte și după text:
| 12345678910 | Sub TrimExample_2 ()MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
VBA Trim NU va elimina mai multe spații între cuvinte
Cu toate acestea, funcția Trim nu va elimina mai multe spații între cuvinte:
| 12345678910 | Sub TrimExample_3 ()MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
Decupați ca o funcție de foaie de lucru
Cu toate acestea, funcția Foaie de lucru Excel Trim poate fi utilizată pentru a elimina spații suplimentare între cuvinte:
Utilizați funcția de tăiere a foii de lucru în VBA
Pentru a utiliza funcția Excel Trim în VBA, apelați-o utilizând WorksheetFunction:
| 12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox WorksheetFunction.Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox WorksheetFunction.Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!
Diferența dintre WorksheetFunction.Trim și VBA Trim
Acest lucru va demonstra diferențele dintre Trim și WorksheetFunction.
| 1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox WorksheetFunction.Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox WorksheetFunction.Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Msgbox Trim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
Utilizați VBA pentru a adăuga funcția de tăiere într-un interval
Funcția Trim Worksheet poate fi adăugată într-un Range folosind proprietatea .Formula:
| 123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"Sfârșitul Sub |
Funcția LTrim
Funcția LTrim elimină spațiile doar din partea stângă a cuvântului:
| 12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox LTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox LTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox LTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox LTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox LTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
Funcția RTrim
Funcția RTrim elimină spațiile doar din partea dreaptă a cuvântului:
| 12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox RTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox RTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox RTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox RTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”MsgBox RTrim („Îmi place excel”)„Rezultatul este:„ Iubesc excel ”Sfârșitul Sub |
Trim, Ltrim și Rtrim nu elimină spațiile dintre cuvinte.
Eliminați toate spațiile din text
Trim va elimina doar spațiile suplimentare dintre cuvinte, dar pentru a elimina toate spațiile dintr-un șir de text, puteți utiliza funcția Înlocuire:
| 1234 | Sub ReplaceExample ()MsgBox Replace („Îmi place excel”, „„, „„)'Rezultatul este: "Iloveexcel"Sfârșitul Sub |
