Ez az oktatóanyag bemutatja, hogyan kell használni a Trim, LTrim és RTrim VBA funkciókat, valamint a Trim munkalap funkciót.
Vágás funkció
A VBA Trim funkció eltávolítja („vágja”) a hibás szóközöket a szöveg karaktersorozatai előtt és után.
Vágja be a szóközöket a szöveg előtt és után
A VBA Trim funkció eltávolítja a szóközök előtti és utáni szóközöket:
| 12345678910 | RészvágásPélda_1 ()MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "End Sub |
Vágjon több szóközt a szöveg előtt és után
Ez magában foglalja a több szóköz levágását a szöveg előtt és után:
| 12345678910 | RészvágásExample_2 ()MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "End Sub |
A VBA Trim nem távolít el több szóközt a szavak között
A Vágás funkció azonban nem távolít el több szóközt a szavak között:
| 12345678910 | RészvágásExample_3 ()MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "End Sub |
Vágás munkalap függvényként
Az Excel Trim munkalap funkciója azonban használható a szavak közötti szóközök eltávolítására:
Használja a VBA munkalap vágási funkcióját
Az Excel Trim funkció használatához a VBA -ban hívja meg a WorksheetFunction használatával:
| 12345678910 | RészvágásExample_4 ()MSGbox WorksheetFunction.Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "MSGbox WorksheetFunction.Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "MSGbox WorksheetFunction.Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "End Sub |
Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!
Különbség a WorksheetFunction.Trim és a VBA Trim között
Ez bemutatja a Trim és a WorksheetFunction közötti különbségeket. Trim:
| 1234567891011121314151617 | RészvágásExample_5 ()MSGbox WorksheetFunction.Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "Msgbox Trim ("I love excel")"Az eredmény:" Szeretem az excelt "MSGbox WorksheetFunction.Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "Msgbox Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "MSGbox WorksheetFunction.Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "Msgbox Trim ("Szeretem az excelt")"Az eredmény:" Szeretem az excelt "End Sub |
Használja a VBA -t a Trim funkció hozzáadásához egy tartományban
A Vágás munkalap funkciót egy tartományban adhatja hozzá a .Formula használatával:
| 123 | RészvágásExample_6 ()ThisWorkbook.Worksheets ("Sheet1"). Tartomány ("B1"). Képlet = "= trim (A1)"End Sub |
LTrim függvény
Az LTrim függvény csak a szó bal oldaláról távolítja el a szóközöket:
| 12345678910111213141516171819 | RészvágásExample_7 ()MsgBox LTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox LTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox LTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox LTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox LTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox LTrim ("I love excel")"Az eredmény:" Szeretem az excelt "End Sub |
RTrim függvény
Az RTrim függvény csak a szó jobb oldaláról távolítja el a szóközöket:
| 12345678910111213141516171819 | RészvágásExample_8 ()MsgBox RTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox RTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox RTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox RTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox RTrim ("I love excel")"Az eredmény:" Szeretem az excelt "MsgBox RTrim ("I love excel")"Az eredmény:" Szeretem az excelt "End Sub |
A Trim, Ltrim és Rtrim nem távolítja el a szóközöket a szavak között.
Távolítson el minden szóközt a szövegből
A Vágás csak a szóközök közötti felesleges szóközöket távolítja el, de a szövegben lévő összes szóköz eltávolításához használja a Csere funkciót:
| 1234 | AlcserePélda ()MsgBox Replace ("I love excel", "", "")'Az eredmény: "Iloveexcel"End Sub |
