Ta vadnica bo pokazala, kako uporabljati funkcije Trim, LTrim in RTrim VBA ter funkcijo Trim delovnega lista.
Funkcija obrezovanja
Funkcija VBA Trim odstrani (»obreže«) napačne presledke pred in za besedili.
Obrezovanje presledkov pred in po besedilu
Funkcija VBA Trim bo odstranila presledke pred in za besedilom:
12345678910 | Sub TrimExample_1 ()MsgBox Trim ("I love excel")"Rezultat je:" I love excel "MsgBox Trim ("I love excel")"Rezultat je:" I love excel "MsgBox Trim ("I love excel")"Rezultat je:" I love excel "End Sub |
Obrežite več presledkov pred in po besedilu
To vključuje obrezovanje več presledkov pred besedilom in po njem:
12345678910 | Sub TrimExample_2 ()MsgBox Trim ("I love excel")"Rezultat je:" I love excel "MsgBox Trim ("I love excel")"Rezultat je:" I love excel "MsgBox Trim ("I love excel")"Rezultat je:" I love excel "End Sub |
VBA Trim NE odstrani več presledkov med besedami
Vendar funkcija Trim ne bo odstranila več presledkov med besedami:
12345678910 | Sub TrimExample_3 ()MsgBox Trim ("I love excel")"Rezultat je:" I love excel "MsgBox Trim ("I love excel")"Rezultat je:" I love excel "MsgBox Trim ("I love excel")"Rezultat je:" I love excel "End Sub |
Obrezovanje kot funkcija delovnega lista
Vendar pa lahko funkcijo delovnega lista Excel Trim odstranite dodatne presledke med besedami:
Uporabite funkcijo obrezovanja delovnega lista v VBA
Če želite uporabiti funkcijo obrezovanja Excel v VBA, jo pokličite s funkcijo WorksheetFunction:
12345678910 | Sub TrimExample_4 ()Msgbox WorksheetFunction.Trim ("I love excel")"Rezultat je:" I love excel "Msgbox WorksheetFunction.Trim ("I love excel")"Rezultat je:" I love excel "Msgbox WorksheetFunction.Trim ("I love excel")"Rezultat je:" I love excel "End Sub |
Utrujen od iskanja primerov kode VBA? Preizkusite AutoMacro!
Razlika med funkcijo delovnega lista.Trim in VBA Trim
To bo pokazalo razlike med Trim in WorksheetFunction.Trim:
1234567891011121314151617 | Sub TrimExample_5 ()Msgbox WorksheetFunction.Trim ("I love excel")"Rezultat je:" I love excel "Msgbox Trim ("I love excel")"Rezultat je:" I love excel "Msgbox WorksheetFunction.Trim ("I love excel")"Rezultat je:" I love excel "Msgbox Trim ("I love excel")"Rezultat je:" I love excel "Msgbox WorksheetFunction.Trim ("I love excel")"Rezultat je:" I love excel "Msgbox Trim ("I love excel")"Rezultat je:" I love excel "End Sub |
Uporabite VBA, da dodate funkcijo obrezovanja v obseg
Funkcijo Trim Worksheet lahko dodate v Range z uporabo lastnosti.
123 | Sub TrimExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Range ("B1"). Formula = "= trim (A1)"End Sub |
LTrim funkcija
Funkcija LTrim odstrani presledke le z leve strani besede:
12345678910111213141516171819 | Sub TrimExample_7 ()MsgBox LTrim ("I love excel")"Rezultat je:" I love excel "MsgBox LTrim ("I love excel")"Rezultat je:" I love excel "MsgBox LTrim ("I love excel")"Rezultat je:" I love excel "MsgBox LTrim ("I love excel")"Rezultat je:" I love excel "MsgBox LTrim ("I love excel")"Rezultat je:" I love excel "MsgBox LTrim ("I love excel")"Rezultat je:" I love excel "End Sub |
Funkcija RTrim
Funkcija RTrim odstrani presledke samo na desni strani besede:
12345678910111213141516171819 | Sub TrimExample_8 ()MsgBox RTrim ("I love excel")"Rezultat je:" I love excel "MsgBox RTrim ("I love excel")"Rezultat je:" I love excel "MsgBox RTrim ("I love excel")"Rezultat je:" I love excel "MsgBox RTrim ("I love excel")"Rezultat je:" I love excel "MsgBox RTrim ("I love excel")"Rezultat je:" I love excel "MsgBox RTrim ("I love excel")"Rezultat je:" I love excel "End Sub |
Trim, Ltrim in Rtrim ne odstranijo presledkov med besedami.
Odstranite vse presledke iz besedila
Trim bo odstranil samo dodatne presledke med besedami, če pa želite odstraniti vse presledke v nizu besedila, lahko uporabite funkcijo Replace:
1234 | Sub ReplaceExample ()MsgBox Replace ("I love excel", "", ""))"Rezultat je:" Iloveexcel "End Sub |