Ten samouczek pokaże, jak używać funkcji Trim, LTrim i RTrim VBA, a także funkcji Trim arkusza.
Funkcja przycinania
Funkcja VBA Trim usuwa („przycinanie”) błędne spacje przed i po ciągach tekstu.
Przytnij spacje przed i po tekście
Funkcja VBA Trim usunie spacje przed i po ciągach tekstu:
12345678910 | Sub TrimPrzykład_1()MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Napis końcowy |
Przytnij wiele spacji przed i po tekście
Obejmuje to przycinanie wielu spacji przed i po tekście:
12345678910 | Sub TrimPrzykład_2()MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Napis końcowy |
VBA Trim NIE usunie wielu spacji między słowami
Jednak funkcja Trim nie usunie wielu spacji między słowami:
12345678910 | Sub TrimPrzykład_3()MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Napis końcowy |
Przycinanie jako funkcja arkusza roboczego
Jednak funkcja arkusza kalkulacyjnego Excel Trim może służyć do usuwania dodatkowych spacji między słowami:
Użyj funkcji przycinania arkusza roboczego w VBA
Aby użyć funkcji przycinania programu Excel w VBA, wywołaj ją za pomocą funkcji WorksheetFunction:
12345678910 | Sub TrimPrzykład_4()Msgbox WorksheetFunction.Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox WorksheetFunction.Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox WorksheetFunction.Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Napis końcowy |
Masz dość wyszukiwania przykładów kodu VBA? Wypróbuj Automakro!
Różnica między WorksheetFunction.Trim a VBA Trim
To pokaże różnice między Trim i WorksheetFunction.Trim:
1234567891011121314151617 | Sub TrimPrzykład_5()Msgbox WorksheetFunction.Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox WorksheetFunction.Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox WorksheetFunction.Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Msgbox Trim("Kocham Excela")Wynik: „Uwielbiam Excela”Napis końcowy |
Użyj VBA, aby dodać funkcję przycinania w zakresie
Funkcję Trim Worksheet można dodać do zakresu za pomocą właściwości .Formula:
123 | Sub TrimPrzykład_6()ThisWorkbook.Worksheets("Arkusz1").Range("B1").Formula = "=trim(A1)"Napis końcowy |
LFunkcja przycinania
Funkcja LTrim usuwa spacje tylko z lewej strony słowa:
12345678910111213141516171819 | Sub TrimPrzykład_7()MsgBox LTrim("Kocham Excela")„Wynik to: „Uwielbiam Excela”MsgBox LTrim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox LTrim("Kocham Excela")„Wynik to: „Uwielbiam Excela”MsgBox LTrim("Kocham Excela")„Wynik to: „Uwielbiam Excela”MsgBox LTrim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox LTrim("Kocham Excela")„Wynik to: „Uwielbiam Excela”Napis końcowy |
RTfunkcja przycinania
Funkcja RTrim usuwa spacje tylko z prawej strony słowa:
12345678910111213141516171819 | Sub TrimPrzykład_8()MsgBox RTrim("Kocham Excela")Wynik to: „Kocham Excela”MsgBox RTrim("Kocham Excela")Wynik to: „Kocham Excela”MsgBox RTrim("Kocham Excela")Wynik: „Uwielbiam Excela”MsgBox RTrim("Kocham Excela")Wynik to: „Kocham Excela”MsgBox RTrim("Kocham Excela")Wynik to: „Kocham Excela”MsgBox RTrim("Kocham Excela")„Wynik to: „Uwielbiam Excela”Napis końcowy |
Trim, Ltrim i Rtrim nie usuwają spacji między wyrazami.
Usuń wszystkie spacje z tekstu
Trim usunie tylko dodatkowe spacje między słowami, ale aby usunąć wszystkie spacje w ciągu tekstu, możesz użyć funkcji Zamień:
1234 | Sub ZamieńPrzykład ()MsgBox Replace("Kocham Excela", "", "")Wynik: „Iloveexcel”Napis końcowy |